將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)文章
用vbs確定計(jì)算機(jī)是否有 USB 2.0 端口的代碼
用vbs確定計(jì)算機(jī)是否有 USB 2.0 端口的代碼...2007-03-03
VBS教程：VBScript 語句-Property Let 語句
VBS教程：VBScript 語句-Property Let 語句...2006-11-11
VBS 十六進(jìn)制異或加密實(shí)現(xiàn)代碼
文件不要過大，最好不要超過 100 KB，密鑰不要用數(shù)字，不想改了。理論上支持任何二進(jìn)制文件格式2013-07-07
用vbscript實(shí)現(xiàn)修改屏幕保護(hù)的等待時(shí)間長(zhǎng)度
用vbscript實(shí)現(xiàn)修改屏幕保護(hù)的等待時(shí)間長(zhǎng)度...2007-04-04
這篇文章主要為大家介紹了在電腦上實(shí)現(xiàn)微信多開的技巧教程，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪2023-03-03
用vbs檢查注冊(cè)表項(xiàng)的訪問權(quán)限的代碼
有時(shí)候我們需要知道我們是否對(duì)注冊(cè)表有訪問權(quán)限，下面的代碼就是解決了這個(gè)問題，檢查下是否能用vbs修改注冊(cè)表項(xiàng)2008-06-06
VBS教程：VBscript屬性-功能介紹...2006-11-11
VBS教程：屬性-DriveLetter 屬性...2006-11-11
使用xcacls.vbs(cacls.exe)修改NTFS權(quán)限說明(中文版)
本分步指南介紹如何使用擴(kuò)展的更改訪問控制列表工具 (cacls.exe，對(duì)應(yīng)的腳本文件是xcacls.vbs) 修改和查看文件或文件夾的 NTFS 權(quán)限。2010-08-08
使用 Iisftp.vbs 停止FTP站點(diǎn)的方法
這篇文章主要介紹了使用 Iisftp.vbs 停止FTP站點(diǎn)的方法,需要的朋友可以參考下2014-07-07