如何将VBS或ASP中的代码转成一句话形式-创新互联

这篇文章主要介绍如何将VBS或ASP中的代码转成一句话形式，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！

成都创新互联公司坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都做网站、成都网站设计、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的高陵网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

结果发现,有TABLE不行
类似if xx=1 then yy=2 的也不行...
//此脚本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp

代码如下:

On Error Resume Next
Set Arg=Wscript.Arguments
If Arg.Count=0 Then wscript.quit
'code by NetPatch
'enjoy it
Set Fso=CreateObject("Scripting.FileSystemObject")
Set File=Fso.OpenTextFile(arg(0),1,False,-2)
Set Files=Fso.OpenTextFile(arg(0)&".vbs",2,True)
Do While File.AtEndOfStream <> True
szBuf=File.readline
szBuf=Replace(szBuf,chr(9),"")
Findnum=InStr(LCase(szBuf),"then")
If Findnum >0 Then
Findnum=findnum+3
If Len(szBuf) > Findnum Then
szBuf=szBuf&":End If"
End If
End If
Files.Write szBuf&":"
Loop
File.Close
Files.Close
Set Fso=Nothing
Wscript.echo "ok!"

以上是“如何将VBS或ASP中的代码转成一句话形式”这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注创新互联行业资讯频道！

分享名称：如何将VBS或ASP中的代码转成一句话形式-创新互联
当前链接：http://bzwzjz.com/article/ddjdhs.html