求助编写找相同程序，可看示例说明

Question

 这是找相同程序示例说明
给出的数据如下：
1号Data 2,3,4,9,10,11,15,19,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2号Data 5,6,7,9,10,13,18,19,20,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3号Data 4,5,7,8,9,10,13,14,15,16,17,18,19,20,22,24,25,26,27,28,29,0,0,0,0,0,0,0,0,0,0,0,0
4号Data 2,3,4,9,10,11,15,19,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
5号Data 5,6,7,9,10,13,18,19,20,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6号Data 2,3,4,9,10,11,15,19,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7号Data 5,6,7,9,10,13,18,19,20,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8号Data 5,6,7,9,10,13,18,19,20,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9号Data 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,30,31,32,33,0,0,0,0
10号Data 4,5,7,8,9,10,13,14,15,16,17,18,19,20,22,24,25,26,27,28,29,0,0,0,0,0,0,0,0,0,0,0,0
找相同方法分析（算法分析）：
第一种输出结果：
1、为便于分析我把每组编上号，如上.
2、开始找相同，首先第一行和第二行（1号和2号）进行比较，1行和2行不相同；第1行再和第3行比较，也不相同；再进行第1行和第4行比较，这两行相同，随后就输出其中的一行。当第一行和下面的所有行都比较完之后；在进行第2行和第3行比较，以此类推。这种比较输出的结果如下：
第一种输出结果：
Data 2,3,4,9,10,11,15,19,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 2,3,4,9,10,11,15,19,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 5,6,7,9,10,13,18,19,20,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 5,6,7,9,10,13,18,19,20,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 5,6,7,9,10,13,18,19,20,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 4,5,7,8,9,10,13,14,15,16,17,18,19,20,22,24,25,26,27,28,29,0,0,0,0,0,0,0,0,0,0,0,0第二种输出结果：
比较的方法和第一种方法一致，只是输出形式不同，比较时无论有多少行相同，把相同的只输出一组，没有相同的行就不要输出了，这种情况输出结果是：
Data 2,3,4,9,10,11,15,19,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 5,6,7,9,10,13,18,19,20,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
Data 4,5,7,8,9,10,13,14,15,16,17,18,19,20,22,24,25,26,27,28,29,0,0,0,0,0,0,0,0,0,0,0,0
要求及说明：
1、在输出结果中在前面要含有DATA。
2、每行个数33个数，不够的用“0”补齐；输出时每行排列顺序是从小到大。
3、关键是程序输入的两部分数据不止前面示例那样多，每部分可能有百组、上千组或者上万组。4、每行输出后面要显示出该行含有多少个数字。比如n=数字。
5、要有数据的输入和输出，并且能保存输出的数据。
6、在数据输出时能有选择性的输出。比如在找相同后输出时，只输出含有n=16,或n从16到18之间的行。当不输入约束条件时，就把找到的有相同的数全部输出。
7、这两种输出结果，要用两个程序来完成，也就是要编2个程序。

Answer 1

请问一下,输入数据是数据串,如上面所示:
"Data 2,3,4,9,10,11,15,19,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
还是
"Data 2,3,4,9,10,11,15,19"
还是数组(按大小已排序)
dim Data(7) as long
Data(0)=2
Data(1)=3
......
还是数组(没有排序)
dim Data(7) as long
Data(0)=9
Data(1)=2
Data(2)=11
......

Answer 2

Dim Data()  As String
Dim ArrFlag() As SinglePrivate Sub Command1_Click()
Open "F:\data.txt" For Input As #1
Dim Z As String
Dim Count As SingleCount = 0
Do Until EOF(1)
Line Input #1, Z
   ReDim Preserve Data(Count) As String
   Data(Count) = Z
   Count = Count + 1
Loop
Close #1''以上是取出数据Analyse (Data)Dim Arr() As String
Arr = GetData_1
For i = 0 To UBound(Arr)
Print Arr(i)
Next
Print
Print
Arr = GetData_2
For i = 0 To UBound(Arr)
Print Arr(i)
NextEnd Sub
Private Sub Analyse(ByVal Data)  '数据分析
 ReDim ArrFlag(UBound(Data)) As Single
 Dim i As Single
 
 For i = 0 To UBound(Data) - 1
    If ArrFlag(i) = 0 Then
       For j = i + 1 To UBound(Data)
          If ArrFlag(j) = 0 Then
             If Data(i) = Data(j) Then
                ArrFlag(i) = 1
                ArrFlag(j) = 2
             End If
          End If
       Next
    End If
 NextEnd Sub
Private Function GetData_1() As String()  '按第一种方式输出，注意结果没有排序
   Dim Count As Single
   Dim m_Data() As String
   Count = 0
For i = 0 To UBound(ArrFlag)
   If ArrFlag(i) = 2 Then
     ReDim Preserve m_Data(Count) As String
     m_Data(Count) = Data(i)
     Count = Count + 1
   End If
Next
GetData_1 = m_Data
End Function
Private Function GetData_2() As String() '按第二种方式输出
   Dim Count As Single
   Dim m_Data() As String
   Count = 0
For i = 0 To UBound(ArrFlag)
   If ArrFlag(i) = 1 Then
     ReDim Preserve m_Data(Count) As String
     m_Data(Count) = Data(i)
     Count = Count + 1
   End If
Next
GetData_2 = m_Data
End Function

Answer 3

有这么麻烦吗？
直接丢数据库里，一个SQL语句不就查询出来了。

Answer 4

用字典会好些吧：
Dim dic As Object
Private Sub Command1_Click()
Set dic = CreateObject("scripting.dictionary")
Dim s() As String, i As Long
Open "F:\data.txt" For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
For i = 0 To UBound(s)
dic(s(i)) = dic(s(i)) + 1
Next
MsgBox data(1)
MsgBox data(0)
End SubFunction data(ByVal outtype As Byte) As String
Dim i As Long
For Each d In dic.keys
If dic(d) > 1 Then
For i = 1 To dic(d) ^ outtype
data = data & d & vbCrLf
Next
End If
Next
End Function