程式碼格式化指令碼CodeFormat (轉)

程式碼格式化指令碼CodeFormat (轉)[@more@]

沒學過VBSript,但為了格式化自己要用的程式碼，找來找去沒找到合適的，勉強作了一個。用法：將下面程式碼存成一個“.DSM”字尾的，用VC6裝載這個宏，開啟任一C,C++程式碼檔案，執行宏，程式碼將按設定的方式（空格或TAB）得到格式化。由於不懂VBSript，做得不完善，問題是：1：必須把欲格式化的檔案在VC等環境下開啟，不能按目錄自動檢索該格式化的檔案；2：在“{”後有字元時{}裡面的失去縮排；

條件：檔案必須可寫。

存在的價值：VC環境是大家信任的環境，絕不會因為它對程式碼格式化而使程式碼不能編譯。

希望有人不吝技術，把它做好一點。如果有新版，請寄給我一份：to:Yanggr@cbcyber.com">Yanggr@cbcyber.com

Sub FormatByCode()
 Dim myDocument
 For Each myDocument in Application.Documents
 myDocument.Active = True
 myDocument.ion.SelectAll

 Dim EndLine, CurrLine
 EndLine=myDocument.Selection.BottomLine
 myDocument.Selection.StartOfLine
 CurrLine=myDocument.Selection.CurrentLine

 while ( CurrLine<=EndLine )
 myDocument.Selection.SelectLine
 myDocument.Selection =  LTrim(myDocument.Selection)
 CurrLine=myDocument.Selection.CurrentLine
 wend

 myDocument.Selection.SelectAll
 myDocument.Selection.Unindent
 myDocument.Selection.Unindent
 myDocument.Selection.Unindent
 myDocument.Selection.Unindent
 myDocument.Selection.Unindent
 myDocument.Selection.Unindent
 myDocument.Selection.SmartFormat
 myDocument.Save
 myDocument.Close dsSaveChangesPrompt
 Next
End Sub