vb,怎样把数组中没有该字符串的项过滤掉?例如,

来源：百度知道 编辑：UC知道 时间：2024/06/25 05:30:44
vb,怎样把数组中没有该字符串的项过滤掉?例如,
A(0)=333
A(1)=344
A(2)=833
A(3)=9222
A(4)=1122
A(5)=3333
在文本框1中输入33
就要在文本框1中显示为
333
344
9222
1122
。

'添加两个文件框（text1、text2），一个按钮（command1）
'在text1中输入待过滤的字符，点击command1后在text2中显示过滤后的字符

Private Sub Command1_Click()
a = Split(Text1.Text, vbCrLf)
s = "33" '过滤掉包含此字符串的内容
For i = 0 To UBound(a)
If InStr(a(i), s) < 1 Then
Text2.Text = Text2.Text & a(i) & vbCrLf
End If
Next
End Sub