acetaohai123 发表于 2011-12-4 13:42:40

求教TXT文件分割的原理

我想做一个TXT文件分割工具,但是FileReadLine效率太低,而且也不是按照大小等分的,请问大虾们怎么做这个TXT分割。判断了文件大小之后难道除以份数就可以了吗?

lixiaolong 发表于 2011-12-4 15:39:36

回复 1# acetaohai123

我不知道原理,如果是看行的话这样处理快点(也许有更快的).


#include <File.au3>

$file = "C:\Windows\WindowsUpdate.log"

$line = _FileCountLines($file)
;~ MsgBox(4096, "", $line)

Dim $aRecords
If Not _FileReadToArray($file, $aRecords) Then
        MsgBox(4096, "", @error)
        Exit
EndIf
For $x = 1 To $aRecords
        If $x <= 5000 Then
                ConsoleWrite($aRecords[$x] & @CRLF)
        Else
                If $x >= 5000 Then ConsoleWrite($x & @CRLF)
        EndIf
Next

mylve 发表于 2011-12-7 14:50:00

学习中{:face (427):}

Qokelate 发表于 2011-12-8 00:05:16

不考虑内存占用的话直接内存中切割,速度应该是最快的
$a=fileopen(@scriptfullpath)
$b=fileread($a)
$c=stringsplit($b,@crlf,1)
fileclose($a)

kk_lee69 发表于 2011-12-8 01:04:30

可以參考這篇文章
http://www.autoitx.com/forum.php?mod=viewthread&tid=28732&highlight=
页: [1]
查看完整版本: 求教TXT文件分割的原理