足球游戏_中国足彩网¥体育资讯$

将VBS或ASP中的代码转成一句话形式
来源:易贤网 阅读:1337 次 日期:2016-07-18 15:21:33
温馨提示:易贤网小编为您整理了“将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中的代码转成一句话形式
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标