如题:vb 读取XML中指定的内容,我想直接读取站点编码为1001的 DO的值,如何才能实现?<?xml version="1.0" encoding="gb2312"?>
<body>
<Head ID="1109290001" DateTime="2010-08-09 12:12:11" Name="小明"/>
<Site SID="1000">
<Var VarName="PH" Val="8.1"/>
<Var VarName="DO" Val="8.2"/>
<Var VarName="CON" Val="8.3"/>
<Var VarName="NTU" Val="8.4"/>
<Var VarName="CODmn" Val="8.5"/>
<Var VarName="NH4" Val="8.6"/>
<Var VarName="TOC" Val="8.7"/>
<Var VarName="TN" Val="8.8"/>
<Var VarName="TP" Val="8.9"/>
</Site>
<Site SID="1001">
<Var VarName="PH" Val="7.2"/>
<Var VarName="DO" Val="7.3"/>
<Var VarName="CON" Val="7.4"/>
<Var VarName="NTU" Val="7.5"/>
<Var VarName="CODmn" Val="7.6"/>
<Var VarName="NH4" Val="7.7"/>
<Var VarName="TOC" Val="7.8"/>
<Var VarName="TN" Val="7.9"/>
<Var VarName="TP" Val="7.1"/>
</Site>
</body>
<body>
<Head ID="1109290001" DateTime="2010-08-09 12:12:11" Name="小明"/>
<Site SID="1000">
<Var VarName="PH" Val="8.1"/>
<Var VarName="DO" Val="8.2"/>
<Var VarName="CON" Val="8.3"/>
<Var VarName="NTU" Val="8.4"/>
<Var VarName="CODmn" Val="8.5"/>
<Var VarName="NH4" Val="8.6"/>
<Var VarName="TOC" Val="8.7"/>
<Var VarName="TN" Val="8.8"/>
<Var VarName="TP" Val="8.9"/>
</Site>
<Site SID="1001">
<Var VarName="PH" Val="7.2"/>
<Var VarName="DO" Val="7.3"/>
<Var VarName="CON" Val="7.4"/>
<Var VarName="NTU" Val="7.5"/>
<Var VarName="CODmn" Val="7.6"/>
<Var VarName="NH4" Val="7.7"/>
<Var VarName="TOC" Val="7.8"/>
<Var VarName="TN" Val="7.9"/>
<Var VarName="TP" Val="7.1"/>
</Site>
</body>
解决方案 »
- 在事务处理过程中,连接对对象不能被明确地切断
- 68............68..........16数据帧分析求救
- 求助vb 读写sql问题....
- 大家知道 期值为1 这个错误啊
- ~~~~~~我的vb程序带MediaPlayer控件,为什么打包安装后,别人机子上的mediaplayer用不起了
- 请问这样的软件免费发布算不算侵权?我用VB做了一个类似按键精灵的软件,界面和功能都和按键精灵相似。
- 水晶报表8.0的问题!
- 我在用richtextbox控件的find属性时,若有汉字字符无法实现正确查找,请问该如何解决?
- 如何在同一台机器运行多份同一数据库管理软件?(安装盘一样,而不会使安装在不同位置的软件指向同一数据源)
- 请帮忙找字体
- 坏了??
- VB为什么现在活着?
Dim xmlDoc As New DOMDocument
Dim xmlRootElement As IXMLDOMElement
Dim xmlList As IXMLDOMNodeList
Dim xmlError As IXMLDOMParseError
Dim success As Boolean
Dim strPara As String
xmlDoc.async = False
xmlDoc.validateOnParse = True
strPara = "http://localhost/testS/testS.WSDL" 'xml source
success = xmlDoc.Load(strPara)
If success = True Then
Set xmlRootElement = xmlDoc.documentElement
Set xmlList = xmlRootElement.getElementsByTagName("schema")
For i = 0 To xmlList.Length
If xmlList(i).Attributes(1).nodeValue = "1001" Then Debug.Print xmlList(i).selectSingleNode("DO").Text Next
下略.