以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]取文本中间部分内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84240)
--  作者：狐作非为
--  发布时间：2016/4/26 15:36:00
--  [求助]取文本中间部分内容
以下是网页源码中截取的部分
</span></span></p></dt><dd class="dataNums"><dl class="floatleft"><span class="ui-font-large ui-color-red ui-num" id="gz_gsz">2.0062</span></dl><dl id="gz_icon" class="gzup"></dl><dl class="floatleft fundZdf"><span class="ui-font-middle ui-color-red ui-num" id="gz_gszze">+0.0372</span><span class="ui-font-middle ui-color-red ui-num" id="gz_gszzl">+1.89%</span></dl></dd><dd><span>近1月：</span><span class="ui-font-middle ui-color-green ui-num">-0.25%</span></dd><dd><span>近1年：</span><span class="ui-font-middle ui-color-green ui-num">-4.04%</span></dd></dl><span class="dataOfFund-line"></span><dl class="dataItem02"><dt><p><span class="ui-color-blue"><span class="sp01"><a href="http://fund.eastmoney.com/f10/jjjz_590003.html">

如何可以取到  上面红色部分的内容。（用查找字符串的方法）。
--  作者：大红袍
--  发布时间：2016/4/26 15:39:00
--  

Dim str As String = "<span class=""ui-font-large ui-color-red ui-num"" id=""gz_gsz"">2.0062</span>"
msgbox(str)

Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=id=""gz_gsz"">)[0-9\\.]+")
msgbox(mc.count)
If mc.count > 0 Then
    msgbox(mc(0).value)
End If
--  作者：狐作非为
--  发布时间：2016/4/26 15:56:00
--  
谢谢