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

webwangqi 2005-06-22 03:17:27

怎么这里现在这么冷清>>>>>>>> 郁闷... 伤心...
问大家个问题
获取网页代码后
网页内很多
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应该怎样获取

...全文

252 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

ChumpKlutz 2005-06-22

打赏
举报

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

seven2015 2005-06-22

打赏
举报

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

RayLynn 2005-06-22

打赏
举报

自己改一改吧。
我这里还没写完，你自己应该会写的吧。

RayLynn 2005-06-22

打赏
举报

没事。我好心，帮你做！嘿嘿 `交个朋友。我的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

webwangqi 2005-06-22