请问 怎么把文件里面的两行文字互换过来 ？【已解决】

eaglelin

请问 怎么把文件里面的两行文字互换过来 ？

aaaaaaaa
bbbbbbbb

换成

bbbbbbbb
aaaaaaaa

sunkiss

读出来写入文件吗？大体就是这样把。

$a=aaaaaaaa
$b=bbbbbbbb
$c=FileOpen ( "c:\123.txt" , 9 ) 
FileWriteLine( $c,$b);也可以用FileWrite
FileWriteLine( $c,$a)
FileClose ($c)

afan

Local $Str = _
                'aaaaaaaa' & @CRLF & _
                'bbbbbbbb'
MsgBox(0, '', $Str)
Local $sRE = StringRegExpReplace($str, '(\V+)(\v+)(\V+)', '${3}$2${1}')
MsgBox(0, '', $sRE)

eaglelin

回复 2# sunkiss


    你这个方法不行啊 你这是顺序写入两行
    不是互换

eaglelin

回复 3# afan


    谢谢 afan   可是我不是要互换两个字符串
是要在文件里面 互换两行

afan

回复  afan


    谢谢 afan   可是我不是要互换两个字符串
是要在文件里面 互换两行
eaglelin 发表于 2013-12-4 16:25

Local $File = 'test.txt', $Str = FileRead($File)
Local $sRE = StringRegExpReplace($str, '(\V+)(\v+)(\V+)', '${3}$2${1}')
FileWrite(FileOpen($File, 2), $sRE)

eaglelin

afan 发表于 2013-12-4 18:10

    我明白了 高人啊  
我一看正则表达式就发晕 ！
谢谢

sunkiss

更好办了

$a=a
$b=b
$c=$a
$a=$b
$b=$c

这样不就换过来了？

joyran

高手.....