使用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

 

 

posted @ 2010-01-08 16:12 芭蕉 阅读(...) 评论(...) 编辑 收藏