autohotkey：复制没有路径和扩展名的文件名答案

【问题标题】：autohotkey: copy file name without Path and Extensionautohotkey：复制没有路径和扩展名的文件名
【发布时间】：2018-04-22 13:53:37
【问题描述】：

欢迎大家

以下代码来自这里：https://autohotkey.com/boards/viewtopic.php?f=5&t=44848

作者：奥德兰尼尔

        q::
    fileselected := Explorer_GetSelection()
    SplitPath,fileselected, fn
    MsgBox % "FileName :`t" fn "`nFullName :`t" fileselected
    clipboard = % "FileName :`t" fn "`nFullName :`t" fileselected
    return


    Explorer_GetSelection(hwnd="") {
        WinGet, process, processName, % "ahk_id" hwnd := hwnd? hwnd:WinExist("A")
        WinGetClass class, ahk_id %hwnd%
        if (process = "explorer.exe")
            if (class ~= "Progman|WorkerW") {
                ControlGet, files, List, Selected Col1, SysListView321, ahk_class %class%
                Loop, Parse, files, `n, `r
                ToReturn .= A_Desktop "\" A_LoopField "`n"
        } else if (class ~= "(Cabinet|Explore)WClass") {
            for window in ComObjCreate("Shell.Application").Windows
                if (window.hwnd==hwnd)
                    sel := window.Document.SelectedItems
            for item in sel
                ToReturn .= item.path "`n"
        }
    return Trim(ToReturn,"`n")


}
return

当您单击热键时，我们会获得所选文件的文件名和路径，如图所示

https://drive.google.com/open?id=1VvPKYrbVQEfrmdB34dUND9HbnXMl0Lr2

我的问题是：如何仅按文件名获取列表，没有文件路径和文件扩展名如图所示

https://drive.google.com/open?id=1rCuLikjqT8Nudipby5Y9MOHTqdozGPYn

任何帮助将不胜感激。

【问题讨论】：

任何帮助请

标签： loops parameters path copy autohotkey

【解决方案1】：

新编辑的代码：

q::
fileselected := Explorer_GetSelection()
MsgBox % fileselected
clipboard = % fileselected
return


Explorer_GetSelection(hwnd="") {
    WinGet, process, processName, % "ahk_id" hwnd := hwnd? hwnd:WinExist("A")
    WinGetClass class, ahk_id %hwnd%
    if (process = "explorer.exe")
        if (class ~= "Progman|WorkerW") {
            ControlGet, files, List, Selected Col1, SysListView321, ahk_class %class%
            Loop, Parse, files, `n, `r
            ToReturn .= A_Desktop "\" A_LoopField "`n"
    } else if (class ~= "(Cabinet|Explore)WClass") {
        for window in ComObjCreate("Shell.Application").Windows
            if (window.hwnd==hwnd)
                sel := window.Document.SelectedItems
        for item in sel
            ToReturn .= item.path "`n"
    }
 fileselected:=ToReturn . "`n"
 while RegExMatch(fileselected,"s)\\(.*)")
 {
 RegExMatch(fileselected,"s)(.*?)(\n)",filestemp)
 RegExMatch(filestemp,"(.*)\.",filestemp)
  while RegExMatch(filestemp1,"s)\\(.*)")
   RegExMatch(filestemp1,"s)\\(.*)",filestemp)
 filesfin := filesfin . filestemp1 . "`n"
 RegExMatch(fileselected,"\n(.*)",filestemp)
 fileselected:=filestemp1
 }
 return (filesfin)


}
return

【讨论】：

嗨，Roman 我失去了代码中最重要的功能是处理任意数量的选定文件现在代码只显示一个文件名。它不起作用。
嗨，罗曼，你为我节省了很多时间和精力你真的很棒很棒的帮助，一个值得称赞的倡议非常感谢你

【解决方案2】：

一个更简单的解决方案可能是只编辑一行：

SplitPath fileselected, fNameExt, fDir, fExt, fName, fDrv

然后使用fName 或任何其他你想要的结果。

当然，您可以省略其他参数：

SplitPath fileselected,,,, fName

【讨论】：

我的第一个解决方案与此非常相似，但它不能正常工作，因为 fName 只返回第一个选定的文件，而 fileselected 返回所有文件。
哦，你是对的，罗曼。我错过了 OP 对您的回答的评论。
嗨，johnlee，谢谢你的出色倡议，你教会了我一些新东西，非常感谢