将VBS或ASP中的代码转成一句话形式
导读：收集整理的这篇文章主要介绍了将VBS或ASP中的代码转成一句话形式，觉得挺不错的，现在分享给大家，也给大家做个参考。 结果发现,有TABLE不行 类似if xx=1 then yy=2...
收集整理的这篇文章主要介绍了将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!"
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 将VBS或ASP中的代码转成一句话形式
本文地址： https://pptw.com/jishu/609784.html