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

bj17209 · 发表于 2011-3-24 11:28:07

本帖最后由 bj17209 于 2011-3-24 15:59 编辑

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

最后一行写数据啊

谢谢了啊

kevinch · 发表于 2011-3-24 13:05:50

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

lixiaolong · 发表于 2011-3-24 13:21:20

回复 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 · 发表于 2011-3-24 13:34:56

本帖最后由 netegg 于 2011-3-24 15:40 编辑

#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 · 发表于 2011-3-24 15:54:16

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

		自动登录	找回密码
密码			加入

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