宏运用 - 전체 해결 방안의 코드 파일을 배열하고 using을 제거하고 정렬합니다

2764 단어 솔루션
먼저 Marcos Explorer 매크로 자원 관리자(Tools 도구-> Marcors 매크로-> Macro Explorer 매크로 자원 관리자)를 열고 Marcos Explorer 매크로 자원 관리자에서 MyMacros-> Module1을 선택한 다음 두 번 클릭하여 Module1을 열고 위의 코드를 Public Module 1과 End Module 사이에 추가하여 저장하고 Marcos Explorer 매크로 자원 관리자로 돌아가면 AutomatSolution이 이미 Module 1을 통과하고 오른쪽 단추를 누르면 Rune1이 실행될 수 있습니다.이 매크로의 역할은 세 가지가 있습니다: 1, 전체 문서의 형식 편집 2, 사용하지 않은 using 3을 제거하고 using에 대한 정렬
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") '         

            projectItem.Document.DTE.ExecuteCommand("  . using  ")

            projectItem.Document.DTE.ExecuteCommand("  .      using")





            window.Close(vsSaveChanges.vsSaveChangesYes)

        End If

    End If



    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


인용
운행하기 전에 원래 항목을 한 부 준비하는 것이 가장 좋다.

좋은 웹페이지 즐겨찾기