Board logo

标题: [原创] VBS版百度贴吧代码格式调整工具 [打印本页]

作者: HAT    时间: 2011-8-20 14:22     标题: VBS版百度贴吧代码格式调整工具

百度抽风,老是把吃掉行首空格,导致代码没有缩进。可以用以下方法来解决:
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. strTab = Replace (strAll,chr(9),"    ")
  6. strBlank = Replace (strTab," ","&#" & "160;")
  7. Call SetClipboardText(strBlank)
  8. Sub SetClipboardText(strText)
  9.     Set objIE = CreateObject("InternetExplorer.Application")
  10.     objIE.Navigate("about:blank")
  11.     objIE.Document.ParentWindow.ClipboardData.SetData "text", strText
  12.     objIE.Quit
  13. End Sub
复制代码

作者: Hello123World    时间: 2011-8-20 15:53

制表符和空格替换成unicode编码格式
是什么样的效果,层次更加分明吗
作者: sxw    时间: 2011-10-13 17:45

怎么切换到经典版?好像找不到了
作者: Batcher    时间: 2011-10-18 13:39

回复 4# sxw


打开一个帖子之后,左上方:
快速回复   切换到经典版
作者: sxw    时间: 2011-10-18 14:18

回复 5# Batcher


    果然是,眼真大,呵呵




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2