批量文本精确处理

beeprog · 发表于 2012-12-21 13:51:54

请教大写，给个能批量精确处理文本的代码，
比如，第三行末尾，插入标点符号;;;;;;;;

lxzan · 发表于 2012-12-21 17:30:39

我也想知道哦,

zym3138 · 发表于 2012-12-21 20:26:39

[quote][/quote]我也想知道

user3000 · 发表于 2012-12-21 21:43:01

本来纯求代码的帖子不应回复,但是,
无聊中把1楼当作一道练习题了: 已经很久没码代码了.

$file = 'rec.txt'
$data = FileRead($file)
$data =StringRegExpReplace($data, '(.*[\r\n]+.*[\r\n]+.*)(?s)(.*)', '\1;;;;;' & @CRLF & '\2')
FileOpen($file, 2)
FileWrite($file, $data)
FileClose($file)

beeprog · 发表于 2012-12-22 18:41:35

非常感谢大侠指点，虽然没看懂，我先用用先！！！！

netegg · 发表于 2012-12-23 11:23:07

本帖最后由 netegg 于 2012-12-23 11:28 编辑

[au3]
Local $file = '1.txt'
$line = filereadline($file, 3)
$data = FileRead($file)
$data = stringreplace($data, $line, $line & ';;;;;;;;', 1)
FileOpen($file, 2)
FileWrite($file, $data)
FileClose($file)[/au3]

annybaby · 发表于 2012-12-24 11:27:39

回复 1# beeprog

如果楼主愿意的话,可以利用现成的UDF,一句代码即可

#include'file.au3'
_FileWriteToLine('E:\桌面\新建 文本文档.txt',3,FileReadLine('E:\桌面\新建 文本文档.txt',3)&';;;;;;;;',1)

auhj887 · 发表于 2012-12-25 11:38:15

学习。。。。。学习

annybaby · 发表于 2012-12-26 17:27:39

回复 9# zxxpt6

人家楼主是提问,你要赚金钱也不要这么明显啊,到处乱灌~
刚刚有几个ID因为乱灌被删了,请自重吧~
如果是因为下载源码要金币,可以搜索论坛,有好多坛友分享在百度等外链的大量源码和帮助文档带的例子可供学习~~
如果你的灌水只是为了兴趣,只怕赚来的不够扣哦,只是个善意的提醒~

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

[系统综合] 批量文本精确处理

相关帖子

评分

评分