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

批量文本精确处理

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

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

我也想知道哦,

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

我也想知道

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 编辑


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)

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因为乱灌被删了,请自重吧~
如果是因为下载源码要金币,可以搜索论坛,有好多坛友分享在百度等外链的大量源码和帮助文档带的例子可供学习~~
如果你的灌水只是为了兴趣,只怕赚来的不够扣哦,只是个善意的提醒~
页: [1]
查看完整版本: 批量文本精确处理