文件重新组合

zzz8662

有一些文本数据（数据可能很多上万、上千个），格式为：标号 X Y Z 如下：
11 7 8 9
31 6 5 4
21 9 10 12
23 8 10 19
11 18 21 36
21 19 20 39
23 17 19 31
31 17 14 15
怎样把数据循环一遍后，把数据存到另外一个文件，要求把标号相同的放一行。
处理后格式；
11 7 8 9 18 21 36
21 9 10 12 19 20 39
23 8 10 19 17 19 31
31 6 5 4 17 14 15
注：第一个数（即11 21 23 31仍然是标号）
谢谢您的回答！

efan2000

涉及到排序的问题，而且数据量比较大，使用数据库做为中介比较方便。

雪山飞狐_lzh

如果不排序，直接用集合做简单一点

zzz8662

lzh741206发表于2004-7-3 16:14:00如果不排序，直接用集合做简单一点

能说的具体一点吗？集合是什么？我不太懂。

雪山飞狐_lzh

看看这个例子，使用错误机制消除重复数据 Sub tthh()
On Error Resume Next
Dim a As New Collection
a.Add 123, "*123*"
a.Add 123, "*123*"
a.Add 3, "*3*"
MsgBox a.Count
End Sub