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

上一篇：VBS脚本和BAT批处理删除自身的方法

下一篇：VBS打开选择文件对话框代码（Win7）