国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS版百度貼吧代碼格式化調整工具

2019-10-26 18:04:48
字體：大 中 小
來源：轉載
供稿：網友
百度抽風，老是把吃掉行首空格，導致代碼沒有縮進。可以用以下方法來解決：
1、在百度貼吧切換到經典版
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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板： 正蓝旗| 沽源县| 金乡县| 津市市| 仁布县| 道孚县| 塔城市| 墨脱县| 东乡族自治县| 教育| 浙江省| 平顺县| 清水河县| 恩平市| 汨罗市| 宝清县| 偏关县| 宕昌县| 保康县| 鄂尔多斯市| 襄垣县| 怀化市| 兖州市| 长宁县| 岑巩县| 元朗区| 耒阳市| 虎林市| 察隅县| 米泉市| 鹤峰县| 六安市| 古浪县| 芒康县| 浦东新区| 那坡县| 永修县| 电白县| 芜湖县| 长岭县| 珲春市|