vb 数组帮忙解决一下

本来PSP影视区有上万条地址这个只能找到378条选取的是每一页的第一条
现在就是弄个数组然后把匹配单个的逻辑改成匹配所有
再对数组进行处理  来获取上万条地址
Dim html
i=1
For 377
    url = "http://bbs.duowan.com/forum-222-" & i & ".html"
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open "get", url, False
    XmlHttp.setRequestHeader "Content-Type", "text/XML"
    XmlHttp.Send(null)
    html = XmlHttp.responseText
    start = Instr(1, html, "</em> <span id=", 0) + 15
    over = Instr(start, html, "><a href=", 0)
    okurl = Mid(html, start, over - start)
    okurl = Replace(okurl,"_","-")
    okurl = "http://bbs.duowan.com/" & okurl & "-1-1.html"
    okurl = Replace(okurl, """", "")
    Call Plugin.File.WriteFileEx("D:\url.txt",okurl)
    i=i+1
Next --------------------编程问答-------------------- 楼主这做的是网页采集吧，有没有考虑返回文本的字符编码 --------------------编程问答--------------------

引用 1 楼 bcrun 的回复:

楼主这做的是网页采集吧，有没有考虑返回文本的字符编码

输出的就是这样求版主帮忙弄个数组
http://bbs.duowan.com/thread-29159000-1-1.html
http://bbs.duowan.com/thread-29823969-1-1.html
http://bbs.duowan.com/thread-29756045-1-1.html
http://bbs.duowan.com/thread-29697106-1-1.html
``````````````` --------------------编程问答-------------------- over = Instr(start, html, "><a href=", 0)
==>
over = Instr(start+1, html, "><a href=", 0)
--------------------编程问答--------------------

引用 3 楼 worldy 的回复:

over = Instr(start, html, "><a href=", 0)
==>
over = Instr(start+1, html, "><a href=", 0)

请问==>是什么意思
在按键精灵里面显示没有找到合法的符号 --------------------编程问答-------------------- 不会把，意思就是说，要把前面的那句改成后面的那句 --------------------编程问答--------------------

引用 5 楼 worldy 的回复:

不会把，意思就是说，要把前面的那句改成后面的那句

能帮我修改成按键精灵能用的吗

我用的是按键精灵9.5 也就是最新版 --------------------编程问答--------------------

引用 5 楼 worldy 的回复:

不会把，意思就是说，要把前面的那句改成后面的那句

我改成这样运行结果如截图

--------------------编程问答-------------------- 什么按键精灵我不懂，不好意思

--------------------编程问答-------------------- 不会按键精灵的数组.

飘过

补充：VB ,  基础类

vb 数组 帮忙解决一下

vb 数组帮忙解决一下