利用Visual Basic操作XML数据
e, "FirstName", txtFirstName.Text
CreateNode 4, values_node, "LastName", txtLastName.Text
CreateNode 4, values_node, "Street", txtStreet.Text
CreateNode 4, values_node, "City", txtCity.Text
CreateNode 4, values_node, "State", txtState.Text
CreateNode 4, values_node, "Zip", txtZip.Text
´ Save the XML document.
xml_document.save m_AppPath & "Values.xml"
End Sub
´ Add a new node to the indicated parent node.
Private Sub CreateNode(ByVal indent As Integer, _
ByVal parent As IXMLDOMNode, ByVal node_name As String, _
ByVal node_value As String)
Dim new_node As IXMLDOMNode
´ Indent.
parent.appendChild parent.ownerDocument.createTextNode(Space$(indent))
´ Create the new node.
Set new_node = parent.ownerDocument.createElement(node_name)
´ Set the node´s text value.
new_node.Text = node_value
´ Add the node to the parent.
parent.appendChild new_node
´ Add a new line.
parent.appendChild parent.ownerDocument.createTextNode(vbCrLf)
End Sub
结论 本文仅仅揭示XML编程的表面，本文的例子中的涉及只是非常简单的XML文件，但你可以使用使用本文揭示的技术做更多的事情，比如配置设置、表单位置、以及其他信息。XML已经向前更进一步的发展了，有了更复杂的数据层次。对于更复杂的数据结构，在运行时可以更容易的使用MSXML对象来存取XML文件
上一页 [1] [2] [3] [4] [5]
进入问吧
