[已解决]批处理如何向TXT文档中插入给定的内容？

qhefun · 发表于 2013-1-13 19:50:24

想往一个TXT文档中，每隔m字插入给定的内容一次，前n次插入的是“批处理”，接着插入一次“软件”；再插入n次的“批处理”，接着插入一次“软件”；如此循环直至文档末尾。。。
比如：往一个TXT文档中，每隔200字插入给定的内容一次，前3次插入“批处理”，第4次插入“软件”；然后，第5、6、7次，插入“批处理”，第8次插入“软件”；如此循环直至文档末尾。。。

这个如何实现？

apang · 发表于 2013-1-13 23:13:36

楼主这几天连续发好多求助贴。注意到楼主对绝大多数回答者都是冷冰冰干巴巴的“不行”、“达不到效果”，或干脆不予理睬，俨然就是教官拷问学生。也没看到一个标注[已解决]的。

如果真是一个问题都得不到解决，楼主何必继续在此提问呢？建议到有偿区提问，我猜楼主Money多。

qhefun · 发表于 2013-1-13 23:37:54

楼主这几天连续发好多求助贴。注意到楼主对绝大多数回答者都是冷冰冰干巴巴的“不行”、“达不到效果”，或 ...
apang 发表于 2013-1-13 23:13

回贴一般我都有好好回馈的，那只有几个冷冰冰的词。有个别问题回馈了太多次，问题也没有解决，也不想继续探讨下去了，所以就没有再继续回馈下去了。。。
我也想过加上“已处理”，但是发帖类型里面没有这个，在标题里面加上“已处理”，感觉不美观，看到其它好多帖子都没加“已处理”，以为可以不加的。。。

帮忙解决问题的，我也有表示感谢的

虽然没有对解答问题的每一位去表示感谢，对于大家的那份热心，我内心也是非常感谢的。。。

batman · 发表于 2013-1-14 00:06:51

本帖最后由 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:07

干这个批处理远不及vbs的正则：
batman 发表于 2013-1-14 00:06

这个完全实现了我想要的结果，太有才了，非常感谢，

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] [已解决]批处理如何向TXT文档中插入给定的内容？

评分

评分