欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

將VBS或ASP中的代碼轉(zhuǎn)成一句話形式

 更新時間：2009年07月27日 00:45:14   作者：  
將VBS或ASP中的代碼轉(zhuǎn)成一句話形式 以前都以為直接把換行符換成冒號就可以了...
結(jié)果發(fā)現(xiàn),有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!"

相關(guān)文章

最新評論