VBS版百度貼吧代碼格式化調整工具
更新時間：2011年12月24日 23:50:33 作者：
百度抽風，老是把吃掉行首空格，導致代碼沒有縮進，用下面的代碼即可
百度抽風，老是把吃掉行首空格，導致代碼沒有縮進。可以用以下方法來解決：
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編碼格式
復制代碼 代碼如下:
'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
相關文章
對于想結合OWC的朋友，可以參考下。2009-05-05
這個VBS是用來將一個本地網(wǎng)頁中的URL篩選出來并保存在新的網(wǎng)頁文件中。當然，只要改變里面的正則表達式，就可以作其他用途了。2009-08-08
用vbs實現(xiàn)自動檢查代理是否可用，并自動設置IE代理的腳本
每次用代理網(wǎng)站，找了很多代理地址，大部分是不可以用的，但是可不可用，要手工一個個的試，有點麻煩，下面代碼幫你解決這個問題2008-06-06
VBScript教程 第十一課深入VBScript...2006-11-11
有時候我們需要把自啟動的服務停掉，方便我們處理事務，但我們如果一次停掉的自啟動服務比較多，如何一次性啟動他們呢2008-06-06![[vbs]每一行的最后一個字符轉換成_](http://img.jbzj.com/images/xgimg/bcimg5.png)
[vbs]每一行的最后一個字符轉換成_...2006-12-12
有時候我們需要知道我們是否對注冊表有訪問權限，下面的代碼就是解決了這個問題，檢查下是否能用vbs修改注冊表項2008-06-06
VBS教程：函數(shù)-Weekday 函數(shù)...2006-11-11
無意中接觸了vbs這個腳本感覺挺好玩的,這篇文章主要給大家介紹了關于如何用vbs實現(xiàn)微信自動發(fā)送消息功能的相關資料,文中通過實例代碼介紹的非常詳細,需要的朋友可以參考下2022-04-04
VBS教程：VBScript 基礎-VBScript 過程...2006-11-11