国产探花免费观看_亚洲丰满少妇自慰呻吟_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

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

圖片精選

主站蜘蛛池模板： 彩票| 博兴县| 揭阳市| 马鞍山市| 五常市| 新化县| 奉新县| 肃南| 德格县| 西青区| 九台市| 文昌市| 新蔡县| 龙泉市| 虹口区| 梁平县| 通州市| 贵德县| 新田县| 阜城县| 隆昌县| 颍上县| 阳东县| 潼南县| 大英县| 洛隆县| 扎囊县| 昂仁县| 高陵县| 阳西县| 禹州市| 团风县| 砀山县| 莎车县| 沙坪坝区| 赤城县| 瑞金市| 天峨县| 怀化市| 长垣县| 平原县|