无修h动漫百度云资源:VB 如何用 for 循环按顺序一个一个的截取指定的字符串？

---------------------------------------
<TR bgColor=#e8f5f7><TD align=middle colSpan=5><A name=A><B><FONT face=Verdana, color=#990000 sans-serif helvetica,

arial,>A</FONT></B></A></TD></TR><TR height=22><TD width="20%"> <a href="/special/2347.htm"

title="专辑列表">阿宝</a></td><TD width="20%"> <a href="/special/1024.htm" title="专辑列表">阿弟仔</a></td><TD width="20%">

<a href="/special/910.htm" title="专辑列表">阿杜</a></td><TD width="20%"> <a href="/special/41.htm"

title="专辑列表">阿贵</a></td><TD width="20%"> <a href="/special/605.htm" title="专辑列表">阿吉仔</a></td></tr><TD

width="20%"> <a href="/special/2942.htm" title="专辑列表">阿郎</a></td><TD width="20%"> <a href="/special/1980.htm" title="

专辑列表">阿木</a></td><TD width="20%"> <a href="/special/1837.htm" title="专辑列表">阿强</a></td><TD width="20%"> <a

href="/special/2941.htm" title="专辑列表">阿信@五月天</a></td><TD width="20%"> <a href="/special/1615.htm" title="专辑列表">

艾成</a></td></tr><TD width="20%"> <a href="/special/1763.htm" title="专辑列表">艾尔肯</a></td><TD width="20%"> <a

href="/special/2810.htm" title="专辑列表">AAA</a></td><TD width="20%"> <a href="/special/2827.htm" title="专辑列表">Andy

Kao</a></td><TR bgColor=#e8f5f7><TD align=middle colSpan=5><A name=B><B><FONT face=Verdana, color=#990000 sans-serif

helvetica, arial,>B</FONT></B></A></TD></TR><TR height=22><TD width="20%"> <a href="/special/2088.htm" title="专辑列表">巴郎

</a></td><TD width="20%"> <a href="/special/78.htm" title="专辑列表">卜学亮</a></td><TD width="20%">

---------------------------------------------

我需要循环截取， 从每个 <a href 开始，截取到 /a>
这些标签出现了多少次，就循环截取多少次，msgbox 多少次

1. 就是程序运行后，从代码中先分析有多少个 <a href （ 此步已解决，共出现562次 ）

2. 然后从第一个 <a href 开始，截取，直到第一个 /a>，然后弹出一个Msgbox显示名字。

3. 截取下一个，弹出下一个名字

正确的截取结果如下：

="/special/2347.htm" title="专辑列表">阿宝<

然后弹出 "阿宝"

="/special/1024.htm" title="专辑列表">阿弟仔<

弹出 "阿弟仔"

="/special/910.htm" title="专辑列表">阿杜<

弹出 "阿杜"

我是这样写的，但是出错：

SclassDaiMa ＝ 上面那一大堆HTML代码

For SingerP = 1 To 562
Dim SingerView, SingerName As String
SingerView = Split(SclassDaiMa, "<a href")(SingerP)
SingerView = Replace(Replace(SingerView, "/a>", ""), "<a href", "")
SingerName = Split(SingerView, ">")(1)
SingerName = Split(SingerName, "<")(0)
MsgBox SingerName
Next SingerP