将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!"



相关阅读:
php 无限级分类学习参考之对ecshop无限级分类的解析 带详细注释
网页制作技巧:获取页面可视区域的高度
Oracle数据库Decode()函数的使用方法
关于超链接的一些问题
雨哲浅谈关于防采集而不影响收录内容篇
UrlReWriter 使用经验小结
asp.net 权限管理分析
PHP注释查看器
SQL Server下几个危险的扩展存储过程
PJBlog扩展代码:利用Cookie给回头用户问候
Win2003下APACHE+PHP5+MYSQL4+PHPMYADMIN 的简易安装配置
初探OpenOffice.org 3.1
PHP程序员一般都忽略了的几点精华
WordPress安装图解教程
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4