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

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[0]
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 请将“己”改为“已”

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

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

相关帖子

评分