难道VB真的被淘汰了么???

怎么这里现在这么冷清>>>>>>>> 郁闷... 伤心...
问大家个问题
获取网页代码后
网页内很多
http://www.xxx.com/bbs/index.asp?i=???
怎么样获取代码里所有???的内容 
例如 代码里是
<html>
asd
zdg
http://www.xxx.com/bbs/index.asp?i=BCD
sADf
dg
http://www.xxx.com/bbs/index.asp?i=ddd
sdf
http://www.xxx.com/bbs/index.asp?i=aaa
</html>
我想获取 BCD ddd 和aaa应该怎样获取

解决方案 »

  1.   

    都什么时候了！
    那时，对我来说，是处于休眠状态。
    我可不想一直耗CPU.
      

  2.   

    VB是会慢慢走向末落!这是不可否认的因为它是Win32的.不过这是一个时间的问题未来三年内他是不会被淘汰的.
      

  3.   

    没事。我好心，帮你做！嘿嘿 `交个朋友。我的QQ：630843我帮你写了个函数。返回一个数组。
    哼``就你们高手了不起?
    Private Function getParam(ByVal Content As String) As Variant
        '这里返回一个字符串数组 里面就是你的所有参数
        Const WEBSITE = "http://www.xxx.com/bbs/index.asp?i="
        Dim Arr() As String
        Dim TempArr() As String
        Dim StrCount As Integer
        ReDim Arr(0) As String
        Dim Temp As String
        Dim i As Integer
        Dim j As Integer
        TempArr = Split(Content, WEBSITE)
        StrCount = UBound(TempArr)
        
        i = InStr(Content, WEBSITE) + Len(WEBSITE)
        While i <= Len(Content)
            If Mid(Content, i, 1) <> Chr(13) Then
                Temp = Temp & Mid(Content, i, 1)
            Else
                i = InStr(i, Content, WEBSITE) + Len(WEBSITE) - 1
                ReDim Preserve Arr(UBound(Arr) + 1) As String
                Arr(UBound(Arr)) = Temp
                Temp = Empty
                j = j + 1
            End If
            If j = StrCount Then i = Len(Content)
            i = i + 1
        Wend
        
        For i = 0 To UBound(Arr)
            MsgBox Arr(i)
        Next i
    End Function