本篇文章主要介绍了"在VB中如何读取XML文件"，对于VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：
VB读写XML文件还是比较简单的，因为有自带的类库，不需要下载，或者引用别人的。XML文件目前就我所知有两种写法：一种是下面这种，节点和数据融合在一起，数据作为...
VB读写XML文件还是比较简单的，因为有自带的类库，不需要下载，或者引用别人的。
XML文件目前就我所知有两种写法：
一种是下面这种，节点和数据融合在一起，数据作为节点的属性存在。
|
|
|
还有一种就是下面这种写法，数据与节点分开，之间的是数据，<>内的则是节点名称。
wang
wei
huanquanroad
fengdu
jiangsu
00000
针对这两种不同的写法的的XML文件的读取代码也是不一样的。如果用错了会出现程序报错或崩溃的情况。
第二种文件的读写方法如下：
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Label1.Caption = CommonDialog1.FileName
Dim xmldoc As DOMDocument
Dim nodes As IXMLDOMNode
Dim cnodes As IXMLDOMNode
Set xmldoc = New DOMDocument
'xmldoc.Load App.Path + "\test.xml"
xmldoc.Load Label1.Caption
'打开输出文件
Open App.Path + "\outPut.txt" For Output As #1
If xmldoc.documentElement Is Nothing Then
Exit Sub
End If
Print #1, xmldoc.childNodes.Item(1).baseName
For j = 0 To xmldoc.documentElement.childNodes.length - 1
Set nodes = xmldoc.documentElement.childNodes(j) '第一层节点
Print #1, nodes.baseName
For i = 0 To nodes.childNodes.length - 1 ''第一个节点的下一层节点 (2层)
Set cnodes = nodes.childNodes.Item(i)
If cnodes.childNodes.length > 1 Then
Call ChildNode(cnodes)
Else
Print #1, cnodes.baseName, cnodes.Text
End If
Next
Print #1, nodes.baseName
Next
'将数据输入至指定文件
Print #1, xmldoc.childNodes.Item(1).baseName
'关闭输出文件
Close #1
End Sub
'防止多层嵌套
Public Function ChildNode(Node As IXMLDOMNode)
Dim cNode As IXMLDOMNode
Print #1, Node.baseName
For i = 0 To Node.childNodes.length - 1
Set cNode = Node.childNodes.Item(i)
If cNode.childNodes.length > 1 Then
Call ChildNode(cNode)
Else
Print #1, cNode.baseName, cNode.Text
End If
Next
Print #1, Node.baseName
End Function
引用，我是引用的Microsoft XML,V4.0。
程序的功能就是读取XML文件各个节点和数据，并将它们写入到一个TXT文件。
读取的目标文件是用CommonDialog实现的。
需要注意的就是：
1、IXMLDOMNode.baseName 和IXMLDOMNode.Text两个的应用。这也是第二种文件的读取不同于第一种文件的所在。
baseName就是节点的值，Text则是节点内容。如果节点是Joe,那么baseName = name ；Text = Joe。
这个也是可以读取到XML文件中的注释部分的：如果注释是,那么 baseName = ; Text = modify；baseName为空。
网上有人回答说无法读取到注释的内容，这个是不正确的，是可以读取的。
2、关于第二种写法的格式问题
常见的以第二种格式为模板的写法，基本就是这么些的，Text完整的作为一行来写，然后缩进什么的。但是实际中按代码的理解的正确写法却不是这样的。
因为当读取到Text这类的节点的时候，用.childnodes.length去看值，会发现值并不为0，按道理说，这就是个完整的节点，怎么可能还有子节点？所以代码的理解的正确的写法应该是下面这样的：
404
Joe
节点之间的值，应该还有一层缩进。
第一中文件的读取方法：
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
与第一种的区别在于没有用IXMLDOMNode.baseName 和IXMLDOMNode.Text，用的是IXMLDOMNode.Attributes，因为他的值被视为节点的属性的一部分写在了一起，所以自然也就用IXMLDOMNode.Attributes了。
但是如果用IXMLDOMNode.Attributes去读取第二种写法的文件，则会出现IXMLDOMNode.Attributes为空导致的莫名其妙的错误，那么后面的属性和方法自然也就没法使用了。
以上就介绍了在VB中如何读取XML文件，包括了方面的内容，希望对VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。
本文网址链接：http://www.codes51.com/article/detail_97775.html
