[已解决]vbs如何实现在txt文本行与行之间插入/添加空行或删除所有空行

老卡机

放某文件夹后执行可以对这个文件夹内的TXT进行操作。
运行后出现两个选项，第一个添加空行，第二个删除空行，可以任意选择功能执行。

DAIC

空行加在什么地方？
你需要VBS还是BAT呢？

老卡机

VBS的，TXT内容没有空行，所以行之间隔都要添加空行，第二个是删除所有空行

apang

1. Dim strPrompt, strInput
   
2. strPrompt = "1.插入空行" & vbLf & "2.删除空行" & vbLf & vbLf & "输入1或2"
   
3. Do while true
   
4.     strInput = InputBox(strPrompt, "", "1")
   
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. 
    
12. Dim fso, file, f, txt
    
13. Set fso = CreateObject("Scripting.FileSystemObject")
    
14. For Each file In fso.GetFolder(".").Files
    
15.     If LCase(Right(file, 4)) = ".txt" Then
    
16.         Set f = fso.OpenTextFile(file)
    
17.         txt = f.ReadAll
    
18.         f.Close
    
19.         Set f = Nothing
    
20.         If strInput = "1" Then
    
21.             txt = RegEx(txt, "\r\n", "$&$&")
    
22.         Else
    
23.             txt = RegEx(txt & vbCrLf, "(\s*\n)+", vbCrLf)
    
24.             If Left(txt, 2) = vbCrLf Then txt = Mid(txt, 3)
    
25.         End If
    
26.         fso.OpenTextFile(file, 2).Write txt
    
27.     End If
    
28. Next
    
29. 
    
30. MsgBox "OK"
    
31. 
    
32. Function RegEx(s, pattern, s1)
    
33.     Dim re
    
34.     Set re = New RegExp
    
35.     re.Pattern = pattern
    
36.     re.Global = true
    
37.     RegEx = re.Replace(s, s1)
    
38. End Function

复制代码

moon3003003

学习了，正好要用