求教大文本文件字符串的查找替换效率问题【已解决】

MaGiCmAn

楼主研究透了请贴一个au3的源码再结贴啊。
谢谢了！

kevinch

Dim $splitstr="@@@@"
$dic=ObjCreate("scripting.dictionary")
$dic.comparemode=1
$str=FileRead("z:\a.txt")
$arr=StringSplit($str,@crlf,1)
For $n=1 To $arr[0]
        $tmp=StringSplit($arr[$n],$splitstr,1)
        If $tmp[0]>=4 Then $dic($tmp[2])=$tmp[4]
Next
$str=FileRead("z:\b.txt")
$arr=StringSplit($str,@CRLF,1)
For $n=1 To $arr[0]
        $tmp=StringSplit($arr[$n],$splitstr,1)
        If $tmp[0]>=2 Then
                If $dic.exists($tmp[1]) Then 
                        $tmp[2]=$dic($tmp[1])
                        $str=$tmp[1]
                        For $i=2 To $tmp[0]
                                $str&=$splitstr&$tmp[$i]
                        Next
                        $arr[$n]=$str
                EndIf
        EndIf
Next
$str=$arr[1]
For $n=2 To $arr[0]
        $str&=@CRLF&$arr[$n]
Next
FileWrite("z:\c.txt",$str)

不知道结果对不对，06年的老本，9秒

MaGiCmAn

回复 17# kevinch
08年的台式机，3.2秒！
很给力，谢谢分享！

dtooboss

不知道结果对不对，06年的老本，9秒
kevinch 发表于 2013-9-27 19:36

太感谢了~~~