<real xmlns="http://obix.org/ns/schema/1.0" val="156.31455993652344" href="https://bbs.csdn.net/topics/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=后面的數值，需要怎么做，請大神幫忙。
uj5u.com熱心網友回復：
先找到VAL，然后找后邊的資料就好了啊，vb里那個函式好像叫Instr?uj5u.com熱心網友回復：
Dim k As Long
Dim d as Double
k=InStr(S,"val=""")
if k>0 then d=CDbl(Mid(S,k+5))
uj5u.com熱心網友回復：
與二樓不同在于，不需要數長度。利用字串自身特性即 “字串被空格分隔了，先分解出陣列，然后指定第幾個組，然后替換不需要的字串即可”，當然這樣的常用功能我一般都寫function
Dim allstring As String '這個變數用于存放你獲取的頁面字串
Dim arr
allstring = Text1.Text '"你獲取網頁代碼的函式，這里假設是在文本框1中"
arr = Split(allstring, " ") '字串分段
allstr = Replace(Replace(arr(2), "val=", ""), Chr(34), "") '替換不需要的字符為空
MsgBox allstr '輸出
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/110912.html
標籤：網絡編程