Question

vb数组内查找拜托各位大神

text1内数字为1-2-3-4-5-6 4-5-6-7 1-2-3-4-6 1-2-3-4-6-7 2-3-4-5-6 3-4-6-7 每组中间隔两个空格。然后我要查找出text1内每组中只要有4,6,7的就列在text2中结果为 4-5-6-7 1-2-3-4-6-7 3-4-6-7 text3显示为查找的结果的组数3组。 text1内的数组为不固定的，有多有少，但是每组之间的数字都是用“-”隔开。每两组中间都是隔两个空格。

Answer 1

Private Sub Command1_Click() Dim t1, x As String Dim a As Integer Dim s(100), m(100) As String t1 = Text1.Text a = 1 For i = 1 To Len(t1) x = Mid(t1, i, 1) If x = " " Then a = a + 1 z = 1 i = i + 1 End If s(a) = s(a) & x Next i For b = 1 To a For i = 1 To Len(s(b)) If Mid(s(b), i, 1) = "4" Then For j = 1 To Len(s(b)) If Mid(s(b), j, 1) = "6" Then For k = 1 To Len(s(b)) If Mid(s(b), k, 1) = "7" Then m(z) = s(b) z = z + 1 End If Next k End If Next j End If Next i Next b For i = 1 To z Text2.Text = Text2.Text & m(i) & " " Next i Text3.Text = z - 1 End Sub