枚举resx中的所有字符串

我们想枚举.NET中的资源文件（resx文件）中的所有字符串。我们希望这生成一个包含所有这些键值对的JavaScript对象。我们现在做到这一点的，像这样的代码附属程序集（这是VB.NET，但任何示例代码是好的）：枚举resx中的所有字符串

Dim rm As ResourceManager 
rm = New ResourceManager([resource name], [your assembly]) 
Dim Rs As ResourceSet 
Rs = rm.GetResourceSet(Thread.CurrentThread.CurrentCulture, True, True) 
For Each Kvp As DictionaryEntry In Rs 
    [Write out Kvp.Key and Kvp.Value] 
Next

但是，我们还没有找到一种方法来为.resx文件做到这一点还没有，可悲的是。我们如何枚举resx文件中的所有本地化字符串？

UPDATE：

继丹尼斯Myren的评论和here的想法，我建了一个ResXResourceManager。现在，我可以像使用嵌入式资源一样对.resx文件执行相同的操作。这是代码。请注意，微软将所需的构造函数设为私有，所以我使用反射来访问它。使用此功能时需要完全信任。

Imports System.Globalization 
Imports System.Reflection 
Imports System.Resources 
Imports System.Windows.Forms 

Public Class ResXResourceManager 
    Inherits ResourceManager 

    Public Sub New(ByVal BaseName As String, ByVal ResourceDir As String) 
     Me.New(BaseName, ResourceDir, GetType(ResXResourceSet)) 
    End Sub 

    Protected Sub New(ByVal BaseName As String, ByVal ResourceDir As String, ByVal UsingResourceSet As Type) 
     Dim BaseType As Type = Me.GetType().BaseType 
     Dim Flags As BindingFlags = BindingFlags.NonPublic Or BindingFlags.Instance 
     Dim Constructor As ConstructorInfo = BaseType.GetConstructor(Flags, Nothing, New Type() { GetType(String), GetType(String), GetType(Type) }, Nothing) 
     Constructor.Invoke(Me, Flags, Nothing, New Object() { BaseName, ResourceDir, UsingResourceSet }, Nothing) 
    End Sub 

    Protected Overrides Function GetResourceFileName(ByVal culture As CultureInfo) As String 
     Dim FileName As String 
     FileName = MyBase.GetResourceFileName(culture) 
     If FileName IsNot Nothing AndAlso FileName.Length > 10 Then 
      Return FileName.Substring(0, FileName.Length - 10) & ".resx" 
     End If 
     Return Nothing 
    End Function 
End Class

来源

2008-11-10 Erik Hesselink