手机
当前位置:查字典教程网 >脚本专栏 >vbs >将VBS或ASP中的代码转成一句话形式
将VBS或ASP中的代码转成一句话形式
摘要:结果发现,有TABLE不行类似ifxx=1thenyy=2的也不行...//此脚本支持拖放,也可以在命令行下使用cscriptchange....

结果发现,有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版百度贴吧代码格式化调整工具

读取Access数据库的vbscript代码打包下载

从XML文件中获取信息的vbs代码

VBS文本文件操作实现代码

VBS中InputBox函数的返回值使用技巧

SendKeys clip.exe 发送中文的代码

用VBS实现音乐播放的多个代码小结

vbs 注册表操作类代码

VBS调用Photoshop批量生成缩略图的代码

vbs复制文件夹的实现代码

精品推荐
分类导航