VBS版百度贴吧代码格式化调整工具

更新时间：2011年12月24日 23:50:33 作者：

百度抽风，老是把吃掉行首空格，导致代码没有缩进，用下面的代码即可

百度抽风，老是把吃掉行首空格，导致代码没有缩进。可以用以下方法来解决：
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 

使用方法: 'cscript //nologo C:\test\test.vbs C:\test\test.bat

VbScript 封裝MS OWC(二)
对于想结合OWC的朋友，可以参考下。
2009-05-05
URL 筛选小工具提取网页中的超链接地址
这个VBS是用来将一个本地网页中的URL筛选出来并保存在新的网页文件中。当然，只要改变里面的正则表达式，就可以作其他用途了。
2009-08-08
用vbs实现自动检查代理是否可用，并自动设置IE代理的脚本
每次用代理网站，找了很多代理地址，大部分是不可以用的，但是可不可用，要手工一个个的试，有点麻烦，下面代码帮你解决这个问题
2008-06-06
VBScript教程第十一课深入VBScript
VBScript教程第十一课深入VBScript...
2006-11-11
vbs实现恢复暂停的自动启动服务的脚本
有时候我们需要把自启动的服务停掉，方便我们处理事务，但我们如果一次停掉的自启动服务比较多，如何一次性启动他们呢
2008-06-06
[vbs]每一行的最后一个字符转换成_
[vbs]每一行的最后一个字符转换成_...
2006-12-12
用vbs检查注册表项的访问权限的代码
有时候我们需要知道我们是否对注册表有访问权限，下面的代码就是解决了这个问题，检查下是否能用vbs修改注册表项
2008-06-06
VBS教程：函数-Weekday 函数
VBS教程：函数-Weekday 函数...
2006-11-11
教你用vbs实现微信自动发送消息功能
无意中接触了vbs这个脚本感觉挺好玩的,这篇文章主要给大家介绍了关于如何用vbs实现微信自动发送消息功能的相关资料,文中通过实例代码介绍的非常详细,需要的朋友可以参考下
2022-04-04
VBS教程：VBScript 基础-VBScript 过程
VBS教程：VBScript 基础-VBScript 过程...
2006-11-11