标题: [文本处理] [已解决]批处理如何向TXT文档中插入给定的内容? [打印本页]
作者: qhefun 时间: 2013-1-13 19:50 标题: [已解决]批处理如何向TXT文档中插入给定的内容?
想往一个TXT文档中,每隔m字插入给定的内容一次,前n次插入的是“批处理”,接着插入一次“软件”;再插入n次的“批处理”,接着插入一次“软件”;如此循环直至文档末尾。。。
比如:往一个TXT文档中,每隔200字插入给定的内容一次,前3次插入“批处理”,第4次插入“软件”;然后,第5、6、7次,插入“批处理”,第8次插入“软件”;如此循环直至文档末尾。。。
这个如何实现?
作者: apang 时间: 2013-1-13 23:13
楼主这几天连续发好多求助贴。注意到楼主对绝大多数回答者都是冷冰冰干巴巴的“不行”、“达不到效果”,或干脆不予理睬,俨然就是教官拷问学生。也没看到一个标注[已解决]的。
如果真是一个问题都得不到解决,楼主何必继续在此提问呢?建议到有偿区提问,我猜楼主Money多。
作者: qhefun 时间: 2013-1-13 23:37
楼主这几天连续发好多求助贴。注意到楼主对绝大多数回答者都是冷冰冰干巴巴的“不行”、“达不到效果”,或 ...
apang 发表于 2013-1-13 23:13
回贴一般我都有好好回馈的,那只有几个冷冰冰的词。有个别问题回馈了太多次,问题也没有解决,也不想继续探讨下去了,所以就没有再继续回馈下去了。。。
我也想过加上“已处理”,但是发帖类型里面没有这个,在标题里面加上“已处理”,感觉不美观,看到其它好多帖子都没加“已处理”,以为可以不加的。。。
帮忙解决问题的,我也有表示感谢的
虽然没有对解答问题的每一位去表示感谢,对于大家的那份热心,我内心也是非常感谢的。。。
作者: batman 时间: 2013-1-14 00:06
本帖最后由 batman 于 2013-1-14 00:30 编辑
干这个批处理远不及vbs的正则:- Dim objFSO, objStr
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- objStr = objFSO.OpenTextFile("a.txt").ReadAll()
- Dim RegEx, Matches, Matche, RegStr, Str
- Set RegEx = New RegExp
- RegEx.Global = True
- RegEx.Pattern = "([\s\S]{200})"
- Set Matches = RegEx.Execute(objStr)
- For Each Matche In Matches
- i = i + 1
- j = i Mod 4
- Str = "批处理"
- If j = 0 Then Str = "软件"
- RegStr = RegStr & Matche.Submatches(0) & Str
- Next
- Set RegEx = Nothing
- objFSO.OpenTextFile("a.txt", 2 ,True).Write RegStr
- Set objFSO = Nothing
- CreateObject("Wscript.Shell").Run "cmd /ca.txt", True, False
复制代码
作者: qhefun 时间: 2013-1-14 02:25
干这个批处理远不及vbs的正则:
batman 发表于 2013-1-14 00:06
这个完全实现了我想要的结果,太有才了,非常感谢,
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |