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

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

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

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



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

TOP

本帖最后由 apang 于 2013-12-17 10:26 编辑
  1. Set fso = CreateObject("Scripting.FileSystemObject")
  2. text = fso.OpenTextFile("111.txt",1).ReadAll
  3. Set re = New RegExp
  4. re.Pattern = "(.*\n){50}|[\s\S]+$"
  5. re.Global = True
  6. For Each m in re.Execute(text)
  7.     fso.OpenTextFile("123.txt",8,true).WriteLine m
  8. Next
复制代码
  1. Set fso = CreateObject("Scripting.FileSystemObject")
  2. txt = fso.OpenTextFile("111.txt").ReadAll
  3. Set re = New RegExp
  4. re.Pattern = "(.*\n){50}"
  5. re.Global = True
  6. fso.OpenTextFile("123.txt",2,true).Write re.Replace(txt,"$&" & vbCrLf)
复制代码

TOP

回复 22# pengyou86


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

TOP

回复 18# DAIC


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

TOP

回复 16# DAIC


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

TOP

高人麻烦给解决一下 谢谢

TOP

在线等高人帮忙 谢谢

TOP

回复 17# pengyou86


    在哪里?请更新到顶楼吧

TOP

上传了 麻烦你了

TOP

回复 15# pengyou86


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

TOP

回复 13# DAIC


    上传了 麻烦你了

TOP

谢谢已经上传了

TOP

回复 7# pengyou86


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

TOP

求助高手帮忙写一下 谢谢

TOP

返回列表