用VB抓取网页XML中一个字段的值

Question

<real xmlns="http://obix.org/ns/schema/1.0" val="156.31455993652344" href="station:|slot:/Drivers/NiagaraNetwork/ZGC_User/points/Client/SH/SH_F/out" is="def/baja:StatusNumeric" display="156 m3/hr {ok}" displayName="Out" icon="/ord?module://icons/x16/statusNumeric.png" precision="0" unit="obix:units/cubic meters per hour"></real>上面代码是通过浏览器输入地址得到的，但我想通过VB直接抓取VAL=后面的数值，需要怎么做，请大神帮忙。

Answer 1

先找到VAL，然后找后边的数据就好了啊，vb里那个函数好像叫Instr?

Answer 2

Dim k As Long
Dim d as Double
k=InStr(S,"val=""")
if k>0 then d=CDbl(Mid(S,k+5))

Answer 3

与二楼不同在于，不需要数长度。利用字符串自身特性即  “字符串被空格分隔了，先分解出数组，然后指定第几个组，然后替换不需要的字符串即可”，当然这样的常用功能我一般都写function Dim allstring As String '这个变量用于存放你获取的页面字符串
Dim arr
allstring = Text1.Text  '"你获取网页代码的函数，这里假设是在文本框1中"
arr = Split(allstring, " ") '字符串分段
allstr = Replace(Replace(arr(2), "val=", ""), Chr(34), "") '替换不需要的字符为空
MsgBox allstr '输出