(2)vb 读取 XML 文件内容

在form上添加button 和 text（设置multiLine=true和垂直滚动条）

Private Sub Command1_Click()
    Dim xmldoc As DOMDocument
    Dim nodes As IXMLDOMNode
    Dim cnodes As IXMLDOMNode

    Set xmldoc = New DOMDocument
    xmldoc.Load App.Path + "\test.xml"
    If xmldoc.documentElement Is Nothing Then
        Exit Sub
    End If


    Set nodes = xmldoc.documentElement.childNodes(0) '第一个节点

    Text1.Text = ""
    For i = 0 To nodes.childNodes.length - 1 ''第一个节点的下一层节点 (2层)
        Set cnodes = nodes.childNodes.Item(i)
        For Each pp In cnodes.childNodes '3层
            If LCase(pp.Attributes.getNamedItem("name").nodeValue) = "name" Then '节点名为name
                Text1.Text = Text1.Text + CStr(pp.Text) + ","
            End If

            If LCase(pp.Attributes.getNamedItem("name").nodeValue) = "fullname" Then
                Text1.Text = Text1.Text + CStr(pp.Text) + ","
            End If

            If LCase(pp.Attributes.getNamedItem("name").nodeValue) = "description" Then
                Text1.Text = Text1.Text + CStr(pp.Text) + vbCrLf
            End If
            Text1.Refresh
        Next

    Next

End Sub

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。