[问题求助] VBS怎样把txt文本内容每间隔50行加空格一次？

pengyou86

111.txt文本中有很多行，想让VBS格式的批处理实现把txt文本内容每间隔50行加空格一次 处理后导出到123.txt中
麻烦高人给写个VBS格式
谢谢！

pengyou86

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

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

apang

Set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("111.txt",1).ReadAll

Set re = New RegExp
re.Pattern = "(.*\n){50}|[\s\S]+$"
re.Global = True
For Each m in re.Execute(text)
    fso.OpenTextFile("123.txt",8,true).WriteLine m
Next
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
txt = fso.OpenTextFile("111.txt").ReadAll

Set re = New RegExp
re.Pattern = "(.*\n){50}"
re.Global = True
fso.OpenTextFile("123.txt",2,true).Write re.Replace(txt,"$&" & vbCrLf)
复制代码

DAIC

回复 22# pengyou86


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

pengyou86

回复 18# DAIC


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

pengyou86

回复 16# DAIC


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

pengyou86

高人麻烦给解决一下 谢谢

pengyou86

在线等高人帮忙 谢谢

DAIC

回复 17# pengyou86


    在哪里？请更新到顶楼吧

pengyou86

上传了 麻烦你了

DAIC

回复 15# pengyou86


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

pengyou86

回复 13# DAIC


    上传了 麻烦你了

pengyou86

谢谢已经上传了

DAIC

回复 7# pengyou86


    把你的.bat文件和.txt文件压缩之后传上来我试试

pengyou86

求助高手帮忙写一下 谢谢