华域联盟 vbs VBS版百度贴吧代码格式化调整工具

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

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

本文由 华域联盟 原创撰写:华域联盟 » VBS版百度贴吧代码格式化调整工具

转载请保留出处和原文链接:https://www.cnhackhy.com/16232.htm

本文来自网络,不代表华域联盟立场,转载请注明出处。

作者: sterben

发表回复

联系我们

联系我们

2551209778

在线咨询: QQ交谈

邮箱: [email protected]

工作时间:周一至周五,9:00-17:30,节假日休息

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部