随机抽取用Random产生一个随机行数
再用FileReadLine随即读取
给个例子: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);随机抽取的行数
$line = FileReadLine($file,$sn);读取随机行数的文本
TrayTip("已转存数据", $line,0);托盘提示,可删除或换成MsgBox
FileClose($file);关闭文本
$result = FileOpen("result.txt", 1);打开需写入的文本
FileWriteLine($result,$line);在文章末尾写入之前读取的随机行数文本,并自动加回车键
FileClose($result);关闭文本
EndFunc
|