Xml.rar_vbxml_xml_xmlvb_读取xml资源-CSDN下载

共9个文件

xml：3个

cls：1个

vbp：1个

版权申诉

vb_xml

xml

读取xml

42 浏览量 2022-09-24 07:55:26 上传评论收藏 16KB RAR 举报

XML（eXtensible Markup Language）是一种用于存储和传输数据的标记语言，它以其结构化、自解释性和可扩展性而被广泛应用于IT行业。在VB（Visual Basic）环境中，处理XML文件通常涉及到读取、写入和解析XML文档。本实例通过VB代码展示了如何分节点读取XML数据。我们需要了解XML的基本结构。XML文档由一系列元素组成，每个元素可能包含其他元素或文本。元素通过标签来定义，如`<element>`和`</element>`，其中的属性提供额外的信息。例如： ```xml <root> <child attr1="value1"> Text content </child> <child attr2="value2" /> </root> ``` 在这个例子中，`root`是根元素，包含两个`child`子元素，每个子元素有自己的属性。在VB中，我们可以使用MSXML库（Microsoft XML，通常为msxml2.dll）来处理XML。在工程中引用MSXML库，这可以通过“工具”-> “引用”菜单完成，找到“Microsoft XML, v.x.x”并勾选。接下来，我们创建一个`DOMDocument`对象，它是VB中处理XML的主要接口。这个对象可以加载XML文件，并允许我们遍历和操作其内容。以下代码示例展示了如何加载XML文件并获取根元素： ```vb Dim xmlDoc As New MSXML2.DOMDocument60 If Not xmlDoc.Load("example.xml") Then MsgBox "无法加载XML文件!" Exit Sub End If Dim root As MSXML2.IXMLDOMElement Set root = xmlDoc.documentElement ``` 要分节点读取数据，我们可以遍历XML树，访问每个元素和它的子元素。例如，获取`child`元素的属性值和文本内容： ```vb For Each childNode In root.childNodes If childNode.NodeType = NODE_ELEMENT And childNode.tagName = "child" Then Dim attr1 As String attr1 = childNode.getAttribute("attr1") Dim textContent As String textContent = childNode.Text Debug.Print "属性1: " & attr1 & ", 文本内容: " & textContent End If Next childNode ``` 这个VB程序还包括了`ModOpenFiles.bas`模块，可能包含了文件操作相关的辅助函数；`dmXML.cls`可能是数据模型类，封装了XML处理逻辑；`Xml.frm`是VB窗体文件，展示用户界面；`MSSCCPRJ.SCC`是版本控制相关的文件；`Vb_XML.vbp`和`Vb_XML.vbw`是VB项目和工作空间文件，保存了工程的设置和状态。这个VB实例教你如何使用VB的MSXML库来读取和解析XML文件，特别是如何遍历XML树，获取元素的属性和内容。这对于处理任何需要从XML文件中提取数据的场景都非常有用。通过深入理解这些概念和实践，你可以构建更复杂的XML处理应用，满足各种数据交换和存储的需求。

资源详情

资源评论

资源推荐

收起资源包目录

Xml.rar （9个子文件）

example.xml 855B

Vb_XML.vbp 720B

Passed.xml 61KB

lc.xml 8KB

Xml.frm 11KB

MSSCCPRJ.SCC 191B

Vb_XML.vbw 121B

ModOpenFiles.bas 1KB

dmXML.cls 12KB

