VBS版百度貼吧代碼格式化調(diào)整工具
更新時(shí)間:2011年12月24日 23:50:33 作者:
百度抽風(fēng),老是把吃掉行首空格,導(dǎo)致代碼沒(méi)有縮進(jìn),用下面的代碼即可
百度抽風(fēng),老是把吃掉行首空格,導(dǎo)致代碼沒(méi)有縮進(jìn)。可以用以下方法來(lái)解決:
1、在百度貼吧切換到經(jīng)典版
2、用以下腳本把代碼中的制表符和空格替換成unicode編碼格式
'cscript //nologo C:\test\test.vbs C:\test\test.bat
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(WScript.Arguments(0),1,True)
strAll = objFile.ReadAll()
strTab = Replace (strAll,chr(9)," ")
strBlank = Replace (strTab," ","&#" & "160;")
Call SetClipboardText(strBlank)
Sub SetClipboardText(strText)
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.Document.ParentWindow.ClipboardData.SetData "text", strText
objIE.Quit
End Sub
使用方法: 'cscript //nologo C:\test\test.vbs C:\test\test.bat
1、在百度貼吧切換到經(jīng)典版
2、用以下腳本把代碼中的制表符和空格替換成unicode編碼格式
復(fù)制代碼 代碼如下:
'cscript //nologo C:\test\test.vbs C:\test\test.bat
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(WScript.Arguments(0),1,True)
strAll = objFile.ReadAll()
strTab = Replace (strAll,chr(9)," ")
strBlank = Replace (strTab," ","&#" & "160;")
Call SetClipboardText(strBlank)
Sub SetClipboardText(strText)
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.Document.ParentWindow.ClipboardData.SetData "text", strText
objIE.Quit
End Sub
使用方法: 'cscript //nologo C:\test\test.vbs C:\test\test.bat
相關(guān)文章
URL 篩選小工具 提取網(wǎng)頁(yè)中的超鏈接地址
這個(gè)VBS是用來(lái)將一個(gè)本地網(wǎng)頁(yè)中的URL篩選出來(lái)并保存在新的網(wǎng)頁(yè)文件中。當(dāng)然,只要改變里面的正則表達(dá)式,就可以作其他用途了。2009-08-08用vbs實(shí)現(xiàn)自動(dòng)檢查代理是否可用,并自動(dòng)設(shè)置IE代理的腳本
每次用代理網(wǎng)站,找了很多代理地址,大部分是不可以用的,但是可不可用,要手工一個(gè)個(gè)的試,有點(diǎn)麻煩,下面代碼幫你解決這個(gè)問(wèn)題2008-06-06vbs實(shí)現(xiàn)恢復(fù)暫停的自動(dòng)啟動(dòng)服務(wù)的腳本
有時(shí)候我們需要把自啟動(dòng)的服務(wù)停掉,方便我們處理事務(wù),但我們?nèi)绻淮瓮5舻淖詥?dòng)服務(wù)比較多,如何一次性啟動(dòng)他們呢2008-06-06[vbs]每一行的最后一個(gè)字符轉(zhuǎn)換成_
[vbs]每一行的最后一個(gè)字符轉(zhuǎn)換成_...2006-12-12用vbs檢查注冊(cè)表項(xiàng)的訪問(wèn)權(quán)限的代碼
有時(shí)候我們需要知道我們是否對(duì)注冊(cè)表有訪問(wèn)權(quán)限,下面的代碼就是解決了這個(gè)問(wèn)題,檢查下是否能用vbs修改注冊(cè)表項(xiàng)2008-06-06教你用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能
無(wú)意中接觸了vbs這個(gè)腳本感覺(jué)挺好玩的,這篇文章主要給大家介紹了關(guān)于如何用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能的相關(guān)資料,文中通過(guò)實(shí)例代碼介紹的非常詳細(xì),需要的朋友可以參考下2022-04-04VBS教程:VBScript 基礎(chǔ)-VBScript 過(guò)程
VBS教程:VBScript 基礎(chǔ)-VBScript 過(guò)程...2006-11-11