将VBS或ASP中的代码转成一句话形式

292 阅读 0 评论 193 点赞

我是靠谱客的博主拉长茉莉，这篇文章主要介绍将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!" 