vb如何读取网页源码指定位置的内容

Question

vb打开一个网页之后（假设网址是 https://www.text.com）读取的网页源码有一段内容是这样的XXXXXXXXXX  您的消费金额是：               2028 元   XXXXXXXX
如何把2028读取到text1.text属性里面来

Answer 1

如果2028元在某个标签内可以用标签的innertext属性试试比较通用的做法用instr查找到2028之前的特殊（独一无二）的字符，然后在设法找出2028元的“2”和“元”字的位置 用mid来获取该内容

Answer 2

pos0 = InStr(s, "您的消费金额是：")
pos1 = InStr(pos0, s, "元")
text1.text= Trim(Replace(Mid(s, pos0, pos1 - pos0), "您的消费金额是：", ""))