怎么保留6个完全相同数的数

来源：百度知道 编辑：UC知道 时间：2024/05/31 06:27:05
怎么保留6个完全相同数的数
小弟不懂vb请高手帮忙编写

Text1窗口有1行数据：01-33之间的数据
01 02 03 04 05 06

Text2窗口有多行数据：注意每行最后都有一个空格
03 25 02 11 04 06 26 28
07 25 03 14 29 18 26 33
13 05 12 01 04 06 26 28
05 02 03 04 06 01 22 23
02 03 01 04 06 05 32 31

点comd1 把Text2窗口内与Text1窗口完全相同的行保留（顺序不管，只要求6个数相同）
其他删除，最后结果是
05 02 03 04 06 01 22 23
02 03 01 04 06 05 32 31

还是与你的要求相同吧，以避免你不好用
Private Sub Command1_Click()

Dim Flag(1 To 39) As Boolean
Dim arr, tmp
Dim i As Long, j As Long
Dim Idx As Long
Dim n As Long

arr = Split(Trim(Text1))
For i = 0 To UBound(arr)
Flag(arr(i)) = True
Next

arr = Split(Text2, vbCrLf)
For i = 0 To UBound(arr)
n = 0
tmp = Split(Trim(arr(i))) 'Trim删除每行尾空格
For j = 0 To UBound(tmp)
n = n - Flag(tmp(j))
Next j
If n < 6 Then
arr(i) = vbNullString
Else
arr(Idx) = arr(i)
Idx = Idx + 1
End If
Next i
If Idx > 0 Then ReDim Preserve arr(Idx - 1)
Text2 = Join(arr, vbCrLf)
End Sub

text2控件改成LISTBOX控件，再增加一个添加数据的按钮和textbox控件。

如图。

Private Sub Command1_Click()

Dim&n