使用EnvDTE自动格式整个工程

今天看一C#开源工程的源代码觉得很不习惯，因为作者是使用C++ coding style组织代码的,  VS只有自动格式单个文件代码的功能(Edit -> Advanced -> Format Document)， 没有自动格式整个工程的选项， 没办法，只能自己动手写个宏了。

 

首先打开Marcos Explorer ( Tools -> Marcors -> Macro Explorer), 然后在Marcos Explorer中选中MyMacros -> Module1,双击打开Module1，添加如下代码到Public Module Module1和End Module之间并保存，回到Marcos Explorer,我们看到AutoFormatSolution己经在Module1了,右键Run就可以了。

 

程序比较简单，就是在每个Project的ProjectItem上递归调用AutoFormatProjectItem (因为ProjectItem可能是一个Folder)，我简单说下DTE.ExecuteCommand("Edit.FormatDocument"), 这个命令可以通过如下几种方法获得，相对来说1最单，但有时我们没法通过宏录制得到我们感兴趣的东西，只能通过2,3去硬找...

　　1. 打开宏录制，然后手动执行一次FormatDocument,关闭宏录制，在Macros Explorer中的RecordingModule中你就可以看到相应的信息

　　2. 打开Command Window (View -> Other Windows -> Command Window), 然后进行尝试，最后找出你需要的Command,Command一般跟你要执行的操作是有一一对应关系。比如我们要在Edit菜单下执行Format Document，那么你可以先打Edit.,然后在弹出的CompletionList中找你需要的命令

　　3. 在Tools -> Options -> Environment -> Keyboard窗口中进行查询，查询的方法基本和2相似。

 

Dim solution As Solution = DTE.Solution

    Sub AutoFormatSolution()
        For i As Integer = 1 To solution.Projects.Count
            AutoFormatProject(solution.Projects.Item(i))
        Next
    End Sub

    Private Sub AutoFormatProject(ByVal proj As Project)
        For i As Integer = 1 To proj.ProjectItems.Count
            AutoFormatProjectItem(proj.ProjectItems.Item(i))
        Next
    End Sub
    Private Sub AutoFormatProjectItem(ByVal projectItem As ProjectItem)
        If projectItem.Kind = Constants.vsProjectItemKindPhysicalFile Then
            If projectItem.Name.EndsWith(".cs") Then
                Dim window As Window = projectItem.Open(Constants.vsViewKindCode)
                window.Activate()
                projectItem.Document.DTE.ExecuteCommand("Edit.FormatDocument")
                window.Close(vsSaveChanges.vsSaveChangesYes)
            End If
        End If
        'If the projectItem is a fold, apply AutoFormatProjectItem in it recusivly
        If Not projectItem.ProjectItems Is Nothing Then
            For i As Integer = 1 To projectItem.ProjectItems.Count
                AutoFormatProjectItem(projectItem.ProjectItems.Item(i))
            Next
        End If
    End Sub