当 autohotkey 将文本字符串插入文件时，我需要该文件的名称和路径。 AHK可以给我吗？

Question

我使用 autohotkey 将文本字符串插入到文本文件中。如何将文件的路径和名称存储在新变量中？

假设我使用此代码插入 date/time 邮票：

::iii::  ; insert a date time stamp
send, ID%A_YYYY%.%A_MM%.%A_DD%.%A_Hour%.%A_Min%.%A_Sec%
return

如何修改我的代码以存储我正在标记的文件的路径和名称？

是这样的吗？ :

::iii::  ; insert a date time stamp
send, ID%A_YYYY%.%A_MM%.%A_DD%.%A_Hour%.%A_Min%.%A_Sec%
path = <code for extracting path>
filename = <code for extracting filename>
return

Answer 1

可以使用WinGet命令获取当前活动的完整路径window:
WinGet, path, ProcessPath, A

path 是存储命令结果的变量。
ProcessPath 是命令的一个参数，告诉它您要提取哪些信息，在本例中是进程路径。
A表示要获取当前活跃的window.

的信息

要获取当前活动 window 的标题，请使用 WinGetActiveTitle 命令： WinGetActiveTitle, thetitle

StringTrimRight 用于从 window 标题中删除 " - 记事本" 部分。

您可以用这个测试您的代码：

::iii::  ; insert a date time stamp
send, ID%A_YYYY%.%A_MM%.%A_DD%.%A_Hour%.%A_Min%.%A_Sec%
WinGet, path, ProcessPath, A
WinGetActiveTitle, thetitle
StringTrimRight, thetitle, thetitle ,10
Msgbox, path=%path% `ntitle=%thetitle%
return

Answer 2

尝试

::iii::  ; insert a date time stamp
    SendInput, ID%A_YYYY%.%A_MM%.%A_DD%.%A_Hour%.%A_Min%.%A_Sec%{Enter}
    SendInput, % GetFilePath_notepad() "`n"
    SendInput, % GetFileName_notepad() "`n"
return


GetFilePath_notepad(){
    If !WinActive("ahk_class Notepad")
    {
        MsgBox, Notepad isn't active
        return
    }
    ; https://autohotkey.com/docs/commands/ComObjGet.htm
    Path := ""
    WinGet pid, PID, A
    wmi := ComObjGet("winmgmts:")
    queryEnum := wmi.ExecQuery(""
    . "Select * from Win32_Process where ProcessId=" . pid)
    ._NewEnum()
    If queryEnum[process]
    {
        Pos := InStr(process.CommandLine, .exe,, 1) 
        Path := SubStr(process.CommandLine, Pos+6)
    }
    else
        MsgBox, Process not found!
    wmi := queryEnum := process := ""
    If (Path != "")
        return %Path%
    else
        MsgBox, Path not found!     
}

GetFileName_notepad(){
    If !WinActive("ahk_class Notepad")
    {
        MsgBox, Notepad isn't active
        return
    }
    WinGetTitle, WinTitle, A
    If (SubStr(WinTitle, -9) = " - Notepad")
        FileName := SubStr(WinTitle, 1, -10)
    If (SubStr(WinTitle, -8) = " - Editor")
        FileName := SubStr(WinTitle, 1, -9)
    If (SubStr(FileName, 1, 1) = "*")
        FileName := SubStr(FileName, 2)
    return %FileName%
}

编辑：

而不是

SendInput, % GetFilePath_notepad() "`n"
SendInput, % GetFileName_notepad() "`n"

你可以使用

FilePath := GetFilePath_notepad()
    SendInput, %FilePath%{Enter}
FileName := GetFileName_notepad()
    SendInput, %FileName%{Enter}

SendInput 比 Send

更快更可靠

当 autohotkey 将文本字符串插入文件时，我需要该文件的名称和路径。 AHK可以给我吗？

When autohotkey inserts a text string into a file, I need the name and path of that file. Can AHK give it to me?

autohotkey