VBS版百度貼吧代碼格式化調(diào)整工具
更新時(shí)間：2011年12月24日 23:50:33 作者：
百度抽風(fēng)，老是把吃掉行首空格，導(dǎo)致代碼沒有縮進(jìn)，用下面的代碼即可
百度抽風(fēng)，老是把吃掉行首空格，導(dǎo)致代碼沒有縮進(jìn)?？梢杂靡韵路椒▉斫鉀Q：
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)文章
VBS獲取外網(wǎng)IP地址并發(fā)送到指定郵箱的代碼
以前腳本之家發(fā)過類似功能的文章，這篇文章的獲取網(wǎng)站不同，實(shí)現(xiàn)代碼也不錯(cuò)，喜歡的朋友可以測試下2013-07-07
用vbs實(shí)現(xiàn)將剪切板的unix格式的內(nèi)容處理成pc格式的代碼
用vbs實(shí)現(xiàn)將剪切板的unix格式的內(nèi)容處理成pc格式的代碼...2007-10-10
iis PHP安裝腳本 PHPInstall.vbs V3.1
PHP安裝腳本，您所要做的操作是：保存這個(gè)文件與要安裝的php文件夾放一起(不要放在C盤根目錄下)2009-07-07
這篇文章主要介紹了使用VBS瀏覽本地文件的3種方式，獲取完整路徑,需要的朋友可以參考下2019-12-12
VBS教程：函數(shù)-Hex 函數(shù)...2006-11-11
用vbs將名稱截?cái)嘁允蛊渥疃喟?16 個(gè)字符的代碼
用vbs將名稱截?cái)嘁允蛊渥疃喟?16 個(gè)字符的代碼...2007-03-03
vbs字符串分割函數(shù)，將字符中如入指定分割字符，需要的朋友可以參考下。2010-11-11
vbs下用一個(gè)小方法實(shí)現(xiàn)批量添加域用戶
在域模式下批量添加域用戶就有些困難，下面是一個(gè)vbs腳本，在同級(jí)目錄下用放置一個(gè)users.txt的文本文檔，格式：username,password，在dc上運(yùn)行該腳本，即可以將users.txt的用戶信息批量添加到ad里面?？梢酝ㄟ^移動(dòng)或拖拽的方法，將生成的用戶移動(dòng)到ou下面，以保證ou的組策略及文件夾重定向?qū)υ撚脩羯А?2008-06-06
VBS教程：方法-ReadAll 方法...2006-11-11
使用 Iisftp.vbs 停止FTP站點(diǎn)的方法
這篇文章主要介紹了使用 Iisftp.vbs 停止FTP站點(diǎn)的方法,需要的朋友可以參考下2014-07-07