读xml中的多条记录怎样读

2003-08-27 02:57:58 148 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

解密HDMI热插拔检测电路：从HPD引脚到EDID读取的全流程避坑本文深入解析HDMI热插拔检测与EDID读取的全流程，从HPD引脚信号特性、DDC通道I2C协议到EDID数据结构，系统剖析了硬件电路设计、信号完整性和软件协议中的常见陷阱与解决方案，为消费电子设备开发者提供了一套完整的实战避坑指南。阅读详情

我想问下要是读xml中的多条记录怎样读，如：<资料>
<个人信息>
<姓名>jun</姓名>
<年龄>23</年龄>
<性别>男</性别>
</个人信息>
<个人信息>
<姓名>ben</姓名>
<年龄>22</年龄>
<性别>男</性别>
</个人信息>
<个人信息>
<姓名>ling</姓名>
<年龄>23</年龄>
<性别>女</性别>
</个人信息>
</资料>
我应该怎样把一条条〈个人信息〉取出其姓名、年龄、性别,用vb是这样写的？
谢谢！

...全文

【eNSP 华为模拟器】小型校园网模拟环境的设计与配置（附eNSP源文件）【eNSP 华为模拟器】小型校园网模拟环境的设计与配置一、实验概述二、交换机的配置 2.1 二层交换机的配置 2.2 三层交换机的配置三、路由器的配置四、实验结果五、实验总结一、实验概述按照以下的拓扑连接，自行设计VLAN和IP地址等网络参数，实现PC1到PC2的IP通信。其中，R1，R2为路由器；LSW1，LSW4为3层交换机；LSW2，LSW3 ，LSW6， LSW7为2层交换机；CLIENT1-CLIENT12为PC机。拓扑图课程设计要求：（1）IP地址自行规划设计，应该清晰地阅读详情

smalllove

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

富察咪咪 2003-08-29

打赏
举报

再给你一个比较完整的例子，我已经测过的
'------------------------------------
'文件<?xml version="1.0" encoding='GB2312'?>
<资料>
<个人信息>
<姓名>jun</姓名>
<年龄>23</年龄>
<性别>男</性别>
</个人信息>
<个人信息>
<姓名>ben</姓名>
<年龄>22</年龄>
<性别>男</性别>
</个人信息>
<个人信息>
<姓名>ling</姓名>
<年龄>23</年龄>
<性别>女</性别>
</个人信息>
</资料>

'------------------------------------
'程序将XML的内容添加到cboList列表框
Public Sub funGetXmlList( _
ByVal strText As String, _
ByVal strSingName As String, _
ByVal strTagName As String, _
ByVal intIndex As Integer, _
ByRef objName As Object)
If Run_Mode = -1 Then
On Error GoTo hidden
End If
Dim i As Integer
Dim strTmp As String
Dim xmlDoc As MSXML2.DOMDocument40
Set xmlDoc = New MSXML2.DOMDocument40
Dim objNode As IXMLDOMElement
Dim NodeList As IXMLDOMNodeList
'加载XML数据到XML文挡对象
xmlDoc.async = False
xmlDoc.Load (strText) '如果直接读文件这样写
objName.Clear
'取得发送信息
Set objNode = xmlDoc.selectSingleNode("//" & strSingName)
If Not objNode Is Nothing Then
Set NodeList = objNode.getElementsByTagName(strTagName)
For i = 0 To NodeList.length - 1
objName.AddItem (NodeList.Item(i).childNodes(intIndex).Text)
Next
End If
Set objNode = Nothing
Set NodeList = Nothing
Exit Sub
hidden:
MsgBox Err.Description, vbOKOnly, "提示"
On Error Resume Next
Set objNode = Nothing
Set NodeList = Nothing
Err.Clear
End Sub

Private Sub Command1_Click()
'向列表框添加个人信息只姓名
Call funGetXmlList("c:/xml.xml", "资料", "个人信息", 0, cboList)
End Sub

富察咪咪 2003-08-27

打赏
举报

读多条记录添加到comboBox中
Public Sub funGetXmlList( _
ByVal strText As String, _
ByVal strSingName As String, _
ByVal strTagName As String, _
ByVal intIndex As Integer, _
ByRef objName As Object)
If Run_Mode = -1 Then
On Error GoTo hidden
End If
Dim i As Integer
Dim strTmp As String
Dim objNode As IXMLDOMElement
Dim NodeList As IXMLDOMNodeList
'加载XML数据到XML文挡对象
xmlDoc.async = False
xmlDoc.loadXML (strText)
objName.Clear
'取得发送信息
Set objNode = xmlDoc.selectSingleNode("//" & strSingName)
If Not objNode Is Nothing Then
Set NodeList = objNode.getElementsByTagName(strTagName)
For i = 0 To NodeList.length - 1
objName .AddItem (NodeList.Item(i).childNodes(intIndex).Text)
Next
End If
Set objNode = Nothing
Set NodeList = Nothing
Exit Sub
hidden:
MsgBox Err.Description, vbOKOnly, "提示"
On Error Resume Next
Set objNode = Nothing
Set NodeList = Nothing
Err.Clear
End Sub

读xml中的多条记录怎样读

相关推荐