Question

vb list 指定 删除

例如list中
123#8989---999
456#8989---567
如果出有#8989则删除

Answer 1

Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
If InStr(List1.List(i), "#8989") <> 0 Then
List1.RemoveItem i
End If
Next i

追问

最后的结果这样的格式
123---999
456---567
是不全部删除掉

追答

那就采用 mafan8 朋友的代码

Answer 2

Private Sub Command1_Click()
If List1.ListCount < 0 Then Exit Sub
For i = 0 To List1.ListCount - 1
List1.List(i) = Replace(List1.List(i), "#8989", "")
Next
End Sub