如何取网页指定内容？

Question

网页源码：
<strong>总奖金:</strong><span class="jijin">12345.00</span> &nbsp;&nbsp;<strong>个人奖金:</strong><span class="jijin">50.00</span> &nbsp;&nbsp;<strong>已领取的奖金:</strong><span class="jijin">0.00</span> &nbsp;&nbsp;<strong>可领取的奖金:</strong><span class="jijin">10.00</span> &nbsp;&nbsp;     如何取已领取的奖金后边的10.00显示在text上谢谢哦`

Answer 1

我例子中，把你的网页源码复制到了一个Text中，在Text控件的Click事件中写的代码。你可以同样做测试
Private Sub Text1_Click()
    Dim reg As RegExp
    Set reg = New RegExp
    reg.Pattern = "已领取的奖金([^>]*>){6}(\d+(\.\d+)?)"
    Dim m As Match
    Set m = reg.Execute(Text1.Text)(0)
    MsgBox m.SubMatches(1)'m.SubMatches(1)就是你要的结果
End Sub

Answer 2

 Dim reg As RegExp这里提示用户类型未定义呀如果是在webbrowser下又是怎么操作呀？谢谢你呀`

Answer 3

忘记给你说了。
菜单中
工程->引用->选择：Microsoft VBScript Regular Expressions 5.5，打勾
就可以了和webbrowser有什么关系。获取源码后替换给你代码中的
reg.Execute(Text1.Text)(0)
即可