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

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

本帖最后由 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
                FileWriteLine($tmp, $txt[$i])
        Next
        FileWriteLine($tmp, $txt)
        FileClose($tmp)
        FileMove($tmpfile, $File, 1)
EndFunc   ;==>SwapString1.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)
fileopen($file, 2)
_filewritefromarray($file, $aA)
fileclose($file)

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

bj17209 发表于 2011-3-24 15:54:16

问题解决了，谢谢各位了啊！
页: [1]
查看完整版本: 已解决,如何用FileReadLine 读第一行后，删除这一行后，用FileWriteLine 写最后一行啊