您现在的位置是：网站首页> 编程资料编程资料

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

2023-05-25 257人已围观

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

结果发现,有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实现myipneighbors 域名查询结果整理_vbs_

下一篇：修改 Gateway和DNS的vbs脚本_vbs_

您现在的位置是：网站首页> 编程资料编程资料

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

相关内容

点击排行

本栏推荐

猜你喜欢