求一个VBS小程序的问题

发布网友发布时间：2023-08-17 10:33

共2个回答

热心网友时间：2023-08-31 06:15

Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds=fso.GetFolder(".")'处理当前文件夹
Set ffs=fds.Files
For Each ff in ffs
If LCase(right(ff.Name,4))=".txt" Then'只处理.txt文件
fn=ff.Name
Set fo=fso.OpenTextFile(fn,1)
Set ft=fso.CreateTextFile(fn&"_tmp",true)
do until fo.AtEndOfStream
strline=fo.ReadLine
ft.Write(strline)
Loop
fo.Close
ft.Close
fso.DeleteFile fn
fso.MoveFile fn&"_tmp",fn
End if
Next

热心网友时间：2023-08-31 06:15

用vbs把vbcrlf替换为空就好了。正则表达式把[\r\n]替换为空追问高手好人做到底，我不会写代码

追答'**************QQ93412871原创**************

'使用方法一：拖动文件夹到程序文件上
'使用方法二：把程序放入要处理的文件夹，运行程序
'使用方法三：鼠标右键点击目标文件，选【删除换行】

'**************支持多层文件夹**************