vb 把list中 有某字符的行删去

来源：百度知道 编辑：UC知道 时间：2024/05/26 10:16:58
vb 把list中 有某字符的行删去

例如：
list中有:
aaaaa325
aaaaa685
qweas512
aaaaa631
gnfds152
sdss222g

把含有aaaaa的行都删去
剩下:
qweas512
gnfds152
sdss222g

就这样！！！

Private Sub Command1_Click()
For i = List1.ListCount - 1 To 0 Step -1
If InStr(List1.List(i), "aaaaa") Then List1.RemoveItem (i)
Next i
End Sub

Private Sub Form_Load()
List1.AddItem "aaaaa325"
List1.AddItem "aaaaa685"
List1.AddItem "qweas512"
List1.AddItem "aaaaa631"
List1.AddItem "gnfds152"
List1.AddItem "sdss222g"
End Sub

Private Sub Command1_Click()
For i = List1.ListCount - 1 To 0 Step -1'将所有list里的项目循环一遍
If InStr(List1.List(i), "aaaaa") Then List1.RemoveItem (i)'如果这个项目里含有"aaaaa" 则把这项删去
Next i
End Sub