|
本帖最后由 qq123123 于 2010-10-14 12:25 编辑
au3一次读取记事本1000行数据的问题,能不能提升一下速度,
我有一个记事本,大概900M 左右,一次我要读取1000行的数据出来,
小弟不才,自己做了一个,但是运行速度太慢了,特别是读取到10多万行的时候,巨卡!
请求高手帮我改善一下!或者提示一下,我需要用什么方法能做得更好
$time = @HOUR & @MIN& @SEC
$sl = 1000 ;读取指定行的字符.
$xie = FileOpen("读取到的号.ini", 2);把帐号组合在一起
$i = 1
While $i <= $sl
$yeshu = FileOpen("行号.ini", 0)
$xinghao2 = FileReadLine($yeshu,1);读出行号
FileClose($yeshu)
$ye = $xinghao2 + 1
;~ ==========
$bokebiaoti = FileOpen("原始文本.txt", 0)
$shuju = FileReadLine($bokebiaoti,$xinghao2)
FileClose($bokebiaoti)
;~ ===========
$yeshu = FileOpen("行号.ini", 2)
FileWriteLine($yeshu, $ye)
FileClose($yeshu)
ToolTip( $shuju,0,200 )
;~ ===========
If $shuju = "" Then
MsgBox(16,"提示错误","要查找的帐号不足"&$sl&"个!请更换",5)
Exit
EndIf
FileWrite($xie, $shuju&@CRLF)
$i = $i + 1
WEnd
FileClose($xie)
;~ =============================================
$xie = FileOpen("读取帐号/读取到的号.ini",0);把帐号组合在一起
$hao = FileRead($xie,88800)
FileClose($xie)
ClipPut($hao);在剪切板中写入文本.
$time_2 = @HOUR & @MIN & @SEC
$ok = $time_2 - $time
TrayTip ( "账号成功提取", "一共运行了"&$ok&"秒:",5,1 )
Sleep(1000) |
|