[原创] VBS版百度贴吧代码格式调整工具

HAT

百度抽风，老是把吃掉行首空格，导致代码没有缩进。可以用以下方法来解决：
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 SubCOPY

Hello123World

制表符和空格替换成unicode编码格式
是什么样的效果，层次更加分明吗

sxw

怎么切换到经典版？好像找不到了

Batcher

回复 4# sxw


打开一个帖子之后，左上方：
快速回复   切换到经典版

sxw

回复 5# Batcher


    果然是，眼真大，呵呵