VBS版百度贴吧代码格式调整工具

HAT

百度抽风，老是把吃掉行首空格，导致代码没有缩进。可以用以下方法来解决：
1、在百度贴吧切换到经典版
2、用以下脚本把代码中的制表符和空格替换成unicode编码格式

1. 'cscript //nologo C:\test\test.vbs C:\test\test.bat
   
2. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
3. Set objFile = objFSO.OpenTextFile(WScript.Arguments(0),1,True)
   
4. strAll = objFile.ReadAll()
   
5. 
   
6. strTab = Replace (strAll,chr(9),"    ")
   
7. strBlank = Replace (strTab," ","&#" & "160;")
   
8. Call SetClipboardText(strBlank)
   
9. 
   
10. Sub SetClipboardText(strText)
    
11.     Set objIE = CreateObject("InternetExplorer.Application")
    
12.     objIE.Navigate("about:blank")
    
13.     objIE.Document.ParentWindow.ClipboardData.SetData "text", strText
    
14.     objIE.Quit
    
15. End Sub

复制代码

Hello123World

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

sxw

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

Batcher

回复 4# sxw


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

sxw

回复 5# Batcher


    果然是，眼真大，呵呵