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
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
相关文章
以前脚本之家发过类似功能的文章，这篇文章的获取网站不同，实现代码也不错，喜欢的朋友可以测试下2013-07-07
用vbs实现将剪切板的unix格式的内容处理成pc格式的代码
用vbs实现将剪切板的unix格式的内容处理成pc格式的代码...2007-10-10
iis PHP安装脚本 PHPInstall.vbs V3.1
PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)2009-07-07
这篇文章主要介绍了使用VBS浏览本地文件的3种方式，获取完整路径,需要的朋友可以参考下2019-12-12
VBS教程：函数-Hex 函数...2006-11-11
用vbs将名称截断以使其最多包含 16 个字符的代码...2007-03-03
vbs字符串分割函数，将字符中如入指定分割字符，需要的朋友可以参考下。2010-11-11
在域模式下批量添加域用户就有些困难，下面是一个vbs脚本，在同级目录下用放置一个users.txt的文本文档，格式：username,password，在dc上运行该脚本，即可以将users.txt的用户信息批量添加到ad里面。可以通过移动或拖拽的方法，将生成的用户移动到ou下面，以保证ou的组策略及文件夹重定向对该用户生效。2008-06-06
VBS教程：方法-ReadAll 方法...2006-11-11
这篇文章主要介绍了使用 Iisftp.vbs 停止FTP站点的方法,需要的朋友可以参考下2014-07-07
最新评论