加入收藏 | 设为首页 | 会员中心 | 我要投稿 南平站长网 (https://www.0599zz.com/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 站长学院 > Asp教程 > 正文

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

发布时间:2016-12-03 21:16:51 所属栏目:Asp教程 来源:站长网
导读:百度抽风,老是把吃掉行首空格,导致代码没有缩进。可以用以下方法来解决: 1、在百度贴吧切换到经典版 2、用以下脚本把代码中的制表符和空格替换成unicode编码格式 复制代码 代码如下: 'cscript //nologo C:testtest.vbs C:testtest.bat Set objFSO =
百度抽风,老是把吃掉行首空格,导致代码没有缩进。可以用以下方法来解决:
1、在百度贴吧切换到经典版
2、用以下脚本把代码中的制表符和空格替换成unicode编码格式
复制代码 代码如下:
'cscript //nologo C:testtest.vbs C:testtest.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:testtest.vbs C:testtest.bat

(编辑:南平站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读