是否有VS2010宏刪除XML文件中的所有註釋

Question

我想要一個Visual Studio宏從給定的XML文件中刪除所有註釋。例如，給定這樣的：

<?xml version="1.0" encoding="UTF-8" ?> 
<!-- 
    Comment 1 
--> 
<config> 
    <!-- Comment 2 --> 
    <abortOnConfigurationError>${solr.abortOnConfigurationError:true}</abortOnConfigurationError> 
</config> 

我希望得到這樣的：

<?xml version="1.0" encoding="UTF-8" ?> 

<config> 

    <abortOnConfigurationError>${solr.abortOnConfigurationError:true}</abortOnConfigurationError> 
</config> 

我搜索爲做到這一點，VS宏，但找不到任何編輯。

Answer 1

我寫我自己：

Sub macro1() 
    DTE.ActiveDocument.Selection.StartOfDocument() 
    Do While True 
     DTE.ExecuteCommand("Edit.Find") 
     DTE.Find.FindWhat = "<!--" 
     DTE.Find.Target = vsFindTarget.vsFindTargetCurrentDocument 
     DTE.Find.MatchCase = False 
     DTE.Find.MatchWholeWord = False 
     DTE.Find.Backwards = False 
     DTE.Find.MatchInHiddenText = False 
     DTE.Find.PatternSyntax = vsFindPatternSyntax.vsFindPatternSyntaxLiteral 
     DTE.Find.Action = vsFindAction.vsFindActionFind 
     If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then 
      Exit Do 
     End If 
     DTE.Find.FindWhat = "-->" 
     If (DTE.Find.Execute() = vsFindResult.vsFindResultNotFound) Then 
      Throw New System.Exception("vsFindResultNotFound") 
     End If 
     DTE.ExecuteCommand("Edit.SelectToLastGoBack") 
     DTE.ActiveDocument.Selection.Delete() 
     DTE.ActiveDocument.Selection.DeleteLeft(4) 
    Loop 
    MsgBox("Done") 
End Sub