批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]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
复制代码

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

TOP

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

TOP

回复 4# sxw


打开一个帖子之后,左上方:
快速回复   切换到经典版
【批处理在线视频分享】http://bbs.bathome.net/thread-31727-1-1.html
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html

我帮忙写的代码不需要付钱,不用找我要支付宝或微信账号。如果一定要给,请到微信群给大家发红吧。

TOP

回复 5# Batcher


    果然是,眼真大,呵呵

TOP

返回列表