everything_save.ahk

;Everything、現時点の各ウィンドウの検索欄をバッチファイルとして保存 (デスクトップに出力)

batch := "`r`n" . "chcp 65001`r`n"
WinGet, list_hwnd, List, ahk_class EVERYTHING
loop, %list_hwnd%
{
    StringTrimLeft, hwnd, list_hwnd%A_Index%, 0
    ControlGetText, text, Edit1, ahk_id %hwnd%
    if (text)
    {
        StringReplace, text, text, `%, `%`%, All
        StringReplace, text, text, ", """, All
        batch .= """C:\Program Files\Everything\Everything.exe"" -newwindow -s """ . text . """`r`n"
    }
}
file := FileOpen(A_Desktop . "\Everything 各検索欄を再現.bat", "w", "UTF-8")
file.Write(batch)
file.Close()