您现在的位置是:网站首页> 编程资料编程资料
VBS版百度贴吧代码格式化调整工具_vbs_
2023-05-25
278人已围观
简介 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
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基础视频教程 批处理之家broly出品_vbs_
- TXT转HTM、HTML「TXT转网页」的vbs实现代码_vbs_
- 用VBS控制鼠标的实现代码(获取鼠标坐标、鼠标移动、鼠标单击、鼠标双击、鼠标右击)_vbs_
- VBS通过WMI获取CPU使用率的代码_vbs_
- VBS打开选择文件对话框代码(Win7)_vbs_
- Msxml2.XMLHTTP Msxml2.ServerXMLHTTP与缓存_vbs_
- VBS变量名Wsh等于WScript对象?_vbs_
- VBS面向对象编程与Me关键字使用介绍_vbs_
- VBS类构造函数与Default关键字使用介绍_vbs_
- 用vbs产生的若干个随机数并写入到一个.txt中的代码_vbs_
