如何将选定的文本自动拷贝到剪贴板或文本文件中?
本帖最后由 JenChin 于 2012-6-14 18:14 编辑本人是新手,请教各位大虾:
请问如何将当前窗口(打开的软件,如Word,Adobe Acrobat等)中选定的文本(高亮的文本)自动拷贝到剪贴板,进而拷贝到指定的或新建的文本文件中?
谢谢! 楼主是想 send("^c") ? HotKeySet("^!a","AutoDoing") ; 热键设置ctrl+Alt+a
HotKeySet("{Esc}","_Exit")
While 1
Sleep(1000)
Wend
Func AutoDoing()
Send("^c")
Local $text = ClipGet() & @CRLF
Local $openedFile = FileOpen("C:\123.txt",9)
FileWrite($openedFile,$text)
FileClose($openedFile)
EndFunc
Func _Exit()
Exit
EndFunc回复 1# JenChin
当你选定文本后,按热键ctrl+Alt+a,自动复制文本并保存到C:\123.txt中,按Esc退出程序。 回复 3# xms77
谢谢您的答复!
不过好像不能用。 回复 4# JenChin
谁说不能用,我这儿用的好好的,到你那儿就不行了?
页:
[1]