文本替换字符串的问题？

vszy

<P>已知文本“ABC.TXT”内容如下： </P>
<P>test1 </P>
<P>test2</P>
<P>test3 </P>
<P>&nbsp;</P>
<P>写两个脚本 </P>
<P>1、 </P>
<P>$t = FileRead ( "abc.txt") </P>
<P>$s = StringReplace ( $t, "test1", "AAAA" ) </P>
<P>$f = FileOpen("abc.txt",2) </P>
<P>FileWrite($f,$s) </P>
<P>FileClose($f) </P>
<P>&nbsp;</P>
<P>2、 </P>
<P>$t = FileRead ( "abc.txt") </P>
<P>$s = StringReplace ( $t, "test3", "CCCC" )</P>
<P>$f = FileOpen("abc.txt",2) </P>
<P>FileWrite($f,$s) </P>
<P>FileClose($f) </P>
<P>&nbsp;</P>
<P>依次运行可得到新的“ABC.TXT”内容如下： </P>
<P>AAAA </P>
<P>test2 </P>
<P>CCCC </P>
<P>&nbsp;</P>
<P>可我写成一个脚本： </P>
<P>$t = FileRead ( "abc.txt") </P>
<P>$s1 = StringReplace ( $t, "test1", "AAAA" ) </P>
<P>$s2 = StringReplace ( $t, "test3", "CCCC" ) </P>
<P>$f = FileOpen("abc.txt",2) </P>
<P>FileWrite($f,$s1) </P>
<P>FileWrite($f,$s2) </P>
<P>FileClose($f) </P>
<P>&nbsp;</P>
<P>却得到这样的结果： </P>
<P>AAAA </P>
<P>test2</P>
<P>test3test1 </P>
<P>test2</P>
<P>CCCC</P>
<P>&nbsp;</P>
<P>不知哪里错了，望大家指教。</P>

[ 本帖最后由 vszy 于 2008-7-29 09:50 编辑 ]

sanhen

$file="abc.txt"
$sString = FileRead($file)
$sString= StringReplace($sString,'test1','AAA')
$sString= StringReplace($sString,'test3','CCC')
FileClose(FileOpen($file, 2))
FileWrite("abc.txt",$sString)

;autoit 3.2.12.0
;OS   XP SP3 测试成功

vszy

叁恨居士亲自回答，感谢ing....