有人写过一个宏,可以在整个项目中删除并排序你的使用语句吗?我希望能够在没有任何第三方插件(如ReSharper)的情况下实现这一点。
有人写过一个宏,可以在整个项目中删除并排序你的使用语句吗?我希望能够在没有任何第三方插件(如ReSharper)的情况下实现这一点。
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Public Module FormatDocuments
Public Sub FormatSolution()
Dim sol As Solution = DTE.Solution
For i As Integer = 1 To sol.Projects.Count
FormatProject(sol.Projects.Item(i))
Next
End Sub
Private Sub FormatProject(ByVal proj As Project)
For i As Integer = 1 To proj.ProjectItems.Count
FormatProjectItem(proj.ProjectItems.Item(i))
Next
End Sub
Private Sub FormatProjectItem(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.RemoveAndSort")
window.Close(vsSaveChanges.vsSaveChangesYes)
End If
End If
If projectItem.ProjectItems.Count > 0 Then
For Each subProjectItem As ProjectItem In projectItem.ProjectItems
FormatProjectItem(subProjectItem)
Next
End If
End Sub
End Module