<?xml version="1.0" encoding="gb2312" ?><?xml-stylesheet type="text/xsl" href="C:\Program Files\National Instruments\TestStand 2013\Components\Models\TestStandModels\ATML\StyleSheets\tr5_horizontal.xsl"?> <trc:TestResultsCollection xmlns:trc="urn:IEEE-1636.1:2011:01:TestResultsCollection" xmlns:tr="urn:IEEE-1636.1:2011:01:TestResults" xmlns:c="urn:IEEE-1671:2010:Common" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:ts="www.ni.com/TestStand/ATMLTestResults/2.0"> <trc:TestResults uuid="3ae053f5-a446-4a3a-acfb-dfeccecc2f26" xmlns:trc="urn:IEEE-1636.1:2011:01:TestResultsCollection" xmlns:tr="urn:IEEE-1636.1:2011:01:TestResults" xmlns:c="urn:IEEE-1671:2010:Common" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:ts="www.ni.com/TestStand/ATMLTestResults/2.0"> <tr:Personnel> <tr:SystemOperator ID = "administrator" name = "administrator"/> </tr:Personnel> <tr:ResultSet ID="3" name = "D:\Stanmore_EEPower_1.0\Stanmore_EEPower_1.0\Stanmore_EEPower.seq#MainSequence" startDateTime = "2015-12-11T15:38:11.717" endDateTime = "2015-12-11T15:39:34.399"> <tr:Extension> <ts:TSStepProperties> <ts:StepType>SequenceCall</ts:StepType> <ts:StepGroup>Main</ts:StepGroup> <ts:BlockLevel value='1'/> <ts:Index value='9'/> <ts:TotalTime value='82.6822'/> <ts:ModuleTime value='82.6817'/> </ts:TSStepProperties> </tr:Extension> <tr:Outcome value="Passed" /> <tr:SessionAction ID = "4" name = "Message Popup" startDateTime = "2015-12-11T15:38:11.974" endDateTime = "2015-12-11T15:38:25.248" testReferenceID="ID#:CHWbOmyP9ku+DqPdlvPniD"> <tr:Data> <c:Collection> <c:Item name = "ButtonHit"> <c:Datum value = "1" xsi:type="ts:TS_double" flags = "0x2000"/> </c:Item> </c:Collection> </tr:Data> <tr:Extension> <ts:TSStepProperties> <ts:StepType>MessagePopup</ts:StepType> <ts:StepGroup>Setup</ts:StepGroup> <ts:BlockLevel value='0'/> <ts:Index value='0'/> <ts:TotalTime value='13.2731'/> </ts:TSStepProperties> </tr:Extension> <tr:ActionOutcome value = "Done" /> </tr:SessionAction> <tr:SessionAction ID = "5" name = "Load Test Limits" startDateTime = "2015-12-11T15:38:25.250" endDateTime = "2015-12-11T15:38:25.267" testReferenceID="ID#:Bij/j6lhOkuNdH/T/f2lqB"> <tr:Data> <c:Collection> <c:Item name = "NumPropertiesRead"> <c:Datum value = "2" xsi:type="ts:TS_double" flags = "0x2000"/> </c:Item> <c:Item name = "NumPropertiesApplied"> <c:Datum value = "2" xsi:type="ts:TS_double" flags = "0x2000"/> </c:Item> </c:Collection> </tr:Data> <tr:Extension> <ts:TSStepProperties> <ts:StepType>NI_VariableAndPropertyLoader</ts:StepType> <ts:StepGroup>Setup</ts:StepGroup> <ts:BlockLevel value='0'/> <ts:Index value='1'/> <ts:TotalTime value='0.0169658'/> </ts:TSStepProperties> </tr:Extension> <tr:ActionOutcome value = "Done" /> </tr:SessionAction> <tr:SessionAction ID = "6" name = "Open Relayboard Serial Port" startDateTime = "2015-12-11T15:38:25.267" endDateTime = "2015-12-11T15:38:25.270" testReferenceID="ID#:nuU5Yz0HmUGzTcNbkNEKmA"> <tr:Extension> <ts:TSStepProperties> <ts:StepType>Action</ts:StepType> <ts:StepGroup>Setup</ts:StepGroup> <ts:BlockLevel value='0'/> <ts:Index value='2'/> <ts:TotalTime value='0.0028345'/> <ts:ModuleTime value='0.0027959'/> </ts:TSStepProperties> </tr:Extension> <tr:ActionOutcome value = "Done" /> </tr:SessionAction> <tr:SessionAction ID = "7" name = "Relay:Y10 Connect Power" startDateTime = "2015-12-11T15:38:25.271" endDateTime = "2015-12-11T15:38:25.272" testReferenceID="ID#:N4CoVrYrak+m4JJV0yRZ0B"> <tr:Extension> <ts:TSStepProperties> <ts:StepType>Action</ts:StepType> <ts:StepGroup>Setup</ts:StepGroup> <ts:BlockLevel value='0'/> <ts:Index value='3'/> <ts:TotalTime value='0.0015696'/> <ts:ModuleTime value='0.0015395'/> </ts:TSStepProperties> </tr:Extension> <tr:ActionOutcome value = "Done" /> </tr:SessionAction> <tr:Test ID = "8" name = "M3V3 On DC Voltage" startDateTime = "2015-12-11T15:38:25.280" endDateTime = "2015-12-11T15:38:25.317" testReferenceID="ID#:WRPqOVdWTUO5P4T9fyxZTC"> <tr:Extension> <ts:TSStepProperties> <ts:StepType>NI_MultipleNumericLimitTest</ts:StepType> <ts:StepGroup>Main</ts:StepGroup> <ts:BlockLevel value='0'/> <ts:Index value='0'/> <ts:LoopingProperties> <ts:NumLoops value='1' xsi:type='c:double'/> <ts:NumPassed value='1' xsi:type='c:double'/> <ts:NumFailed value='0' xsi:type='c:double'/> <ts:EndingLoopIndex value='1' xsi:type='c:double'/> </ts:LoopingProperties> <ts:TotalTime value='0.0365869'/> <ts:ModuleTime value='0.0186496'/> </ts:TSStepProperties> </tr:Extension> <tr:Outcome value = "Passed" /> <tr:TestResult ID = "tr-537b5bb2-9fda-11e5-9954-000bab718986" name = "TP62 M_3V3"> <tr:TestData> <c:Datum value = "3.313" xsi:type="ts:TS_double" nonStandardUnit="V" flags = "0x0400"/> </tr:TestData> <tr:TestLimits> <tr:Limits> <c:LimitPair operator = "AND"> <c:Limit comparator = "GE"> <c:Datum nonStandardUnit = "V" value = "3" xsi:type="ts:TS_double" flags = "0x0000"/> </c:Limit> <c:Limit comparator = "LE"> <c:Datum nonStandardUnit = "V" value = "3.4" xsi:type="ts:TS_double" flags = "0x0000"/> </c:Limit> </c:LimitPair> </tr:Limits> </tr:TestLimits> <tr:Outcome value = "Passed" /> </tr:TestResult> <tr:TestResult ID = "tr-537b5bb3-9fda-11e5-9954-000bab718986" name = "MeaValues"> <tr:TestData> <c:IndexedArray dimensions="[1]" lowerBounds="[0]" upperBounds="[0]" xsi:type="ts:TS_doubleArray" flags = "0x2000"> <ts:Element position ="[0]" value = "3.313"/> </c:IndexedArray> </tr:TestData> </tr:TestResult> </tr:Test> <tr:SessionAction ID = "9" name = "Wait" startDateTime = "2015-12-11T15:38:25.318" endDateTime = "2015-12-11T15:38:27.320" testReferenceID="ID#:ZL7ocJj0x0GyVBJqewaWoD"> <tr:Extension> <ts:TSStepProperties> <ts:StepType>NI_Wait</ts:StepType> <ts:StepGroup>Main</ts:StepGroup> <ts:BlockLevel value='0'/> <ts:Index value='1'/> <ts:TotalTime value='2.00183'/> </ts:TSStepProperties> </tr:Extension> <tr:ActionOutcome value = "Done" /> </tr:SessionAction> <tr:Test ID = "10" name = "Standby DC Current" startDateTime = "2015-12-11T15:38:27.321" endDateTime = "2015-12-11T15:38:27.344" testReferenceID="ID#:ki4NbC1OLkeeI7wU2KCIwD"> <tr:Extension> <ts:TSStepProperties> <ts:StepType>NumericLimitTest</ts:StepType> <ts:StepGroup>Main</ts:StepGroup> <ts:BlockLevel value='0'/> <ts:Index value='2'/> <ts:LoopingProperties> <ts:NumLoops value='1' xsi:type='c:double'/> <ts:NumPassed value='1' xsi:type='c:double'/> <ts:NumFailed value='0' xsi:type='c:double'/> <ts:EndingLoopIndex value='1' xsi:type='c:double'/> </ts:LoopingProperties> <ts:TotalTime value='0.0230966'/> <ts:ModuleTime value='0.0223583'/> </ts:TSStepProperties> </tr:Extension> <tr:Outcome value = "Passed" /> <tr:TestResult ID = "tr-537b5bb4-9fda-11e5-9954-000bab718986" name = "Numeric"> <tr:TestData> <c:Datum value = "0.005" xsi:type="ts:TS_double" nonStandardUnit="A" flags = "0x2400"/> </tr:TestData> <tr:TestLimits> <tr:Limits> <c:LimitPair operator = "AND"> <c:Limit comparator = "GE"> <c:Datum nonStandardUnit = "A" value = "0.001" xsi:type="ts:TS_double" flags = "0x0000"/> </c:Limit> <c:Limit comparator = "LE"> <c:Datum nonStandardUnit = "A" value = "0.05" xsi:type="ts:TS_double" flags = "0x0000"/>