英文数字混编求排序源码

y2j423633

已知文本内容为 数字+英文 / 英文+数字 的内容，求对该文本的排序源码

例子：已知文本为 aaa00001~aaa99999 或 abc00001~abc99999 ，需对英文及数字统一进行排序

例如，  aaa00001 排在 abc000001  前面，如果英文前缀一致，则只对数字进行排序

文本内容也有  00001aaaaaa 这种的，英文和数字的长度不定

不知道讲述的是否够清楚，有不清楚的跟帖回复一下，谢谢


补充内容 (2017-6-19 21:46):
http://125.confly.eu.org/forum.php?mod= ... 80&pid=11587153

已补需排序的文本例子,求大神出手

奇异博士

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本数组	文本型		20
i	整数型
随机	文本型

置随机数种子 ()
计次循环首 (20, i)
随机 ＝ 选择 (取字节集数据 (到字节集 (取随机数 (0, 1)), #逻辑型, ), “aaa”, “abc”) ＋ 到文本 (取随机数 (1000, 9999))
文本数组 [i] ＝ 随机
编辑框1.加入文本 (随机 ＋ #换行符 )
计次循环尾 ()
文本排序 (文本数组, 真)
计次循环首 (20, i)
编辑框2.加入文本 (文本数组 [i] ＋ #换行符 )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
文本排序
参数名	类 型	参考	可空	数组	备 注
文本数组	文本型
从小到大	逻辑型				默认从大到小

变量名	类 型	静态	数组	备 注
a	整数型
b	整数型
大数	大数		2
c	整数型
保留	文本型
数字	文本型		2
字节集1	字节集
字节集2	字节集

计次循环首 (取数组成员数 (文本数组), a)
计次循环首 (取数组成员数 (文本数组), b)
字节集1 ＝ 到字节集 (文本数组 [a])
字节集2 ＝ 到字节集 (文本数组 [b])
计次循环首 (取字节集长度 (字节集1), c)
数字 [1] ＝ 数字 [1] ＋ 到文本 (字节集1 [c])
计次循环尾 ()
大数 [1].导入文本 (数字 [1])
计次循环首 (取字节集长度 (字节集2), c)
数字 [2] ＝ 数字 [2] ＋ 到文本 (字节集2 [c])
计次循环尾 ()
大数 [2].导入文本 (数字 [2])
如果真 (选择 (从小到大, 大数 [1].小于 (大数 [2]), 大数 [1].大于 (大数 [2])))
保留 ＝ 文本数组 [a]
文本数组 [a] ＝ 文本数组 [b]
文本数组 [b] ＝ 保留
大数 [1].销毁 ()
大数 [2].销毁 ()
数字 [1] ＝ “”
数字 [2] ＝ “”
计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
eCalc	数值计算支持库

.版本 2<br /> .支持库 eCalc<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本数组, 文本型, , "20"<br /> .局部变量 i, 整数型<br /> .局部变量 随机, 文本型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (20, i)<br />     随机 ＝ 选择 (取字节集数据 (到字节集 (取随机数 (0, 1)), #逻辑型, ), “aaa”, “abc”) ＋ 到文本 (取随机数 (1000, 9999))<br />     文本数组 <i> ＝ 随机<br />     编辑框1.加入文本 (随机 ＋ #换行符)<br /> .计次循环尾 ()<br /> 文本排序 (文本数组, 真)<br /> .计次循环首 (20, i)<br />     编辑框2.加入文本 (文本数组 <i> ＋ #换行符)<br /> .计次循环尾 ()<br /> <br /> .子程序 文本排序<br /> .参数 文本数组, 文本型, 数组<br /> .参数 从小到大, 逻辑型, 可空, 默认从大到小<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 大数, 大数, , "2"<br /> .局部变量 c, 整数型<br /> .局部变量 保留, 文本型<br /> .局部变量 数字, 文本型, , "2"<br /> .局部变量 字节集1, 字节集<br /> .局部变量 字节集2, 字节集<br /> <br /> .计次循环首 (取数组成员数 (文本数组), a)<br />     .计次循环首 (取数组成员数 (文本数组), b)<br />         字节集1 ＝ 到字节集 (文本数组 [a])<br />         字节集2 ＝ 到字节集 (文本数组 <strong>)<br />         .计次循环首 (取字节集长度 (字节集1), c)<br />             数字 [1] ＝ 数字 [1] ＋ 到文本 (字节集1 [c])<br />         .计次循环尾 ()<br />         大数 [1].导入文本 (数字 [1])<br />         .计次循环首 (取字节集长度 (字节集2), c)<br />             数字 [2] ＝ 数字 [2] ＋ 到文本 (字节集2 [c])<br />         .计次循环尾 ()<br />         大数 [2].导入文本 (数字 [2])<br />         .如果真 (选择 (从小到大, 大数 [1].小于 (大数 [2]), 大数 [1].大于 (大数 [2])))<br />             保留 ＝ 文本数组 [a]<br />             文本数组 [a] ＝ 文本数组 <strong><br />             文本数组 <strong> ＝ 保留<br />         .如果真结束<br />         大数 [1].销毁 ()<br />         大数 [2].销毁 ()<br />         数字 [1] ＝ “”<br />         数字 [2] ＝ “”<br />     .计次循环尾 ()<br /> .计次循环尾 ()

补充内容 (2017-6-19 21:59):
小弟我只会写冒泡算法

潇洒＆男孩

你可以尝试下利用数据库的排序来实现！如果是想利用其它的排序的话我不懂！你可以坐等大神！

镇坛道德标杆

demo.zip (1.62 KB, 下载次数: 10)

2017-6-19 20:07 上传

点击文件名下载附件

     

呵呵仙

就文本排序就OK了.
http://bbs.eyuyan.com/read.php?tid=397806

小淡

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .局部变量 b, 文本型, , "0"
   
5. .局部变量 z, 整数型, , "0"
   
6. .局部变量 文本, 文本型
   
7. .局部变量 i
   
8. 
   
9. 
   
10. 文本 ＝ “aaa00001/aaa99999/abc00001/abc99999”
    
11. 文本 ＝ 子文本替换 (文本, “aaa”, “888”, , , 真)
    
12. 文本 ＝ 子文本替换 (文本, “abc”, “999”, , , 真)
    
13. b ＝ 分割文本 (文本, “/”, )
    
14. .计次循环首 (取数组成员数 (b), i)
    
15.     加入成员 (z, 到整数 (b [i]))
    
16. .计次循环尾 ()
    
17. 数组排序 (z, 真)
    
18. 清除数组 (b)
    
19. .计次循环首 (取数组成员数 (z), i)
    
20.     文本 ＝ 到文本 (z [i])
    
21.     .判断开始 (取文本左边 (文本, 3) ＝ “888”)
    
22.         文本 ＝ “aaa” ＋ 取文本右边 (文本, 取文本长度 (文本) － 3)
    
23.     .判断 (取文本左边 (文本, 3) ＝ “999”)
    
24.         文本 ＝ “abc” ＋ 取文本右边 (文本, 取文本长度 (文本) － 3)
    
25.     .默认
    
26. 
    
27.     .判断结束
    
28.     加入成员 (b, 文本)
    
29. .计次循环尾 ()
    
30. 调试输出 (b)
    

复制代码

粉蝴蝶软件

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. .局部变量 文本, 文本型
   
8. .局部变量 n1, 整数型
   
9. .局部变量 txt1, 整数型
   
10. 
    
11. 文本 ＝ “aaa00001”
    
12. .计次循环首 (取文本长度 (文本), n1)
    
13.     txt1 ＝ 取文本中间 (文本, n1, 1)
    
14.     .如果真 (取反 (是否为数字 (txt1)))
    
15.         调试输出 (字母取位置 (txt1))
    
16.     .如果真结束
    
17. 
    
18. .计次循环尾 ()
    
19. 
    
20. .子程序 字母取位置, 整数型, , 判断字母所在的循序，并返回位置，可用于判断先后，数值越小越靠前
    
21. .参数 字母, 文本型
    
22. .局部变量 字母组, 文本型, , "0"
    
23. .局部变量 小写字母, 文本型
    
24. .局部变量 n1, 整数型
    
25. 
    
26. 字母组 ＝ { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
    
27. 小写字母 ＝ 到小写 (字母)
    
28. .计次循环首 (取数组成员数 (字母组), n1)
    
29.     .如果真 (小写字母 ＝ 字母组 [n1])
    
30.         返回 (n1)
    
31.     .如果真结束
    
32.     处理事件 ()
    
33. .计次循环尾 ()
    
34. 返回 (0)
    
35. 
    
36. .子程序 是否为数字, 逻辑型
    
37. .参数 文本, 文本型
    
38. 
    
39. .如果真 (到文本 (到整数 (文本)) ＝ 文本)
    
40.     返回 (真)
    
41. .如果真结束
    
42. 返回 (假)
    

复制代码

补充内容 (2017-6-19 21:08):
没有解决你的问题，这个是刚写的 如何判断字母大小的，A>b  执行出来是 1>2,数值越小越大，你可以利用这个子程序去写，先删除首部的0，然后判断第一个数值是数字还是文字，如果是数字 就按数组来判断

补充内容 (2017-6-19 21:08):
字母就按循序先后来判断

y2j423633

小淡 发表于 2017-6-19 20:49

亲，文本内容是
aaa00001 到 aaa99999 不是只有2个文本的

y2j423633

粉蝴蝶软件 发表于 2017-6-19 21:05
补充内容 (2017-6-19 21:08):
没有解决你的问题，这个是刚写的 如何判断字母大小的，A>b  执行出来是 1>2 ...

也不知道是不是我自己想的复杂了还是讲的复杂了

我现在就一批文本内容就是 英文+数字 或者 数字+英文 这样类型的

我自己的思路是先判断第几位到第几位是数字,然后处理以0开头的数字段,作对比

其次是英文段的排序,最后再是一个综合排序,我自己也没实现到,所以才来求助了

y2j423633

呵呵仙 发表于 2017-6-19 20:37
就文本排序就OK了.
http://bbs.eyuyan.com/read.php?tid=397806

呵呵仙来个模块具体的用法呗,人笨下载了不会用