减小字体
增大字体- ·上一篇文章：终端登陆监视脚本
- ·下一篇文章：列出所有到本机80端口ESTABLISHED连接的VBS脚本
- ·百度中搜索更多的关于“把脚本转成一句形式”相关内容
- ·谷歌中搜索更多的关于“把脚本转成一句形式”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
把脚本转成一句形式
On Error Resume Next
Set Arg=Wscript.Arguments
If Arg.count=0 Then wscript.quit
Set Fso=CreateObject("Scripting.FileSystemObject")
Set gofile=Fso.OpenTextFile(arg(0),1,False,-2)
Set File=Fso.OpenTextFile(arg(0)&".txt",8,True)
File.Write replace(gofile.readall,vbcrlf,":")
gofile.close
File.close
set fso=Nothing
msgbox "ok!"
