HOW TO:程序集内读取内嵌默认资源

Author:水如烟

当用Reflector查看程序集资源时,我们通常都会看到三个类SR,SRCategoryAttribute和SRDescriptionAttribute,来读取当前程序集的资源信息。
在这里，所谓的默认我指的是在Framework2.0里。默认的资源名称一般是[RootNameSpace].Resources.resources。
三个类的代码在各程序集中基本是一样的，但因为各自的资源有异，它的Resourcemanager定义为Private，而其它的变量和方法，基本上是Shared。再一点，它只服务于本程序集，所以多用Friend限制作用范围。代码有些技巧，稍增改，如下：

SR.VB
Imports System.Resources, System.Globalization

Friend NotInheritable Class SR

    '如是特殊名称，在这修改。默认的为[RootNameSpace].Resources.resources
    Friend Sub New()
        Dim localAssembly As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly
        Dim baseName As String = Nothing
        For Each resourceName As String In localAssembly.GetManifestResourceNames
            If System.Text.RegularExpressions.Regex.IsMatch(resourceName, ".Resources.resources$")  Then
                baseName = resourceName
                Exit For
            End If
        Next
        Me.m_resources = New ResourceManager(baseName, localAssembly)
    End Sub

    Private Shared Function GetLoader() As SR
        If SR.loader Is Nothing Then
            SyncLock SR.InternalSyncObject
                If SR.loader Is Nothing Then
                    SR.loader = New SR
                End If
            End SyncLock
        End If
        Return loader
    End Function

    Public Shared Function GetObject(ByVal name As String) As Object
        SR.GetLoader()
        If SR.loader Is Nothing Then
            Return Nothing
        End If

        Return SR.Resources.GetObject(name, SR.Culture)
    End Function

    Public Shared Function GetString(ByVal name As String) As String
        SR.GetLoader()
        If SR.loader Is Nothing Then
            Return Nothing
        End If

        Return SR.Resources.GetString(name, SR.Culture)
    End Function

    Public Shared Function GetString(ByVal name As String, ByVal ParamArray args As Object()) As String
        SR.GetLoader()
        If SR.loader Is Nothing Then
            Return Nothing
        End If

        Dim Result As String
        Result = SR.Resources.GetString(name, SR.Culture)
        If ((args Is Nothing) OrElse (args.Length <= 0)) Then
            Return Result
        End If

        Dim argsCount As Integer = 0
        Do While argsCount < args.Length
            Dim argString As String = TryCast(args(argsCount), String)
            If (Not argString Is Nothing) AndAlso (argString.Length > 1024) Then
                args(argsCount) = (argString.Substring(0, 1021) & "")
            End If
            argsCount += 1
        Loop

        Return String.Format(CultureInfo.CurrentCulture, Result, args)
    End Function


    Private Shared ReadOnly Property Culture() As CultureInfo
        Get
            Return Nothing '取本地CultureInfo
        End Get
    End Property

    Private Shared ReadOnly Property InternalSyncObject() As Object
        Get
            If (SR.s_InternalSyncObject Is Nothing) Then
                Dim tmpObj As New Object
                System.Threading.Interlocked.CompareExchange(SR.s_InternalSyncObject, tmpObj, Nothing)
            End If
            Return SR.s_InternalSyncObject
        End Get
    End Property

    Public Shared ReadOnly Property Resources() As ResourceManager
        Get
            Return SR.loader.m_resources
        End Get

    End Property


    Private Shared loader As SR
    Private Shared s_InternalSyncObject As Object

    Private m_resources As ResourceManager

    'Friend Const Text1 As String = "Text1"
End Class
SRCategoryAttribute.VB
Imports System.ComponentModel

<AttributeUsage(AttributeTargets.All)> _
Friend NotInheritable Class SRCategoryAttribute
    Inherits CategoryAttribute

    Public Sub New(ByVal category As String)
        MyBase.New(category)
    End Sub

    Protected Overrides Function GetLocalizedString(ByVal value As String) As String
        Return SR.GetString(value)
    End Function
End Class
SRDescriptionAttribute.VB
Imports System.ComponentModel

<AttributeUsage(AttributeTargets.All)> _
Friend NotInheritable Class SRDescriptionAttribute
    Inherits DescriptionAttribute

    Private replaced As Boolean

    Public Sub New(ByVal description As String)
        MyBase.New(description)
    End Sub

    Public Overrides ReadOnly Property Description() As String
        Get
            If Not Me.replaced Then
                Me.replaced = True
                MyBase.DescriptionValue = SR.GetString(MyBase.Description)
            End If
            Return MyBase.Description
        End Get
    End Property

End Class