批处理之家 » VBS原创&转载 » VBS版百度贴吧代码格式调整工具

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

返回列表发帖

Rank: 8 Rank: 8

帖子: 380
积分: 1159
技术: 28
捐助: 0
注册时间: 2008-8-21

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2011-8-20 14:22 | 只看该作者

[原创] VBS版百度贴吧代码格式调整工具

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

'cscript //nologo C:\test\test.vbs C:\test\test.bat
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(WScript.Arguments(0),1,True)
strAll = objFile.ReadAll()

strTab = Replace (strAll,chr(9),"    ")
strBlank = Replace (strTab," ","&#" & "160;")
Call SetClipboardText(strBlank)

Sub SetClipboardText(strText)
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate("about:blank")
    objIE.Document.ParentWindow.ClipboardData.SetData "text", strText
    objIE.Quit
End Sub
复制代码

Rank: 8 Rank: 8

帖子: 982
积分: 1525
技术: 78
捐助: 0
注册时间: 2010-10-23

2楼

发表于 2011-8-20 15:53 | 只看该作者

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

如果用到sed命令，须下载sed.exe到c:\windows\system32文件夹中。

Rank: 5 Rank: 5

帖子: 339
积分: 669
技术: 25
捐助: 0
注册时间: 2009-9-20

3楼

发表于 2011-10-13 17:45 | 只看该作者

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

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

4楼

发表于 2011-10-18 13:39 | 只看该作者

回复 4# sxw

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

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 5 Rank: 5

帖子: 339
积分: 669
技术: 25
捐助: 0
注册时间: 2009-9-20

5楼

发表于 2011-10-18 14:18 | 只看该作者

回复 5# Batcher

果然是，眼真大，呵呵