按键精灵-在文档中搜索字符串,并且输出、

//按键精灵9代码
//功能：在文本d:\1.txt中查找鼠标选定的字符串。并且输出该字符串所在行。
//初始版本，多处未做错误检测机制。
//by-小鸟
//新手上路，错误多多。支持共享精神。
//

Dim Var1,MyArray,i,l(7)
For i=1 To 2
Var1 = "d:\1.txt" //指定文件位置
MyArray = Plugin.File.ReadFileEx(Var1) //加载文件
l(i) = Lib.文件.读取指定行文本内容(Var1, i)
Next //载入文件到数组

Rem do_while
WaitClick
f= GetLastClick()
GetCursorPos x, y
Delay 1000
f= GetLastClick()
GetCursorPos x1, y1
If x < x1 Then
x=x1
Goto copy_txt
End If
Goto do_while

Rem copy_txt
KeyDown 17, 1
Delay 200
KeyPress 67, 1
Delay 200
KeyUp 17, 1
cp_txt = Plugin.Sys.GetCLB() //将选中的内容复制到剪贴板，将剪切板内容赋值给cp_txt

For p = 1 To 2
pd = instrrev(l(p) , cp_txt)
If 0 < pd Then
Var2 = l(p)
Goto print
End if
Next
Call Plugin.Msg.Tips("为检索到")
Goto do_while

Rem print
Call Plugin.Msg.Tips(var2)
Form1.InputBox1.Text = Var2 //这里需要一个窗体的输入框，需要自己添加或者将该句删除或注释掉。
Goto do_while