'在下载使用别人的代码的时候,经常有一些多余的空行,虽然不影响代码的运行,但阅读起来很不爽。闲来无事,用vbs写了个删除空行的代码,只要把它存为“删除空行.vbs”(不含引号),双击运行就可以了。不过要填写脚本文件的完整路径,包括后缀名。 因为是初次写,希望大家能提些宝贵意见! const forreading=1,forwriting=2,tristateusedeafult=-2 dim fsoA,fA,tA,fsoB,fB,tB,str,dir filein sub filein dir=inputbox("请输入源文件路径:"+chr(13)+"仅支持.vbs;.js;.txt;.lrc;.cmd;.bat等."+chr(13)+"张琦制作","请输入") panduan end sub sub panduan if dir<>"" then set fsoQ=CreateObject("scripting.filesystemobject") if fsoQ.FileExists(dir) then delspa else fileinput end if end if end sub sub delspa set fsoA=CreateObject("scripting.filesystemobject") set fA=fsoA.getfile(dir) set tA=fA.openastextstream(forreading,tristateusedeafult) set fsoB=CreateObject("scripting.filesystemobject") fsoB.createtextfile("_"+dir) set fB=fsob.getfile("_"+dir) set tB=fB.openastextstream(forwriting,tristateusedeafult) while not tA.atendofstream str=tA.readline if trim(str)<>"" then tB.writeline str wend tB.close tA.close end sub sub fileinput tex=msgbox("文件没找到!!"+chr(13)+"请输入正确的文件名!"+chr(13)+"是否重新输入?",vbYesNo+vbDefaultButton1,"提示") if tex=vbYes then filein end sub