AssemblyInfo信息的批量修改(.NET 宏)

有这个问题，主要是几个原因

1：最近发现在项目引用中，出现引用了DEBUG版本的DLL，所以我需要区分一个DLL是Release、还是Debug版本（方法）

2：有了方法，就要改AssemblyInfo信息了。这里是没办法用查找、替换的方式来实现。最后用了宏，来完成对AssemblyDescription这个标签的批量修改。

Public   Module  RecordingModule
     Sub  TemporaryMacro()
        DTE.ExecuteCommand( " Edit.FindinFiles " )
        DTE.Windows.Item( " {CF2DDC32-8CAD-11D2-9302-005345000000} " ).Activate()  ' 查找和替换
        DTE.Find.FilesOfType  =   " Assemblyinfo.cs "
        DTE.Windows.Item(Constants.vsWindowKindSolutionExplorer).Activate()
        DTE.Find.FindWhat  =   " [assembly: AssemblyDescription("""")] "
        DTE.Find.Target  =  vsFindTarget.vsFindTargetFiles
        DTE.Find.MatchCase  =   False
        DTE.Find.MatchWholeWord  =   False
        DTE.Find.MatchInHiddenText  =   True
        DTE.Find.PatternSyntax  =  vsFindPatternSyntax.vsFindPatternSyntaxLiteral
        DTE.Find.SearchPath  =   " 整个解决方案 "
        DTE.Find.SearchSubfolders  =   True
        DTE.Find.FilesOfType  =   " Assemblyinfo.cs "
        DTE.Find.ResultsLocation  =  vsFindResultsLocation.vsFindResults1
        DTE.Find.Action  =  vsFindAction.vsFindActionFindAll
         If  (DTE.Find.Execute()  =  vsFindResult.vsFindResultNotFound)  Then
             Throw   New  System.Exception( " vsFindResultNotFound " )
         End   If

        System.Threading.Thread.Sleep( 1000 )

         Dim  reg  As   New  Regex( " 匹配文件: (\d*) " )
         Dim  match  =  reg.Match(DTE.StatusBar.Text)
         If  match.Success  Then

             For  i  =   1   To  Convert.ToInt32(match.Groups( 1 ).Value)

                DTE.Windows.Item(Constants.vsWindowKindFindResults1).Activate()
                DTE.ExecuteCommand( " Edit.GoToFindResults1NextLocation " )
                DTE.Windows.Item( " AssemblyInfo.cs [只读] " ).Activate()  ' 如果你没有使用VSS版本控制直接修改成 DTE.Windows.Item("AssemblyInfo.cs")
                DTE.ActiveDocument.Selection.EndOfLine( True )
                DTE.ActiveDocument.Selection.DeleteLeft()
                DTE.ActiveDocument.Selection.Text  =   " #if DEBUG "
                DTE.ActiveDocument.Selection.NewLine()
                DTE.ActiveDocument.Selection.Text  =   " [assembly: AssemblyDescription(""Debug"")] "
                DTE.ActiveDocument.Selection.NewLine()
                DTE.ActiveDocument.Selection.Text  =   " #else "
                DTE.ActiveDocument.Selection.NewLine()
                DTE.ActiveDocument.Selection.Text  =   " [assembly:AssemblyDescription(""Release"")] "
                DTE.ActiveDocument.Selection.NewLine()
                DTE.ActiveDocument.Selection.Text  =   " #endif "
             Next

         End   If

     End Sub
End Module