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

Rank: 5Rank: 5

帖子
639 
积分
1257 
技术
1  
捐助
0  
注册时间
2012-7-1 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-10-14 21:23 | 只看该作者

[问题求助] 【已解决】vbs:如何用vbs在特定字符下面插入空行

本帖最后由 思想之翼 于 2015-10-15 13:13 编辑

下述vbs代码 是在 文本的每行数据下面 添加空行
  1. Dim strPrompt, strInput

  2. strPrompt = "1.插入空行" & vbLf & "2.删除空行" & vbLf & vbLf & "输入1或2"

  3. Do while true

  4.     strInput = InputBox(strPrompt, "", "2")

  5.     If IsEmpty(strInput) Then

  6.         WScript.Quit

  7.     ElseIf strInput = "1" or strInput = "2" Then

  8.         Exit Do

  9.     End If

  10. Loop

  11. Dim fso, file, f, txt

  12. Set fso = CreateObject("Scripting.FileSystemObject")

  13. For Each file In fso.GetFolder(".").Files

  14.     If LCase(Right(file, 4)) = ".txt" Then

  15.         Set f = fso.OpenTextFile(file)

  16.         txt = f.ReadAll

  17.         f.Close

  18.         Set f = Nothing

  19.         If strInput = "1" Then

  20.             txt = RegEx(txt, "\r\n", "$&$&")

  21.         Else

  22.             txt = RegEx(txt & vbCrLf, "(\s*\n)+", vbCrLf)

  23.             If Left(txt, 2) = vbCrLf Then txt = Mid(txt, 3)

  24.         End If

  25.         fso.OpenTextFile(file, 2).Write txt

  26.     End If

  27. Next

  28. MsgBox "OK"

  29. Function RegEx(s, pattern, s1)

  30.     Dim re

  31.     Set re = New RegExp

  32.     re.Pattern = pattern

  33.     re.Global = true

  34.     RegEx = re.Replace(s, s1)

  35. End Function
复制代码
现在欲批量在若干文本:**;字符下面插入空行，处理后覆盖原文本，上述vbs如何修改？
待批量处理的若干文本数据格式如下：
[条件标识=205,温度=观测位置 限定条件 ]
{位置距离【人,名】,True,2,True}
1 2=3,
1 3=3,
1 4=5,
1 5=5
:**;
{位置距离【人,名】,True,2,True}
1 2=9,
1 3=3,
1 4=5,
2 3=5
:**;
{位置距离【人,名】,True,2,True}
1 2=3,
1 3=3,
1 4=5,
1 5=5
:**;
{位置距离【人,名】,True,2,True}
1 2=9,
1 3=3,
1 4=5,
2 3=5
:**;
收藏 分享

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2015-10-14 21:44 | 只看该作者
修改第20行的
  1.             txt = RegEx(txt, "\r\n", "$&$&")
复制代码
为
  1.             txt = RegEx(txt, "(:\*\*;)[\r\n]*", "$1\r\n\r\n")
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

思想之翼

Rank: 5Rank: 5

帖子
639 
积分
1257 
技术
1  
捐助
0  
注册时间
2012-7-1 
3楼
发表于 2015-10-14 21:50 | 只看该作者
本帖最后由 思想之翼 于 2015-10-14 21:53 编辑

回复 2# yu2n
感谢帮助。您的代码 运行结果是
[条件标识=205,温度=观测位置 限定条件 ]
{位置距离【人,名】,True,2,True}
1 2=3,
1 3=3,
1 4=5,
1 5=5
:**;\r\n\r\n{位置距离【人,名】,True,2,True}
1 2=9,
1 3=3,
1 4=5,
2 3=5
:**;\r\n\r\n{位置距离【人,名】,True,2,True}
1 2=3,
1 3=3,
1 4=5,
1 5=5
:**;\r\n\r\n{位置距离【人,名】,True,2,True}
1 2=9,
1 3=3,
1 4=5,
2 3=5
:**;\r\n\r\n


希望结果是
[条件标识=205,温度=观测位置 限定条件 ]
{位置距离【人,名】,True,2,True}
1 2=3,
1 3=3,
1 4=5,
1 5=5
:**;

{位置距离【人,名】,True,2,True}
1 2=9,
1 3=3,
1 4=5,
2 3=5
:**;

{位置距离【人,名】,True,2,True}
1 2=3,
1 3=3,
1 4=5,
1 5=5
:**;

{位置距离【人,名】,True,2,True}
1 2=9,
1 3=3,
1 4=5,
2 3=5
:**;

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
4楼
发表于 2015-10-14 22:32 | 只看该作者
本帖最后由 pcl_test 于 2015-10-14 22:44 编辑

回复 3# 思想之翼 
  1. txt = RegEx(txt, "(:\*\*;)\s*", "$1"&vbCrLf&vbCrLf)
复制代码
1

评分人数

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
5楼
发表于 2015-10-15 00:46 | 只看该作者
回复 2# yu2n


      真气走岔道了
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
6楼
发表于 2015-10-16 20:49 | 只看该作者
回复 5# CrLf


    在 Notepad++ 测试好了，就忘了改写为 VBS 。
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

思想之翼

Rank: 5Rank: 5

帖子
639 
积分
1257 
技术
1  
捐助
0  
注册时间
2012-7-1 
7楼
发表于 2015-11-7 16:28 | 只看该作者
本帖最后由 思想之翼 于 2015-11-7 16:30 编辑

回复 4# pcl_test
请教插入空行的问题

如果想在:**;下，插入一空行，上述代码修改为
txt = RegEx(txt, "(:\*\*;)\s*", "$1"&vbCrLf&vbCrLf)

如果想在:3-4;下，插入一空行，上述代码如何修改？

TOP

依山居

Rank: 5Rank: 5

帖子
593 
积分
935 
技术
49  
捐助
0  
注册时间
2008-1-3 
8楼
发表于 2015-11-7 16:56 | 只看该作者
三年都学不会一个正则表达式么。

TOP

返回列表