怎么枚举出资源文件中的所有内容

[三楼の郎]

Dim resWriter As New Resources.ResourceWriter("d:\\123.dat")
resWriter.AddResourceData("001", "ResourceTypeCode.Stream", arr)
resWriter.Close()
resWriter.Dispose()
Erase arr

通过上面这段代码可以把数组内容写到资源文件里面，然后可以通过下面这段代码再读出来

Dim resReader As New Resources.ResourceReader("d:\\123.dat")
resReader.GetResourceData("001", "ResourceTypeCode.Stream", arr)

但是这个只能读出某个固定的内容，比如上面这段只能读出resourcename=001的资源，如果我不知道resourcename怎么把资源文件里的内容全部枚举出来

[im战术]

你的意思是你这个数据是多段的,你每次添加一批数据到里面,但数据名称这次可能是"001"下次可能是"ABC"~然后你想全部读取. 但是前提是你不清楚最后到底有哪几个名称的数据段被添加在里面,然后你想一次性以杖举的方式赋值每个数据段是吧!

[三楼の郎]

嗯，差不多是这个意思吧 简单来说我手头上有一个资源文件，已知是通过AddResourceData方法加进去的，但是不知道name是什么，现在要取出来，所以想把这个资源文件里面包含的所有资源都枚举出来

[im战术]

        Dim arr() As Byte = Nothing
        Dim All As New List(Of Byte())
        Dim resReader As New Resources.ResourceReader("d:\\123.dat")
        Dim a = resReader.GetEnumerator()
        While a.MoveNext()
            resReader.GetResourceData(a.Key, a.ToString.Split("+")(0), arr)
            All.Add(arr)
        End While

我想这可能就是你想要的答案吧!

[threenewbee]

http://blog.csdn.net/zgke/article/details/3887726

[三楼の郎]

thanks