标题:请教特殊的排序
只看楼主
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
结帖率:73.44%
已结贴  问题点数:20 回复次数:9 
请教特殊的排序
请教先生,有一个53行24列的原表,第一列按升序,第二列以前一列即第一列以按升序排好的为标准,将第一列中"相同数值的段"分别按升序排列来排第二列,第三列以前一列即已排好的第二列为标准,将第二列中"相同数值的段"分别按升序排列来排第三列,以此类推,直至最后列排好为止。为表达更清楚些,以下举6行3列的例补充以上文字的不确切:
     原表        排成结果
 5   1   9      4   1   7
 4   2   3      4   2   3
 6   8   7      4   2   4
 4   1   7      5   1   9
 4   2   4      6   8   3
 6   8   3      6   8   7

附件:
原表.zip (2.23 KB)
                           
2016-11-07 16:04
pjtyzyq
Rank: 4
等 级:业余侠客
威 望:6
帖 子:230
专家分:240
注 册:2016-2-14
得分:0 
USE  原表
DIMENSION  aa(53)
FOR j=1 TO 53
FOR i=1 TO 24
i_1=LTRIM(STR(i,2))
IF a&i_1<10 THEN
a_1="0"+STR(a&i_1,1)
ELSE
a_1=STR(a%i_1,2)
ENDIF
=aa(j)+a_1
ENDFOR
ENDFOR
ASORT( aa )
FOR j=1 TO 53
FOR i=1 TO 24
i_1=LTRIM(STR(i,2))
REPLACE a&i_1 WITH VAL(SUBSTR(aa(j),i*2-1,2))
ENDFOR
ENDFOR

未测试,程序也不一定正确,只是提供一个个人的思路。
2016-11-07 16:34
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:10 
select * from 原表 order by a1,a2,......,a23,a24

坚守VFP最后的阵地
2016-11-07 16:35
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:10 
举例的结果就是按“1列”+“2列”+“3列”索引的结果。
2016-11-07 17:45
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
USE 原表
INDEX ON STR(A1,2)+STR(A2,2)+......+STR(A23,2)+STR(A24,2) TO SY
GO TOP
BROWSE

坚守VFP最后的阵地
2016-11-07 18:55
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
得分:0 
回复 5楼 sdta
先生您好,我依您之法,运行后提示:"索引表达式超出最大长度"
2016-11-07 20:56
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
得分:0 
回复 4楼 吹水佬
是的先生
2016-11-07 20:57
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
以下是引用fdxxhjc在2016-11-7 20:56:45的发言:

先生您好,我依您之法,运行后提示:"索引表达式超出最大长度"

3楼的代码试了吗

坚守VFP最后的阵地
2016-11-07 21:36
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
得分:0 
以下是引用fdxxhjc在2016-11-7 20:56:45的发言:

先生您好,我依您之法,运行后提示:"索引表达式超出最大长度"
试试3楼的代码
2016-11-07 22:05
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:108
帖 子:2175
专家分:3785
注 册:2007-4-27
得分:0 
3楼之法最好

只求每天有一丁点儿的进步就可以了
2016-11-08 08:19



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-470834-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018881 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved