代碼格式化腳本CodeFormat

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

　　條件：文件必須可寫。

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

　　希望有人不吝技術，把它做好一點。如果有新版，請寄給我一份：[email protected]

　　

Sub FormatByCode()
 Dim myDocument
 For Each myDocument in Application.Documents
　
        myDocument.Active = True
　
        myDocument.Selection.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