批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[原创] 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
复制代码

返回列表