如何取如下网页代码中的关键词语？

Question

如何取如下网页代码中的关键词语？新浪微博中的代码如下：
<DIV node-type="userListBox" ucardconf="type=1">
<UL style="WIDTH: 540px" class=cnfList node-type="userList">
<LI class="clearfix W_linecolor" action-type="itmeClick" action-data="uid=2827825121&amp;fnick=平朕特&amp;sex=m">
<DIV class=left>
<P class="face mbspace"><A title=平朕特 href="/u/2827825121" target=_blank><IMG alt=平朕特 src="http://tp2.sinaimg.cn/2827825121/50/22819765660/1" width=50 height=50 usercard="id=2827825121"></A></P><A class=webim_online href="javascript:;" suda-data="key=tblog_otherprofile_v4&amp;value=chat" action-type="webim.conversation" action-data="uid=2827825121&amp;nick=平朕特&amp;online_state=1">聊天</A> </DIV>
<DIV class="con clearfix">
<DIV class=con_right>
<P class="addbtn mbspace"><A class=W_needbtn href="javascript:;" diss-data="refer_sort=followed" item-func="addFollow"><IMG class="addicon addicon_a" alt="" src="http://img.t.sinajs.cn/t4/style/images/common/transparent.gif"><EM class=vline></EM><IMG class=addicon alt="" src="http://img.t.sinajs.cn/t4/style/images/common/transparent.gif">加关注</A> </P>
<P class="txt mbspace"><A href="javascript:;"><EM item-func="removeFans">移除粉丝</EM></A> </P>
<P class="txt mbspace"><A onclick="javascript:window.open('http://service.account.weibo.com/reportspam?rid=2827825121&amp;type=3&amp;url=http%3A%2F%2Fweibo.com%2F2919369134%2Ffans&amp;bottomnav=1&amp;wvr=4', 'newwindow', 'height=700, width=550, toolbar =yes, menubar=no, scrollbars=yes, resizable=yes, location=no, status=no');" href="javascript:void(0);">举报</A> </P></DIV>
<DIV class=con_left>
<P class="name mbspace"><A class=W_f14 href="/u/2827825121" target=_blank usercard="id=2827825121">平朕特</A> <SPAN class=addr><IMG class=male title=男 alt="" src="http://img.t.sinajs.cn/t4/style/images/common/transparent.gif" width=11 height=12>河北 邯郸 </SPAN></P>
<P class="connect mbspace">关注 <A href="/2827825121/follow" target=_blank>97</A><I class=W_vline>|</I>粉丝 <A href="/2827825121/fans" target=_blank>2</A><I class=W_vline>|</I>微博 <A href="/u/2827825121" target=_blank>18</A></P>
<P class="weibo mbspace"><A class=W_linkb href="/u/2827825121">//@平朕特: 为了天下的母亲(今天 16:06)</A></P>
<P class="from W_textb">通过<A class=W_linkb href="http://weibo.com/">新浪微博</A>关注 </P>
<P class=more_info><A class=W_moreup title=更多资料 href="javascript:;" item-func="moreData">更多资料<SPAN class=more></SPAN></A></P></DIV></DIV>
<DIV class=detail>
<DIV class="W_bubtips clearfix">
<DIV class=W_bgcolor_arrow><EM class=W_arrline_mini>◆</EM><SPAN>◆</SPAN></DIV>
<DIV class="W_bgcolor W_linecolor" node-type="dataContent">
<P class=mbdetail>学校：<A title=河北传媒学院 href="http://s.weibo.com/user/&amp;school=%E6%B2%B3%E5%8C%97%E4%BC%A0%E5%AA%92%E5%AD%A6%E9%99%A2">河北传媒学院</A></P>
<P class=mbdetail>我关注的人中：<A href="/u/2755832625">0一米海岸线0</A>、<A href="/u/2755018803">红旗劲舞</A>、<A href="/u/2932082924">如意红木家具8</A> 关注了他</P>
<P>我们共同关注：<A href="/u/2615835427">美丽的金牛座行者</A>、<A href="/u/2432482141">IAMyhc</A>、<A href="/u/2932082924">如意红木家具8</A>等<A href="/2827825121/follow?tag=1">8人</A></P></DIV></DIV></DIV></LI>
<LI class="clearfix W_linecolor" action-type="itmeClick" action-data="uid=2885849041&amp;fnick=DennisTing-TW&amp;sex=m">
<DIV class=left>
<P class="face mbspace"><A title=DennisTing-TW href="/u/2885849041" target=_blank><IMG alt=DennisTing-TW src="http://tp2.sinaimg.cn/2885849041/50/5637245555/1" width=50 height=50 usercard="id=2885849041"></A></P><A class=webim_leave href="javascript:;" suda-data="key=tblog_otherprofile_v4&amp;value=chat" action-type="webim.conversation" action-data="uid=2885849041&amp;nick=DennisTing-TW&amp;online_state=0">私信</A> </DIV>
<DIV class="con clearfix">
<DIV class=con_right>
<P class="addbtn mbspace"><IMG class=icon_connect title=已相互关注 src="http://img.t.sinajs.cn/t4/style/images/common/transparent.gif"> </P>
<P class="txt mbspace"><A href="javascript:;"><EM item-func="removeFans">移除粉丝</EM></A> </P>
<P class="txt mbspace"><A onclick="javascript:window.open('http://service.account.weibo.com/reportspam?rid=2885849041&amp;type=3&amp;url=http%3A%2F%2Fweibo.com%2F2919369134%2Ffans&amp;bottomnav=1&amp;wvr=4', 'newwindow', 'height=700, width=550, toolbar =yes, menubar=no, scrollbars=yes, resizable=yes, location=no, status=no');" href="javascript:void(0);">举报</A> </P></DIV>
<DIV class=con_left>
<P class="name mbspace"><A class=W_f14 href="/u/2885849041" target=_blank usercard="id=2885849041">DennisTing-TW</A> <SPAN class=addr><IMG class=male title=男 alt="" src="http://img.t.sinajs.cn/t4/style/images/common/transparent.gif" width=11 height=12>北京 </SPAN></P>
<P class="connect mbspace">关注 <A href="/2885849041/follow" target=_blank>26</A><I class=W_vline>|</I>粉丝 <A href="/2885849041/fans" target=_blank>24</A><I class=W_vline>|</I>微博 <A href="/u/2885849041" target=_blank>14</A></P>
<P class="info mbspace">简介：進入我的博客進入營銷管理入門,貼近市場做好基礎建設</P>
<P class="weibo mbspace"><A class=W_linkb href="/u/2885849041">我在#北京乐活城有机健康生活馆（旗舰店）# 今天是生日慶第2天，吃吃喝喝少不了....員工依舊熱情補貨等待顧客來開party http://t.cn/zWlOWCl(8月11日 09:05)</A></P>
<P class="from W_textb">通过<A class=W_linkb href="http://m.weibo.com/web/cellphone.php#android">Android客户端</A>关注 </P>
<P class=more_info><A class=W_moredown title=更多资料 href="javascript:;" item-func="moreData">更多资料<SPAN class=more></SPAN></A></P></DIV></DIV>
如何取得“平朕特”“DennisTing-TW”这两个粉丝的名字呢?网页其它代码同上。谢谢`

Answer 1

'┏〓〓〓〓〓〓〓〓〓 FindStrBetween,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'查找字符串间隔于
Function FindStrBetween(bystr, findstr, findstr2, Optional startid As Long = 1, Optional findinaddress As Long, Optional findbackfirst As Boolean)
   'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件
   '--需要什么函数或功能，可以联系我。
   '版权所有，请保留作者信息.QQ：1085992075
   '如需商业用途请联系作者
   '查找字符
   'startid从第几个开始
   'findstrbetween
   Dim id1 As Long, id2 As Long
   Dim str As String
   str = bystr
   'MsgBox str
   If findbackfirst Then
   id2 = InStr(startid, str, findstr2)
   If id2 = 0 Then Exit Function
   id1 = InStrRev(str, findstr, id2 - 1)
   If id1 = 0 Then Exit Function
   Else
   id1 = InStr(startid, str, findstr)
   If id1 = 0 Then Exit Function
   id2 = InStr(id1 + Len(findstr), str, findstr2)
   '新改11-11
   If id2 = 0 Then Exit Function
   End If
   FindStrBetween = Mid(str, id1 + Len(findstr), id2 - id1 - Len(findstr))
   findinaddress = id1
End Function
'┗〓〓〓〓〓〓〓〓〓  FindStrBetween,end  〓〓〓〓〓〓〓〓〓┛
FindStrBetween(htm,"fnick=","&amp")

Answer 2

你好。代码通过，不过只能取网页中的其中的1个关键词语，请问如何取网页中多个关键词语一起取呢?以上代码只是网页中的一小部分，其余的类同，就是关键词语不同。我想实现一起取网页中的关键词语，然后一个个导入到LISTBOX中。谢谢你~

Answer 3

'┏〓〓〓〓〓〓〓〓〓 findallstrbetween,start 〓〓〓〓〓〓〓〓〓┓
Function findallstrbetween(bystr, findstr, findstr2, Optional startid As Long = -1, Optional findbackfirst As Boolean)
   'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件
   '--需要什么函数或功能，可以联系我。
   '版权所有，请保留作者信息.QQ：1085992075
   '如需商业用途请联系作者
   '分解htm参数xx=??
      On Error GoTo err
      Dim Sz()
      Dim szaddcount As Integer
      Dim szcount As Integer
      szaddcount = 20
      ReDim Sz(szaddcount)
      szcount = -1
      
      
      Dim id1 As Long, id2 As Long
      Dim str As String
      str = bystr
      'MsgBox str
      id1 = 1
      If startid = -1 Then
      startid = InStr(str, findstr)
      Else
      startid = 1
      End If
      While id1 > 0
      If findbackfirst Then
          id2 = InStr(startid, str, findstr2)
          If id2 = 0 Then GoTo dook
          id1 = InStrRev(str, findstr, id2 - 1)
          If id1 = 0 Then GoTo dook
          startid = id1 - Len(findstr2)
      Else
          id1 = InStr(startid, str, findstr)
          If id1 = 0 Then GoTo dook
          id2 = InStr(id1 + Len(findstr), str, findstr2)
          '新改11-11
          If id2 = 0 Then GoTo dook
      
      End If
          startid = id2 + Len(findstr2)
      szcount = szcount + 1
      Sz(szcount) = Mid(str, id1 + Len(findstr), id2 - id1 - Len(findstr))
      
      'MsgBox startid
      Wend
   dook:
      If Not (szcount = -1) Then ReDim Preserve Sz(szcount): findallstrbetween = Sz
      Exit Function
   err:
      If err.Number = 9 Then
      ReDim Preserve Sz(UBound(Sz) + szaddcount)
      Resume
      End If
End Function
'┗〓〓〓〓〓〓〓〓〓  findallstrbetween,end  〓〓〓〓〓〓〓〓〓┛这个得到的是一个数组