论坛 › 已解决问题区 › 怎么把读取到的内容写到记事本的最后一行 [己解决]

nathan2008 发表于 2010-12-15 14:28:55

怎么把读取到的内容写到记事本的最后一行 [己解决]

本帖最后由 nathan2008 于 2010-12-15 18:00 编辑

小弟先谢谢了！初学，请多指教

先在记事本里面读取第一行的内容，再把读取到的内容写到最后一行

afan 发表于 2010-12-15 17:17:38

Local $File = '1.txt'
Local $str = FileRead($File)
Local $sR = StringRegExp($str, '\V+', 1)
If @error Then Exit -1
$str = StringRegExpReplace($str, '\V+\v+', '', 1)
$str = StringRegExpReplace($str, '\v+$', '') & @CRLF & $sR
Local $FO = FileOpen($File, 2)
FileWrite($FO, $str)
FileClose($FO)

nathan2008 发表于 2010-12-15 17:59:35

谢谢afan，问题已解决

netegg 发表于 2010-12-15 18:12:45

#include<file.au3>
_filewritetoline($file,_ filecountlines($file)+1, filereadline($file, 1))

afan 发表于 2010-12-15 18:31:00

LZ 请将“己”改为“已”

查看完整版本: 怎么把读取到的内容写到记事本的最后一行 [己解决]