数组去重复，再排序从小到大，或从大到小。

108937101

编辑框中有内容  "2.1.2.1.2.1.6.5.4.3.4.5.6.1.2.1.2.1.2.10.9.8.7.8.9.10"  


.版本 2
.支持库 spec

.子程序 数组去重复1
.局部变量 文本_数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 p, 整数型

文本_数组 ＝ 分割文本 (编辑框1.内容, “.”, )

.计次循环首 (取数组成员数 (文本_数组), i)
    .变量循环首 (取数组成员数 (文本_数组), i ＋ 1, -1, p)
        .如果真 (文本_数组 [i] ＝ 文本_数组 [p])
            删除成员 (文本_数组, p, )
        .如果真结束

    .变量循环尾 ()
.计次循环尾 ()


\\重复数组成员可以删除，这里再把数组从小到大或从大到小，排序一下，怎么处理？

houtian

  

变量名	类 型	静态	数组	备 注
文本_数组	文本型		0
i	整数型
j	整数型

文本_数组 ＝ 分割文本 (“2.1.2.1.2.1.6.5.4.3.4.5.6.1.2.1.2.1.2.10.9.8.7.8.9.10”, “.”, )
数组_去重复 (文本_数组)
计次循环首 (取数组成员数 (文本_数组), i)
计次循环首 (取数组成员数 (文本_数组) － i, j)
如果真 (到整数 (文本_数组 [i]) ＞ 到整数 (文本_数组 [i ＋ j]))
交换变量 (文本_数组 [i], 文本_数组 [i ＋ j])

计次循环尾 ()
计次循环尾 ()
调试输出 (文本_数组)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 文本_数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> 文本_数组 ＝ 分割文本 (“2.1.2.1.2.1.6.5.4.3.4.5.6.1.2.1.2.1.2.10.9.8.7.8.9.10”, “.”, )<br /> 数组_去重复 (文本_数组)<br /> .计次循环首 (取数组成员数 (文本_数组), i)<br />     .计次循环首 (取数组成员数 (文本_数组) － i, j)<br />         .如果真 (到整数 (文本_数组 <i>) ＞ 到整数 (文本_数组 [i ＋ j]))<br />             交换变量 (文本_数组 <i>, 文本_数组 [i ＋ j])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (文本_数组)

风度猫

.版本 2

数组_去重复 (文本_数组)
数组_排序1 (文本_数组,真)'从大到小
数组_排序1 (文本_数组,假)'从小到大

108937101

风度猫 发表于 2024-3-29 11:21
.版本 2

数组_去重复 (文本_数组)

用的是精易模块？

数组_排序 (文本_数组, 假)  ' 从小到大
能将“逻辑型”数据转换到“字节型”数据。这是怎么回事？

风度猫

108937101 发表于 2024-3-29 11:26
用的是精易模块？

数组_排序 (文本_数组, 假)  ' 从小到大

看完整哈 排序1....  不是数组_排序

houtian

@笨来无一悟  关键这是文本型数组啊, 总不能把文本型数组转换成整数型数组, 然后再去用数组排序, 然后在转回文本数组