xml问题，急急急，在线等 。不够分再加！

[xluzhong]

<?xml version="1.0" encoding="shift_jis"?>
<gamens>
<gamen>
<form_code>0001</form_code>
<form_name>test1</form_name>
<form_type>MENU</form_type>
<header></header>
<detail></detail>
<buttom>
<button>
<button_name>btn1</button_name>
<seni>seni</seni>
<func>0002</func>
</button>
<button>
<button_name>btn2</button_name>
<seni>seni</seni>
<func>0003</func>
</button>
</buttom>
<test>aaaaa</test>
</gamen>

<gamen>
<form_code>0002</form_code>
<form_name>test2</form_name>
<form_type>MENU</form_type>
<header></header>
<detail></detail>
<buttom>
<button>
<button_name>btn1</button_name>
<seni>seni</seni>
<func>0002</func>
</button>
<button>
<button_name>btn2</button_name>
<seni>seni</seni>
<func>0003</func>
</button>
</buttom>
<test>aaaaa</test>
</gamen>
</gamens>
xml 文件内容如上 如何把按gamen这个节点 把xml文件中的数据 读入到一个结构体数组里面？

[真相重于对错]

xml 序列化
ms-help://MS.MSDNQTR.2003FEB.2052/cpref/html/frlrfSystemXmlSerializationXmlSerializerClassTopic.htm

[chengpei_chen]

http://www.codeproject.com/vb/net/#XML

[xluzhong]

测试 调用代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click
Dim filename As String
Dim ds As DataSet

filename = "..\conf.xml"
WXReadXmlDco(filename)
---modxml代码
Public Sub WXReadXmlDco(ByVal filename As String)
Dim xmlDoc As New XmlDocument
Dim PrescriptionNodes As XmlNodeList
Dim baseDataNodes As XmlNodeList
Dim nodes As XmlNodeList
xmlDoc.Load(filename)
PrescriptionNodes = xmlDoc.GetElementsByTagName("gamen")
For Each prescrptionNode As XmlNode In PrescriptionNodes
WXshowXmlNodeDoc(PrescriptionNodes)
''add to structure list
Next
End Sub
Public Sub WXshowXmlNodeDoc(ByVal nodes As XmlNodeList)

Dim bFirstInRow As Boolean
Dim ResStr As String
Dim resstr1 As String

Dim test As XmlNodeList

For Each basedatanode As XmlNode In nodes
If basedatanode.HasChildNodes Then
test = basedatanode.ChildNodes
WXshowXmlNodeDoc(test)
Else
If (bFirstInRow) Then
bFirstInRow = False
Else
ResStr = ", "
End If
End If
ResStr = ResStr
& basedatanode.Name & ":" & basedatanode.InnerText
resstr1 = resstr1 + ResStr
Next
MsgBox(resstr1)
End Sub

[xluzhong]

能帮着改改么？