已解决,如何用FileReadLine 读第一行后，删除这一行后，用FileWriteLine 写最后一行啊

bj17209

如何用FileReadLine 读第一行后，删除这一行后，用FileWriteLine 写最后一行啊
读取第一行后，删除第一行，将第一行的值写到最后一行啊
张三1000
王伟1000

最后一行写数据啊


谢谢了啊

kevinch

去看帮助里，fileopen的参数吧，估计有一个可以用。
或者重新整理后再重写文件。

lixiaolong

回复 1# bj17209

#include <File.au3>

SwapString(@ScriptDir & '\1.txt')

Func SwapString($File)
        Local $txt, $tmpfile = @TempDir & '\tmp.txt'
        FileDelete($tmpfile)
        Local $tmp = FileOpen($tmpfile, 1)
        _FileReadToArray($File, $txt)

        For $i = 2 To $txt[0]
                FileWriteLine($tmp, $txt[$i])
        Next
        FileWriteLine($tmp, $txt[1])
        FileClose($tmp)
        FileMove($tmpfile, $File, 1)
EndFunc   ;==>SwapString

1.txt

王伟1000
小龙1000
张三1000

netegg

#include<file.au3>
#include<array.au3>
_filereadtoarray($file, $aA)
_arraydelete($aA,0)
_arraypush($aA, $aA[0])
fileopen($file, 2)
_filewritefromarray($file, $aA)
fileclose($file)

也许不满足楼主使用filewriteline的要求

bj17209

问题解决了，谢谢各位了啊！