UC知道怎么在VB里解析一个XML啊？
来源：百度知道 编辑：UC知道 时间：2024/06/21 09:10:55
这是我的XML，需要用VB解析，表现在一个按钮上。要用到IF-THEN-ELSE PL/SQL。帮帮忙～～～
原题是这样的：classify the xml using IF-THEN-ELSE PL/SQL on a click button.
<?xml version="1.0"?>
<school>
<grades>
<grade>
<level>K </level>
<student_count>
<boys>49 </boys>
<girls>41 </girls>
</student_count>
</grade>
<grade>
<level>1 </level>
<student_count>
<boys>29 </boys>
<girls>32 </girls>
</student_count>
</grade>
<grade>
<level>2 </level>
<student_count>
<boys>26 </boys>
<girls>31 </girls>
</student_count>
</grade>
</grades>
<prin
原题是这样的：classify the xml using IF-THEN-ELSE PL/SQL on a click button.
<?xml version="1.0"?>
<school>
<grades>
<grade>
<level>K </level>
<student_count>
<boys>49 </boys>
<girls>41 </girls>
</student_count>
</grade>
<grade>
<level>1 </level>
<student_count>
<boys>29 </boys>
<girls>32 </girls>
</student_count>
</grade>
<grade>
<level>2 </level>
<student_count>
<boys>26 </boys>
<girls>31 </girls>
</student_count>
</grade>
</grades>
<prin
'我以前用到的一个实例
Private Sub LoadXML()
'Xml文件结构如下：
' <?xml version="1.0" encoding="gb2312" ?>
'- <test>
' <type name="古典武侠">侠义天下</type>
'- <book name="寻秦记" author="黄易" price="25">
' <chapter2 title="科学疯子" page="87">被拉过去当实验品</chapter2>
' <chapter3 title="阴错阳差" page="44">实验失败，来到了三年前秦国</chapter3>
' <chapter4 title="美蚕娘" page="26">在荒野山村遇到美蚕娘</chapter4>
' </book>
' </test>
Dim xmlDom As New DOMDocument
Dim xmlNode As IXMLDOMElement
Dim i As Integer
xmlDom.Load (App.Path + "\xml.xml")
Set xmlNode = xmlDom.documentElement