找回密码
 加入
搜索
查看: 2289|回复: 4

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

[复制链接]
发表于 2010-12-15 14:28:55 | 显示全部楼层 |阅读模式
本帖最后由 nathan2008 于 2010-12-15 18:00 编辑

小弟先谢谢了!初学,请多指教

先在记事本里面读取第一行的内容,再把读取到的内容写到最后一行
发表于 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)

评分

参与人数 1金钱 +10 收起 理由
nathan2008 + 10

查看全部评分

 楼主| 发表于 2010-12-15 17:59:35 | 显示全部楼层
谢谢afan,问题已解决
发表于 2010-12-15 18:12:45 | 显示全部楼层
#include<file.au3>
_filewritetoline($file,_ filecountlines($file)+1, filereadline($file, 1))
发表于 2010-12-15 18:31:00 | 显示全部楼层
LZ 请将“己”改为“已”
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 11:23 , Processed in 0.089429 second(s), 27 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表