溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

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

發(fā)布時(shí)間：2021-10-08 14:01:55 來源：億速云 閱讀：101 作者：小新 欄目：開發(fā)技術(shù)

這篇文章主要介紹如何將VBS或ASP中的代碼轉(zhuǎn)成一句話形式，文中介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們一定要看完！

結(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!"

以上是“如何將VBS或ASP中的代碼轉(zhuǎn)成一句話形式”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對(duì)大家有幫助，更多相關(guān)知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！

向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如果涉及侵權(quán)請(qǐng)聯(lián)系站長郵箱：is@yisu.com進(jìn)行舉報(bào)，并提供相關(guān)證據(jù)，一經(jīng)查實(shí)，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手