问题描述
我有以下脚本。我不确定如何使用向上或向下箭头键修改它以浏览结果。要运行它,只需创建一个.txt文件并在其中添加一些单词(每行一个单词),然后将文件路径编辑到.txt文件所在的位置。然后,只需搜索至少在两行中找到的关键字即可。例如
Word1
Word2
如果您搜索单词,它将同时返回单词1和单词2。然后,我只需要使用向上和向下箭头键在它们之间进行选择即可。
F9::
{
FilePath := "D:\5. Programs\AutoHotkey L x64\test.txt"
Gui,Destroy
Gui,Font,S20
Gui,Add,Text,X25 Y10 W450 H30 +Center,Search Box
Gui,S10
Gui,Edit,XP Y+20 W450 H20 vSearchString,Gui,Color
Gui,Show,W500 H100,Search Box
return
#IfWinActive,Search Box
{
Enter::
Gui,Submit,NoHide
ResultList := []
ChosenString := ""
Loop,Read,%FilePath%
{
if (InStr(A_LoopReadLine,SearchString))
{
ResultList.Push(A_LoopReadLine)
}
}
if (!ResultList.Length())
{
;MsgBox % "No match found!"
return
}
Gui,displayResults:New,-MaximizeBox -MinimizeBox,Search results
Gui,w250,% "Click on one of the results below:"
for key,value in ResultList
{
if (key = 1)
Gui,Radio,gSelectResult vChosenString,%value%
else
Gui,gSelectResult,%value%
}
Gui,displayResults:Show
return
SelectResult:
Gui,displayResults:Submit
;MsgBox,% ResultList[ChosenString]
Clipboard := % ResultList[ChosenString]
return
}
}
return
解决方法
您不希望GUI消失吗?
像这样在行号44中添加NoHide
:
Gui,DisplayResults:Submit,NoHide
。