MaGiCmAn 发表于 2013-9-27 10:04:14

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

kevinch 发表于 2013-9-27 19:36:53

Dim $splitstr="@@@@"
$dic=ObjCreate("scripting.dictionary")
$dic.comparemode=1
$str=FileRead("z:\a.txt")
$arr=StringSplit($str,@crlf,1)
For $n=1 To $arr
        $tmp=StringSplit($arr[$n],$splitstr,1)
        If $tmp>=4 Then $dic($tmp)=$tmp
Next
$str=FileRead("z:\b.txt")
$arr=StringSplit($str,@CRLF,1)
For $n=1 To $arr
        $tmp=StringSplit($arr[$n],$splitstr,1)
        If $tmp>=2 Then
                If $dic.exists($tmp) Then
                        $tmp=$dic($tmp)
                        $str=$tmp
                        For $i=2 To $tmp
                                $str&=$splitstr&$tmp[$i]
                        Next
                        $arr[$n]=$str
                EndIf
        EndIf
Next
$str=$arr
For $n=2 To $arr
        $str&=@CRLF&$arr[$n]
Next
FileWrite("z:\c.txt",$str)不知道结果对不对，06年的老本，9秒

MaGiCmAn 发表于 2013-9-27 23:30:49

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

dtooboss 发表于 2013-9-28 08:11:27

不知道结果对不对，06年的老本，9秒
kevinch 发表于 2013-9-27 19:36 http://www.autoitx.com/images/common/back.gif

太感谢了~~~
页: 1 [2]
查看完整版本: 求教大文本文件字符串的查找替换效率问题【已解决】