用VBS写的VBSCRIPT代码格式化工具VbsBeautifier-6ren

用VBS写的VBSCRIPT代码格式化工具VbsBeautifier

转载作者：qq735679552 更新时间：2022-09-29 22:32:09

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章用VBS写的VBSCRIPT代码格式化工具VbsBeautifier由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

昨天在VBS吧看到一个精华帖《VBS代码格式化工具》，是用C++写的，区区VBS代码格式化，就不要劳C++大驾了吧，用VBS实现VBS代码格式化工具不是更自然么?

。

网上的VBS代码大部分都没有缩进，新手不知道要缩进，高手缩进了被某些个垃圾网站采集以后也就没有了缩进，还有以一些博客贴吧也会把缩进给吃掉。除了缩进之外，由于学VBS的大部分都是学批处理出身，代码风格还是跟写批处理一样难看。其实一般情况下用VbsEdit 5.2.4.0自带的代码格式化功能就行了，没有必要重复造轮子。只不过VbsEdit 5.2.4.0在格式化带有冒号的代码时不是很理想，加上我已经很久没有写过像样的VBS脚本了，所以还是决定造一下轮子.

因为代码比较长，所以贴在文章的最后，下面是VBS代码格式化工具的效果演示:

格式化前的VBS代码:

。

复制代码代码如下:

 
 ON ERROR RESUME NEXT:Set fso = CreateObject("Scripting.FileSystemObject"):X=0:T=true:WhiLe T 
 
 Input=Inputbox("Filename Lowercase Batch Convertor"&vbcrlf&vbcrlf& _ 
 
 "Please input the destination folder name. e.g. C:\Webmaster"&vbcrlf&vbcrlf& _ 
 
 "Note: Do NOT add '\' in the end of folder name!","FLowercase Convertor","C:\") 
 
 iF Input="" then:Msgbox"Folder name is empty!",48,"Error!":T=true:else T=false:end If:wend 
 
 Msgbox"All files names of "&Input&" will be converted to lowercase now...",64,"Note" 
 
 fold(Input):Msgbox"Done! Total "&X&" file(s) were converted to lowercase.",64,"Done" 
 
 sub fold(Path):SET f=fso.GetFolder(Path):Set rf = fso.GetFolder(Path).files:Set fc = f.SubFolders 
 
 foR EACh fff in rf:lcf1=LCase(fso.GetAbsolutePathName(fff)) 
 
 fso.MoveFile fff, lcf1:X=X + 1:next:for EacH f1 in fc:fold(f1) 
 
 Set file=fso.GetFolder(f1).files:fOR EACh ff iN file:lcf=LCase(fso.GetAbsolutePathName(ff)) 
 
 fso.MoveFile ff,lcf:NEXT:NEXT:END sub

。

格式化后的VBS代码:

 
    ? 
   
         On 
         Error 
         Resume 
         Next 
        
         Set 
         fso = CreateObject( 
         "Scripting.FileSystemObject" 
         ) 
        
         X = 0 
        
         T =  
         True 
        
         While 
         T 
        
         Input = InputBox( 
         "Filename Lowercase Batch Convertor" 
         & vbCrLf & vbCrLf & _ 
        
         "Please input the destination folder name. e.g. C:\Webmaster" 
         & vbCrLf & vbCrLf & _ 
        
         "Note: Do NOT add '\' in the end of folder name!" 
         , 
         "FLowercase Convertor" 
         ,"C:\") 
        
         If 
         Input =  
         "" 
         Then 
        
         MsgBox 
         "Folder name is empty!" 
         ,48, 
         "Error!" 
        
         T =  
         True 
        
         Else 
         T =  
         False 
        
         End 
         If 
        
         WEnd 
        
         MsgBox 
         "All files names of " 
         & Input &  
         " will be converted to lowercase now..." 
         ,64, 
         "Note" 
        
         fold(Input) 
        
         MsgBox 
         "Done! Total " 
         & X &  
         " file(s) were converted to lowercase." 
         ,64, 
         "Done" 
        
         Sub 
         fold(Path) 
        
         Set 
         f = fso.GetFolder(Path) 
        
         Set 
         rf = fso.GetFolder(Path).files 
        
         Set 
         fc = f.SubFolders 
        
         For 
         Each 
         fff  
         In 
         rf 
        
         lcf1 = LCase(fso.GetAbsolutePathName(fff)) 
        
         fso.MoveFile fff, lcf1 
        
         X = X + 1 
        
         Next 
        
         For 
         Each 
         f1  
         In 
         fc 
        
         fold(f1) 
        
         Set 
         file = fso.GetFolder(f1).files 
        
         For 
         Each 
         ff  
         In 
         file 
        
         lcf = LCase(fso.GetAbsolutePathName(ff)) 
        
         fso.MoveFile ff,lcf 
        
         Next 
        
         Next 
        
         End 
         Sub

VBS代码格式化工具的源码:

 
    ? 
   
         Option 
         Explicit 
        
         If 
         WScript.Arguments.Count = 0  
         Then 
        
         MsgBox  
         "请将要格式化的代码文件拖动到这个文件上" 
         , vbInformation,  
         "使用方法" 
        
         WScript.Quit 
        
         End 
         If 
        
         '作者: Demon 
        
         '时间: 2011/12/24 
        
         '链接: http://demon.tw/my-work/vbs-beautifier.html 
        
         '描述: VBScript 代码格式化工具 
        
         '注意:  
        
         '1. 错误的 VBScript 代码不能被正确地格式化 
        
         '2. 代码中不能含有%[comment]% %[quoted]%等模板标签, 有待改进 
        
         '3. 由2可知, 该工具不能格式化自身 
        
         Dim 
         Beautifier, i 
        
         Set 
         Beautifier =  
         New 
         VbsBeautifier 
        
         For 
         Each 
         i  
         In 
         WScript.Arguments 
        
         Beautifier.BeautifyFile i 
        
         Next 
        
         MsgBox  
         "代码格式化完成" 
         , vbInformation,  
         "提示" 
        
         Class 
         VbsBeautifier 
        
         'VbsBeautifier类 
        
         Private 
         quoted, comments, code, indents 
        
         Private 
         ReservedWord, BuiltInFunction, BuiltInConstants, VersionInfo 
        
         '公共方法 
        
         '格式化字符串 
        
         Public 
         Function 
         Beautify( 
         ByVal 
         input) 
        
         code = input 
        
         code = Replace(code, vbCrLf, vbLf) 
        
         Call 
         GetQuoted() 
        
         Call 
         GetComments() 
        
         Call 
         GetErrorHandling() 
        
         Call 
         ColonToNewLine() 
        
         Call 
         FixSpaces() 
        
         Call 
         ReplaceReservedWord() 
        
         Call 
         InsertIndent() 
        
         Call 
         FixIndent() 
        
         Call 
         PutErrorHandling() 
        
         Call 
         PutComments() 
        
         Call 
         PutQuoted() 
        
         code = Replace(code, vbLf, vbCrLf) 
        
         code = VersionInfo & code 
        
         Beautify = code 
        
         End 
         Function 
        
         '公共方法 
        
         '格式化文件 
        
         Public 
         Function 
         BeautifyFile( 
         ByVal 
         path) 
        
         Dim 
         fso 
        
         Set 
         fso = CreateObject( 
         "scripting.filesystemobject" 
         ) 
        
         BeautifyFile = Beautify(fso.OpenTextFile(path).ReadAll) 
        
         '备份文件以免出错 
        
         fso.GetFile(path).Copy path &  
         ".bak" 
         ,  
         True 
        
         fso.OpenTextFile(path, 2,  
         True 
         ).Write(BeautifyFile) 
        
         End 
         Function 
        
         Private 
         Sub 
         Class_Initialize() 
        
         '保留字 
        
         ReservedWord =  
         "And As Boolean ByRef Byte ByVal Call Case Class Const Currency Debug Dim Do Double Each Else ElseIf Empty End EndIf Enum Eqv Event Exit Explicit False For Function Get Goto If Imp Implements In Integer Is Let Like Long Loop LSet Me Mod New Next Not Nothing Null On Option Optional Or ParamArray Preserve Private Property Public RaiseEvent ReDim Rem Resume RSet Select Set Shared Single Static Stop Sub Then To True Type TypeOf Until Variant WEnd While With Xor" 
        
         '内置函数 
        
         BuiltInFunction =  
         "Abs Array Asc Atn CBool CByte CCur CDate CDbl CInt CLng CSng CStr Chr Cos CreateObject Date DateAdd DateDiff DatePart DateSerial DateValue Day Escape Eval Exp Filter Fix FormatCurrency FormatDateTime FormatNumber FormatPercent GetLocale GetObject GetRef Hex Hour InStr InStrRev InputBox Int IsArray IsDate IsEmpty IsNull IsNumeric IsObject Join LBound LCase LTrim Left Len LoadPicture Log Mid Minute Month MonthName MsgBox Now Oct Randomize RGB RTrim Replace Right Rnd Round ScriptEngine ScriptEngineBuildVersion ScriptEngineMajorVersion ScriptEngineMinorVersion Second SetLocale Sgn Sin Space Split Sqr StrComp StrReverse String Tan Time TimeSerial TimeValue Timer Trim TypeName UBound UCase Unescape VarType Weekday WeekdayName Year" 
        
         '内置常量 
        
         BuiltInConstants =  
         "vbBlack vbRed vbGreen vbYellow vbBlue vbMagenta vbCyan vbWhite vbBinaryCompare vbTextCompare vbSunday vbMonday vbTuesday vbWednesday vbThursday vbFriday vbSaturday vbUseSystemDayOfWeek vbFirstJan1 vbFirstFourDays vbFirstFullWeek vbGeneralDate vbLongDate vbShortDate vbLongTime vbShortTime vbObjectError vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancel vbYesNo vbRetryCancel vbCritical vbQuestion vbExclamation vbInformation vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbDefaultButton4 vbApplicationModal vbSystemModal vbOK vbCancel vbAbort vbRetry vbIgnore vbYes vbNo vbCr vbCrLf vbFormFeed vbLf vbNewLine vbNullChar vbNullString vbTab vbVerticalTab vbUseDefault vbTrue vbFalse vbEmpty vbNull vbInteger vbLong vbSingle vbDouble vbCurrency vbDate vbString vbObject vbError vbBoolean vbVariant vbDataObject vbDecimal vbByte vbArray WScript" 
        
         '版本信息 
        
         VersionInfo = Chr(39) & Chr(86) & Chr(98) & Chr(115) & Chr(66) & Chr(101) & Chr(97) & Chr(117) & Chr(116) & Chr(105) & Chr(102) & Chr(105) & Chr(101) & Chr(114) & Chr(32) & Chr(49) & Chr(46) & Chr(48) & Chr(32) & Chr(98) & Chr(121) & Chr(32) & Chr(68) & Chr(101) & Chr(109) & Chr(111) & Chr(110) & Chr(13) & Chr(10) & Chr(39) & Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(100) & Chr(101) & Chr(109) & Chr(111) & Chr(110) & Chr(46) & Chr(116) & Chr(119) & Chr(13) & Chr(10) 
        
         '缩进大小 
        
         Set 
         indents = CreateObject( 
         "scripting.dictionary" 
         ) 
        
         indents( 
         "if" 
         ) = 1 
        
         indents( 
         "sub" 
         ) = 1 
        
         indents( 
         "function" 
         ) = 1 
        
         indents( 
         "property" 
         ) = 1 
        
         indents( 
         "for" 
         ) = 1 
        
         indents( 
         "while" 
         ) = 1 
        
         indents( 
         "do" 
         ) = 1 
        
         indents( 
         "for" 
         ) = 1 
        
         indents( 
         "select" 
         ) = 1 
        
         indents( 
         "with" 
         ) = 1 
        
         indents( 
         "class" 
         ) = 1 
        
         indents( 
         "end" 
         ) = -1 
        
         indents( 
         "next" 
         ) = -1 
        
         indents( 
         "loop" 
         ) = -1 
        
         indents( 
         "wend" 
         ) = -1 
        
         End 
         Sub 
        
         Private 
         Sub 
         Class_Terminate() 
        
         '什么也不做 
        
         End 
         Sub 
        
         '将字符串替换成%[quoted]% 
        
         Private 
         Sub 
         GetQuoted() 
        
         Dim 
         re 
        
         Set 
         re =  
         New 
         RegExp 
        
         re.Global =  
         True 
        
         re.Pattern =  
         "" 
         ".*?" 
         "" 
        
         Set 
         quoted = re.Execute(code) 
        
         code = re.Replace(code,  
         "%[quoted]%" 
         ) 
        
         End 
         Sub 
        
         '将%[quoted]%替换回字符串 
        
         Private 
         Sub 
         PutQuoted() 
        
         Dim 
         i 
        
         For 
         Each 
         i  
         In 
         quoted 
        
         code = Replace(code,  
         "%[quoted]%" 
         , i, 1, 1) 
        
         Next 
        
         End 
         Sub 
        
         '将注释替换成%[comment]% 
        
         Private 
         Sub 
         GetComments() 
        
         Dim 
         re 
        
         Set 
         re =  
         New 
         RegExp 
        
         re.Global =  
         True 
        
         re.Pattern =  
         "'.*" 
        
         Set 
         comments = re.Execute(code) 
        
         code = re.Replace(code,  
         "%[comment]%" 
         ) 
        
         End 
         Sub 
        
         '将%[comment]%替换回注释 
        
         Private 
         Sub 
         PutComments() 
        
         Dim 
         i 
        
         For 
         Each 
         i  
         In 
         comments 
        
         code = Replace(code,  
         "%[comment]%" 
         , i, 1, 1) 
        
         Next 
        
         End 
         Sub 
        
         '将冒号替换成换行 
        
         Private 
         Sub 
         ColonToNewLine 
        
         code = Replace(code,  
         ":" 
         , vbLf) 
        
         End 
         Sub 
        
         '将错误处理语句替换成模板标签 
        
         Private 
         Sub 
         GetErrorHandling() 
        
         Dim 
         re 
        
         Set 
         re =  
         New 
         RegExp 
        
         re.Global =  
         True 
        
         re.IgnoreCase =  
         True 
        
         re.Pattern =  
         "on\s+error\s+resume\s+next" 
        
         code = re.Replace(code,  
         "%[resumenext]%" 
         ) 
        
         re.Pattern =  
         "on\s+error\s+goto\s+0" 
        
         code = re.Replace(code,  
         "%[gotozero]%" 
         ) 
        
         End 
         Sub 
        
         '将模板标签替换回错误处理语句 
        
         Private 
         Sub 
         PutErrorHandling() 
        
         code = Replace(code,  
         "%[resumenext]%" 
         ,  
         "On Error Resume Next" 
         ) 
        
         code = Replace(code,  
         "%[gotozero]%" 
         ,  
         "On Error GoTo 0" 
         ) 
        
         End 
         Sub 
        
         '格式化空格 
        
         Private 
         Sub 
         FixSpaces() 
        
         Dim 
         re 
        
         Set 
         re =  
         New 
         RegExp 
        
         re.Global =  
         True 
        
         re.IgnoreCase =  
         True 
        
         re.MultiLine =  
         True 
        
         '去掉每行前后的空格 
        
         re.Pattern =  
         "^[ \t]*(.*?)[ \t]*$" 
        
         code = re.Replace(code,  
         "$1" 
         ) 
        
         '在操作符前后添加空格 
        
         re.Pattern =  
         "[ \t]*(=|<|>|-|\+|&|\*|/|\^|\\)[ \t]*" 
        
         code = re.Replace(code,  
         " $1 " 
         ) 
        
         '去掉<>中间的空格 
        
         re.Pattern =  
         "[ \t]*<\s*>[ \t]*" 
        
         code = re.Replace(code,  
         " <> " 
         ) 
        
         '去掉<=中间的空格 
        
         re.Pattern =  
         "[ \t]*<\s*=[ \t]*" 
        
         code = re.Replace(code,  
         " <= " 
         ) 
        
         '去掉>=中间的空格 
        
         re.Pattern =  
         "[ \t]*>\s*=[ \t]*" 
        
         code = re.Replace(code,  
         " >= " 
         ) 
        
         '在行尾的 _ 前面加上空格 
        
         re.Pattern =  
         "[ \t]*_[ \t]*$" 
        
         code = re.Replace(code,  
         " _" 
         ) 
        
         '去掉Do While中间多余的空格 
        
         re.Pattern =  
         "[ \t]*Do\s*While[ \t]*" 
        
         code = re.Replace(code,  
         "Do While" 
         ) 
        
         '去掉Do Until中间多余的空格 
        
         re.Pattern =  
         "[ \t]*Do\s*Until[ \t]*" 
        
         code = re.Replace(code,  
         "Do Until" 
         ) 
        
         '去掉End Sub中间多余的空格 
        
         re.Pattern =  
         "[ \t]*End\s*Sub[ \t]*" 
        
         code = re.Replace(code,  
         "End Sub" 
         ) 
        
         '去掉End Function中间多余的空格 
        
         re.Pattern =  
         "[ \t]*End\s*Function[ \t]*" 
        
         code = re.Replace(code,  
         "End Function" 
         ) 
        
         '去掉End If中间多余的空格 
        
         re.Pattern =  
         "[ \t]*End\s*If[ \t]*" 
        
         code = re.Replace(code,  
         "End If" 
         ) 
        
         '去掉End With中间多余的空格 
        
         re.Pattern =  
         "[ \t]*End\s*With[ \t]*" 
        
         code = re.Replace(code,  
         "End With" 
         ) 
        
         '去掉End Select中间多余的空格 
        
         re.Pattern =  
         "[ \t]*End\s*Select[ \t]*" 
        
         code = re.Replace(code,  
         "End Select" 
         ) 
        
         '去掉Select Case中间多余的空格 
        
         re.Pattern =  
         "[ \t]*Select\s*Case[ \t]*" 
        
         code = re.Replace(code,  
         "Select Case " 
         ) 
        
         End 
         Sub 
        
         '将保留字 内置函数 内置常量 替换成首字母大写 
        
         Private 
         Sub 
         ReplaceReservedWord() 
        
         Dim 
         re, words, word 
        
         Set 
         re =  
         New 
         RegExp 
        
         re.Global =  
         True 
        
         re.IgnoreCase =  
         True 
        
         re.MultiLine =  
         True 
        
         words = Split(ReservedWord,  
         " " 
         ) 
        
         For 
         Each 
         word  
         In 
         words 
        
         re.Pattern =  
         "(\b)" 
         & word &  
         "(\b)" 
        
         code = re.Replace(code,  
         "$1" 
         & word &  
         "$2" 
         ) 
        
         Next 
        
         words = Split(BuiltInFunction,  
         " " 
         ) 
        
         For 
         Each 
         word  
         In 
         words 
        
         re.Pattern =  
         "(\b)" 
         & word &  
         "(\b)" 
        
         code = re.Replace(code,  
         "$1" 
         & word &  
         "$2" 
         ) 
        
         Next 
        
         words = Split(BuiltInConstants,  
         " " 
         ) 
        
         For 
         Each 
         word  
         In 
         words 
        
         re.Pattern =  
         "(\b)" 
         & word &  
         "(\b)" 
        
         code = re.Replace(code,  
         "$1" 
         & word &  
         "$2" 
         ) 
        
         Next 
        
         End 
         Sub 
        
         '插入缩进 
        
         Private 
         Sub 
         InsertIndent() 
        
         Dim 
         lines, line, i, n, t, delta 
        
         lines = Split(code, vbLf) 
        
         n = UBound(lines) 
        
         For 
         i = 0  
         To 
         n 
        
         line = lines(i) 
        
         SingleLineIfThen line 
        
         t = delta 
        
         delta = delta + CountDelta(line) 
        
         If 
         t <= delta  
         Then 
        
         lines(i) =  
         String 
         (t, vbTab) & lines(i) 
        
         Else 
        
         lines(i) =  
         String 
         (delta, vbTab) & lines(i) 
        
         End 
         If 
        
         Next 
        
         code = Join(lines, vbLf) 
        
         End 
         Sub 
        
         '调整错误的缩进 
        
         Private 
         Sub 
         FixIndent() 
        
         Dim 
         lines, i, n, re 
        
         Set 
         re =  
         New 
         RegExp 
        
         re.IgnoreCase =  
         True 
        
         lines = Split(code, vbLf) 
        
         n = UBound(lines) 
        
         For 
         i = 0  
         To 
         n 
        
         re.Pattern =  
         "^\t*else" 
        
         If 
         re.Test(lines(i))  
         Then 
        
         lines(i) = Replace(lines(i), vbTab,  
         "" 
         , 1, 1) 
        
         End 
         If 
        
         Next 
        
         code = Join(lines, vbLf) 
        
         End 
         Sub 
        
         '计算缩进大小 
        
         Private 
         Function 
         CountDelta( 
         ByRef 
         line) 
        
         Dim 
         i, re, delta 
        
         Set 
         re =  
         New 
         RegExp 
        
         re.Global =  
         True 
        
         re.IgnoreCase =  
         True 
        
         For 
         Each 
         i  
         In 
         indents.Keys 
        
         re.Pattern =  
         "^\s*\b" 
         & i &  
         "\b" 
        
         If 
         re.Test(line)  
         Then 
        
         '方便调试 
        
         'WScript.Echo line 
        
         line = re.Replace(line,  
         "" 
         ) 
        
         delta = delta + indents(i) 
        
         End 
         If 
        
         Next 
        
         CountDelta = delta 
        
         End 
         Function 
        
         '处理单行的If Then 
        
         Private 
         Sub 
         SingleLineIfThen( 
         ByRef 
         line) 
        
         Dim 
         re 
        
         Set 
         re =  
         New 
         RegExp 
        
         re.IgnoreCase =  
         True 
        
         re.Pattern =  
         "if.*?then.+" 
        
         line = re.Replace(line,  
         "" 
         ) 
        
         '去掉Private Public前缀 
        
         re.Pattern =  
         "(private|public).+?(sub|function|property)" 
        
         line = re.Replace(line,  
         "$2" 
         ) 
        
         End 
         Sub 
        
         End 
         Class 
        
         'Demon, 于2011年平安夜

来源：http://demon.tw/my-work/vbs-beautifier.html 。

最后此篇关于用VBS写的VBSCRIPT代码格式化工具VbsBeautifier的文章就讲到这里了,如果你想了解更多关于用VBS写的VBSCRIPT代码格式化工具VbsBeautifier的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！。

文章推荐： JAVA实现打印ascii码表代码

文章推荐： Docker+keepalived+nginx实现主从热备的方法示例

文章推荐： JavaScript中的索引数组、关联数组和静态数组、动态数组讲解

文章推荐： JavaScript函数模式详解

Java - toString 格式化(格式化 double )
我正在从事的项目需要使用 toString 方法打印银行帐户余额。我不允许向当前程序添加任何方法，但我需要将 myBalance 变量格式化为 double 型，该变量保留两位小数而不是一位。在这个特
c# - C++ 格式化，如 Visual Studio C# 格式化
我喜欢 Visual Studio (2008) 格式化 C# 代码的方式；不幸的是，在编写 C++ 代码时，它的行为方式似乎有所不同。比如我这样写代码的时候: class Test { publi
Java 格式化
Scanner scan = new Scanner(System.in); System.out.println("Enter three positive integers seperated b
c# - 格式化
在 aspose(使用 C#)中用于格式化数字的正确样式属性是什么。我想做两件事: 1) 将五位数字格式化为邮政编码。(我不太确定使用哪个 Style 属性来获取自定义 excel 邮政编码格式) 2
Java int 格式化？
我希望用户输入从 00 到 23 和从 00 到 59 的 Local.Time 的小时和分钟，我将其扫描为一个 int。它有效，但对于从 00 到 09 的值，int 忽略 0，然后将其放置为 0,
vba - 格式化(动态)
大家好，请查看上面的图片，我有两张 table 。在下面代码的第一个表中，我得到了这种格式。但我想像 Table2 那样格式化，每个合并单元格中的行数是动态的，而且不一样。有没有办法像table
Laravel created_at 格式化
我在一个 laravel 网站工作，我只是想知道是否有办法为用户格式化 created_at 值，因为现在它类似于以下内容: 2017-09-20 13:41 但我更愿意将其格式化为易于阅读的格式，例
java - 格式化 HTMLEditorKit
我正在尝试在 JTextPane 中进行一些基本的格式化。为此，我决定使用 html(HTMLDocument 和 HTMLEditorKit)。这里是按钮的操作监听器代码，应使所选文本变为粗体 b
ESlint 格式化 - 排队声明？
是否有规则或插件会导致 es-lint 错误或警告，如果范围内的声明没有像下面那样间隔，赋值运算符的对齐方式相同？ var a = 'a'; var bb = 'b'; var ccc = 'd
java - 格式化 LinkedHashMap
我正在尝试重新格式化 LinkedHashMap 的输出以排除逗号和大括号。这是我的看跌期权: token.put("[Server.Protocol]", url.getProtocol() +
python - 马尔可夫分析、格式化
我有一个程序，可以从文本文件中读取大量文本，然后根据文本内容随机化内容以显示为短篇故事。该程序可以运行，但最后一部分(我显示的 Material )非常笨重且效率不高，我想知道是否有人对如何更有效地获
VIM 格式化/对齐
我正在尝试将 VIM 作为我的 ruby/rails 编辑器。太胖了，我对它的功能印象深刻并且我能够安装以下插件以提供更好的 IDE 体验自动配对 Better-snipmate-snippe
java - JTextPane 格式化
很难说出这里问的是什么。这个问题是含糊的、模糊的、不完整的、过于宽泛的或修辞性的，无法以目前的形式得到合理的回答。如需帮助澄清此问题以便重新打开它，visit the help center 。已关
Jquery 格式化 - 在另一个函数完成后运行函数
我有两个 jQuery 函数。我想先运行下面的第一个，然后在该函数完成后运行另一个。通常我会在代码的第一部分添加一个函数，但不确定如何使用这个 block 来做到这一点，或者它是否是正确的方法。简而
Python 在打印时对列表进行换行/格式化
在 Python 2.7 中，我有一个包含数字 1-25 字符串的列表(例如)。打印它们时，我希望列表打印 5 行，每行 5 个数字。理想情况下: >>> print(myList) ['1', '
C printf 格式化
我有以下功能来打印借阅者已取出的书籍列表。 void searchBorrowerLoans(int a) { int i; for (i = 1
java - 格式化 JTextPane
关闭。这个问题是opinion-based 。目前不接受答案。想要改进这个问题吗？更新问题，以便 editing this post 可以用事实和引文来回答它。 . 已关闭 5 年前。 Improv
Android TextView 格式化
我正在尝试实现一个用作 ListView header 的 TextView。我想对其进行格式化，以便我基本上有一个以第一行为中心的标题，然后是以下几行的附加信息。如何格式化文本/字符串以创建这种格式
PostgreSQL，格式化 float
我尝试格式化数字字段 select to_char(12315.83453, 'FM999999999999D9999') 在这种情况下一切正常。结果是 12315.8345 但是如果值在0到1之间
Java BigDecimal 格式化
我有一个带有 BigDecimal 字段的类。我把这个对象放到 JSP(Spring MVC)中。而且我需要显示十进制不带零的 BigDecimal 字段(20.00 就像 20)，这就是为什么我的

qq735679552

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

用VBS写的VBSCRIPT代码格式化工具VbsBeautifier