DevExpress .Net组件的重新编译

    DevExpress的.Net组件是功能较全的第三方组件，但其安装、发布都相对麻烦，重新编译涉及大量的项目更复杂。传统的方法是通过脚本来编译，需要了解项目的相互依存关系。

    研究编译脚本，可理清思路，大体流程如下：

1、判断强签名文件是否存在，如不存在则生成。

2、从强签名文件中导出公钥。

3、判断项目中的AssemblyInfo.cs是否存在“PublicKey=”的字符串，如存在则替换。

4、按项目的依存关系编译。

    从上面可以看出，步骤3和4的工作量最大。对于3可以写段代码解决，思路是通过递归查找所有的文件，然后用正则表达式实现替换。

    Public Sub ReplacePublicKey(ByVal publicKeyToken As String)
        Dim ss() As String = Directory.GetFileSystemEntries(My.Application.Info.DirectoryPath)
        For i As Integer = 0 To ss.Length - 1
            Dim s As String = ss(i)
            If Directory.Exists(s) Then
                GetFiles(s, publicKeyToken)
            ElseIf s.Contains("AssemblyInfo.cs") Then
                PatchFile(s, publicKeyToken)
            End If
        Next
    End Sub

    Private Sub GetFiles(ByVal path As String, ByVal publicKeyToken As String)
        Dim ss() As String = Directory.GetFileSystemEntries(path)
        For i As Integer = 0 To ss.Length - 1
            Dim s As String = ss(i)
            If Directory.Exists(s) Then
                GetFiles(s, publicKeyToken)
            ElseIf s.Contains("AssemblyInfo.cs") Then
                PatchFile(s, publicKeyToken)
            End If
        Next
    End Sub

    Private Sub PatchFile(fileName As String, publicKeyToken As String)
        Dim s As String = ""
        Using reader As StreamReader = New StreamReader(fileName)
            s = reader.ReadToEnd()
            reader.Close()
        End Using
        If Not input.Contains("PublicKey") Then Exit Sub
        s = New Regex("\"", \s*PublicKey=[0123456789abcdefABCDEF]*\""").Replace(input, String.Format(""", PublicKey = {0}""", publicKeyToken))
        Dim randomFileName As String = Path.GetRandomFileName()
        Using writer As StreamWriter = New StreamWriter(randomFileName)
            writer.Write(input)
            writer.Close()
        End Using
        File.Delete(fileName)
        File.Move(randomFileName, fileName)
    End Sub