想完成如下工作！！高手帮下忙
本帖最后由 bekiller 于 2009-5-26 11:52 编辑使用快捷键，每按一次快捷键后进行如下操作
1. 从记事本中随机读取一组数字！（前面是编号,编号可能过1000）要求随机读取
格式：
1 111
2 112
3 113
2.将读取的数字定到新的记事本中,并换行(回车) 本帖最后由 lynfr8 于 2009-5-16 01:13 编辑
运行效果图：
Global $file,$sn,$line,$result
HotKeySet("{F4}", "ReadLine");设立‘键盘F4’为热键
While 1
Sleep(500)
WEnd
Func ReadLine()
$file = FileOpen("test.txt", 0);打开需读取的文本
$sn=Random(1,3,1);随机抽取的第N行，可将3修改为你想要的数字例如1000
$line = FileReadLine($file,$sn);读取随机行数的文本
TrayTip("已转存数据", $line,0);托盘提示，可删除或换成MsgBox
FileClose($file);关闭文本
$result = FileOpen("result.txt", 1);打开需写入的文本
FileWriteLine($result,$line);在文章末尾写入之前读取的随机行数文本，并自动加回车键
FileClose($result);关闭文本
EndFunc 谢谢！！！
页:
[1]