將VBS或ASP中的代碼轉(zhuǎn)成一句話形式
更新時(shí)間：2009年07月27日 00:45:14 作者：
將VBS或ASP中的代碼轉(zhuǎn)成一句話形式 以前都以為直接把換行符換成冒號(hào)就可以了...
結(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!"
類似if xx=1 then yy=2 的也不行...
//此腳本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp
復(fù)制代碼 代碼如下:
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)文章
就是個(gè)實(shí)例，基本包含了所有對(duì)注冊(cè)表的操作。2009-05-05
VBS腳本病毒原理分析與防范...2007-02-02
管理網(wǎng)卡的vbs腳本2008-04-04
WINDOWS特有的消息常量標(biāo)識(shí)符(vb,vbs常用)
這篇文章主要介紹了WINDOWS特有的消息常量標(biāo)識(shí)符，vb,vbs中經(jīng)常用到，需要的朋友可以參考一下2019-09-09
VBS調(diào)用WMI實(shí)現(xiàn)搜索硬盤mp3文件
如果你想用遞歸搜索我也沒(méi)辦法。下面的程序搜索電腦上所有的MP3文件。2011-01-01
解鎖注冊(cè)表的vbs腳本...2007-02-02
RCLS.vbs使用幫助...2007-02-02
百度抽風(fēng)，老是把吃掉行首空格，導(dǎo)致代碼沒(méi)有縮進(jìn)，用下面的代碼即可2011-12-12
VBS教程：VBscript屬性-Pattern 屬性...2006-11-11
編寫可以打開文本文件并打亂在該文件中所找到的單詞順序的vbs腳本
編寫可以打開文本文件并打亂在該文件中所找到的單詞順序的vbs腳本...2007-03-03