文本排序

qinhanfeng3321 · 发表于 2018-9-25 13:30:55

排序.rar (853 Bytes, 下载次数: 19)

易正易则 · 发表于 2018-9-25 13:30:56

排序.e (742.98 KB, 下载次数: 143)

观音 · 发表于 2018-9-25 13:38:41

建议使用自定义数据变量

数据类型名	公开	备注
扑克牌
成员名	类型	传址	数组	备注
名称	文本型			放展示给客户的牌名称
大小	整数型			用于判断大小 3为1 4为2 5为3 以此类推或者根据你的方法来然后根据大小排序

走一回 · 发表于 2018-9-25 14:00:50

.版本 2

.局部变量文本数组1, 文本型, , "0"
.局部变量 i, 整数型
.局部变量循环次数, 整数型
.局部变量插入的文本, 文本型

文本数组1 ＝分割文本 (编辑框1.内容, #换行符, )
循环次数＝取数组成员数 (文本数组1)
.计次循环首 (循环次数, i)
插入的文本＝到文本 (到整数 (取文本右边 (文本数组1 [循环次数－ i ＋ 1], 取文本长度 (文本数组1 [循环次数－ i ＋ 1]) － 4)))
文本数组1 [循环次数－ i ＋ 1] ＝插入的文本＋文本数组1 [循环次数－ i ＋ 1]
.计次循环尾 ()
数组_排序 (文本数组1, 0)
.计次循环首 (循环次数, i)
编辑框2.加入文本 (取文本右边 (文本数组1 , 取文本长度 (文本数组1 ) － 1) ＋ #换行符)

补充内容 (2018-9-25 14:02):
这个只是实现了文本排序,没有达成你的按数字大小排序

fengshangren · 发表于 2018-9-25 14:06:48

弄肯定是可以弄的，只是给你写例子，很麻烦的。要写不少代码

易正易则 · 发表于 2018-9-25 14:08:24

小小栗子仅供参考！

Demo.e (743.82 KB, 下载次数: 18)

走一回 · 发表于 2018-9-25 14:20:39

.版本 2

.局部变量文本数组1, 文本型, , "0"
.局部变量 i, 整数型
.局部变量循环次数, 整数型
.局部变量插入的文本, 文本型
.局部变量临时成员, 文本型

文本数组1 ＝分割文本 (编辑框1.内容, #换行符, )
循环次数＝取数组成员数 (文本数组1)
.计次循环首 (循环次数, i)
插入的文本＝到文本 (到整数 (取文本右边 (文本数组1 [循环次数－ i ＋ 1], 取文本长度 (文本数组1 [循环次数－ i ＋ 1]) － 4)))
' 文本数组1 [循环次数－ i ＋ 1] ＝插入的文本＋文本数组1 [循环次数－ i ＋ 1]
插入成员 (文本数组1, 循环次数－ i ＋ 1, 插入的文本)
.计次循环尾 ()
重定义数组 (文本数组1, 真, 循环次数, 2)
.计次循环首 (16, i)
.计次循环首 (16, i)
      .如果真 (到整数 (文本数组1 [i] [1]) ＞到整数 (文本数组1 [i ＋ 1] [1]))
         临时成员＝文本数组1 [i ＋ 1] [1]
         文本数组1 [i ＋ 1] [1] ＝文本数组1 [i] [1]
         文本数组1 [i] [1] ＝临时成员
         临时成员＝文本数组1 [i ＋ 1] [2]
         文本数组1 [i ＋ 1] [2] ＝文本数组1 [i] [2]
         文本数组1 [i] [2] ＝临时成员
      .如果真结束

.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (17, i)
编辑框2.加入文本 (文本数组1 [i] [2] ＋ #换行符)
.计次循环尾 ()

易正易则 · 发表于 2018-9-25 14:38:55

修改了一下，删除了一些无用代码

排序.e (742.56 KB, 下载次数: 11)

易正易则 · 发表于 2018-9-25 15:44:15

要是要这样效果大王小王红桃K Q J 10 9 8 7 6 5 4 3 2 1
就下载这个附件

排序.e (743.16 KB, 下载次数: 13)

		自动登录	找回密码
密码			注册

[已解决] 文本排序

最佳答案

评分

点评

评分

点评