VBS怎样把txt文本内容每间隔50行加空格一次？

DAIC

回复 15# pengyou86


    你那个出问题的.bat文件怎么没有上传？

pengyou86

上传了 麻烦你了

DAIC

回复 17# pengyou86


    在哪里？请更新到顶楼吧

pengyou86

在线等高人帮忙 谢谢

pengyou86

高人麻烦给解决一下 谢谢

pengyou86

回复 16# DAIC


这个就是我之前用bat出现的错误

pengyou86

回复 18# DAIC


   http://www.bathome.net/thread-19291-1-1.html 这个就是最早的帖子 我当时求助的时候用的是这个帖子里面的批处理结果出现我上传图片的那样的情况
所以我现在求助vbs格式的批处理  bat格式我怕用了几天还会出现图上面的情况

DAIC

回复 22# pengyou86


bat和txt都是ANSI编码的话，是不会出问题的。
我让你上传有问题的bat和txt，你不肯，我也没啥办法。

apang

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. text = fso.OpenTextFile("111.txt",1).ReadAll
   
3. 
   
4. Set re = New RegExp
   
5. re.Pattern = "(.*\n){50}|[\s\S]+$"
   
6. re.Global = True
   
7. For Each m in re.Execute(text)
   
8.     fso.OpenTextFile("123.txt",8,true).WriteLine m
   
9. Next

复制代码

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. txt = fso.OpenTextFile("111.txt").ReadAll
   
3. 
   
4. Set re = New RegExp
   
5. re.Pattern = "(.*\n){50}"
   
6. re.Global = True
   
7. fso.OpenTextFile("123.txt",2,true).Write re.Replace(txt,"$&" & vbCrLf)

复制代码

pengyou86

apang 发表于 2013-12-3 17:30

    谢谢 你的帮忙 问题解决了  感谢大家对我的帮助