Question

VB6.0 找到text1和text2中都有的字符串，并显示到text3中

VB6.0 新建form1,有text1,text2,text3,command1，这4个控件，text1中有很多字符，什么数字啊，标点啊，各种符号，中文，英文全都有，反正很复杂。text2中很简单，就是一连串整数，如：101,102,103,104,105,......199 200 一共100个整数。而text1中有text2中的某些整数，但不是每个都有。然后我点击command1按钮后，将text1和text2中相同的数字，显示到text3中，有多少就显示多少个。麻烦高手花点小小的时间写写command1的点击事件代码~！

Answer 1

要是text1 中是这样一串数字 "102,\105106*103.101,41078&9,104" 你希望text3中显示什么

Answer 2

Private Sub Command1_Click()
o = Split(Text2, ",")
For a = 0 To UBound(o)
If InStr(Text1, o(a)) > 0 Then Text3 = Text3 & o(a)
Next
End Sub