小虾,最近在做个题目为,从VB中读取xml文件中的元素,已经做的差不多了,但遇到个问题,例如:
<cj>
<ab>
<k1>2378</k1>
<k2>89</k2>
</ab>
<ab>
<k1>7845</k1>
<k2>89</k2>
</ab>
<ab>
<k1>8989</k1>
<k2>89</k2>
</ab>
</cj>
只能读取第一个k1标记里的数据,无法读取下面的请,帮我修改下,大侠,小虾感激不禁!
我的vb程序如下:
Option Explicit
Private p_AppPath As String
Private Sub Form_Load()
' 获得程序运行目录
p_AppPath = App.Path
If Right$(p_AppPath, 1) <> "\" Then p_AppPath = p_AppPath & "\"
' 加载值
LoadValues
End Sub
Private Sub Form_Unload(Cancel As Integer)
' 保存现有的值
SaveValues
End Sub
Private Sub LoadValues()
Dim xml_document As DOMDocument
Dim values_node As IXMLDOMNode
' 载入文件
Set xml_document = New DOMDocument
xml_document.Load p_AppPath & "Online00.xml"
If xml_document.documentElement Is Nothing Then
Exit Sub
End If
'寻找节点
Set values_node = xml_document.selectSingleNode("ab")
' 读取各个节点的值
txtName.Text = GetNodeValue(values_node, "k1", "???")
txtName.Text = GetNodeValue(values_node, "k1", "???")
txtName.Text = GetNodeValue(values_node, "k1", "???")
End Sub
' 返回各个节点的值
Private Function GetNodeValue(ByVal start_at_node As IXMLDOMNode, ByVal node_name As String, _
Optional ByVal default_value As String = "") As String
Dim value_node As IXMLDOMNode
Set value_node = start_at_node.selectSingleNode(".//" & node_name)
If value_node Is Nothing Then
GetNodeValue = default_value
Else
GetNodeValue = value_node.Text
End If
End Function
' 保存现有的值
Private Sub SaveValues()
Dim xml_document As DOMDocument
Dim values_node As IXMLDOMNode
' 建立XML文件
Set xml_document = New DOMDocument
Set values_node = xml_document.createElement("ab")
xml_document.appendChild values_node
CreateNode values_node, "k1", txtName.Text
CreateNode values_node, "k1", txtSex.Text
' 保存XML文件
xml_document.save p_AppPath & "Online00.xml"
End Sub
Private Sub CreateNode(ByVal parent As IXMLDOMNode, _
ByVal node_name As String, ByVal node_value As String)
Dim new_node As IXMLDOMNode
Set new_node = parent.ownerDocument.createElement(node_name)
new_node.Text = node_value
parent.appendChild new_node
End Sub
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 XML工具及XML开发环境 』 → 我的程序请高手版主修改下
(订阅本版)
2006/3/8 10:09:00
新浪微博
我的程序请高手版主修改下
