文件重新组合

zzz8662 发表于 2004-7-3 15:59:00

有一些文本数据（数据可能很多上万、上千个），格式为：标号 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 发表于 2004-7-3 16:07:00

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

雪山飞狐_lzh 发表于 2004-7-3 16:14:00

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

zzz8662 发表于 2004-7-3 16:41:00

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

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

雪山飞狐_lzh 发表于 2004-7-3 16:51:00

看看这个例子，使用错误机制消除重复数据

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

页: [1]

明经CAD社区's Archiver

文件重新组合