[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

TOP

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

TOP

回复 4# sxw


打开一个帖子之后,左上方:
快速回复   切换到经典版
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 5# Batcher


    果然是,眼真大,呵呵

TOP

返回列表