VB筛选符合要求的结果

来源：百度知道 编辑：UC知道 时间：2024/05/26 13:27:49
在VB中有一个list控件显示了若干条网址，现想增加一个筛选按钮和一个label控件，要求点击筛选按钮，在label中显示网址后为"00000.html"到"99999.html"之间的所有网址。这个应该怎么写，请高手帮帮忙，谢谢了！
不是我不想给分，你可以看看我的记录，问问题付出的分少吗？
我是怕分悬出去，没有人回答，或者没有满意的，这分不就浪费了吗，只要你能答的让我满意，绝对少不了你的分！

'在窗体上加入筛选按钮控件command1，筛选结果控件label1，显示网址的控件list1,然后复制下面代码运行即可。

Private Sub Command1_Click()
Dim i As Integer, j As Integer, S As String, Tmp As String
For i = 0 To List1.ListCount - 1
S = List1.List(i)
j = InStrRev(S, "/")
If j > 0 Then
Tmp = Mid(S, j + 1)
j = InStrRev(Tmp, ".")
If j > 0 Then
Tmp = Left(Tmp, j - 1)
S = Mid(Tmp, j)
If Len(Tmp) = 5 And IsNumeric(Tmp) And LCase(S) = ".html" Then '如果为5位数的数字，则视同符合条件
Label1 = Label1 & Tmp & vbNewLine
End If
End If
End If
Next

End Sub

大概思路：
你点筛选按钮后，执行一个循环语句，从list内的第一条到最后一条，然后对每一条也就是list的项目进行判断

不太明白 你要干啥的
是想 把list1里的内容复制到label1中去？

等级越高越抠门，一分都不舍得悬赏，自己琢磨吧！