坐标算法问题

不许人间见白头

文本=“1,45,58|2,96,12|3,65,47|4,35,47|5,16,87|6,85,49”


“1,45,58"  1代表的是序号，45是X坐标    58是Y坐标


脑子迷糊了 转不过来  求排列一下这个文本，按照 X从小到大排列











补充内容 (2022-12-26 13:02):
X会有相同的

御天软件

不许人间见白头 发表于 2022-12-26 12:59
前面我也是这么弄的，但是后面的不行，会有相同的X的 这样Y坐标就不对了
...

文本 ＝ “1,45,58|2,96,12|3,65,47|4,35,47|5,16,87|6,85,49|7,35,49”
输出结果 = 数组:7{“5,16,87”,“4,35,47”,“7,35,49”,“1,45,58”,“3,65,47”,“6,85,49”,“2,96,12”}

4和7 的X都是35  这次你试试


数组排序中 可以存在,号 只要把X和序号换个位置  默认按照前面一个数字进行排序  排序完再把位置调换回来

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

子程序1 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
文本	文本型
文本1	文本型
数组_文本1	文本型		0
i	整数型
数组_文本2	文本型		0
数组_文本3	文本型		0
ii	整数型
数组_文本4	文本型		0
数组_文本5	文本型		0

文本 ＝ “1,45,58|2,96,12|3,65,47|4,35,47|5,16,87|6,85,49|7,35,49”
数组_文本1 ＝ 分割文本 (文本, “|”, )
计次循环首 (取数组成员数 (数组_文本1), i)
数组_文本2 ＝ 分割文本 (数组_文本1 [i], “,”, )
文本1 ＝ 数组_文本2 [2] ＋ “,” ＋ 数组_文本2 [1] ＋ “,” ＋ 数组_文本2 [3]
加入成员 (数组_文本3, 文本1)
计次循环尾 ()
数组_排序 (数组_文本3, 0, )
计次循环首 (取数组成员数 (数组_文本3), ii)
数组_文本4 ＝ 分割文本 (数组_文本3 [ii], “,”, )
文本1 ＝ 数组_文本4 [2] ＋ “,” ＋ 数组_文本4 [1] ＋ “,” ＋ 数组_文本4 [3]
加入成员 (数组_文本5, 文本1)
计次循环尾 ()
调试输出 (数组_文本5)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 子程序1 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1<br /> .局部变量 文本, 文本型<br /> .局部变量 文本1, 文本型<br /> .局部变量 数组_文本1, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 数组_文本2, 文本型, , "0"<br /> .局部变量 数组_文本3, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 数组_文本4, 文本型, , "0"<br /> .局部变量 数组_文本5, 文本型, , "0"<br /> <br /> 文本 ＝ “1,45,58|2,96,12|3,65,47|4,35,47|5,16,87|6,85,49|7,35,49”<br /> 数组_文本1 ＝ 分割文本 (文本, “|”, )<br /> .计次循环首 (取数组成员数 (数组_文本1), i)<br />     数组_文本2 ＝ 分割文本 (数组_文本1 <i>, “,”, )<br />     文本1 ＝ 数组_文本2 [2] ＋ “,” ＋ 数组_文本2 [1] ＋ “,” ＋ 数组_文本2 [3]<br />     加入成员 (数组_文本3, 文本1)<br /> .计次循环尾 ()<br /> <br /> 数组_排序 (数组_文本3, 0, )<br /> <br /> .计次循环首 (取数组成员数 (数组_文本3), ii)<br />     数组_文本4 ＝ 分割文本 (数组_文本3 [ii], “,”, )<br />     文本1 ＝ 数组_文本4 [2] ＋ “,” ＋ 数组_文本4 [1] ＋ “,” ＋ 数组_文本4 [3]<br />     加入成员 (数组_文本5, 文本1)<br /> .计次循环尾 ()<br /> 调试输出 (数组_文本5)

补充内容 (2022-12-26 13:35):
记得最佳

御天软件

笨办法   调试输出内容如下

* “5,16,87”
* “4,35,47”
* “1,45,58”
* “3,65,47”
* “6,85,49”
* “2,96,12”

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

子程序1 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
文本	文本型
数组_文本1	文本型		0
i	整数型
数组_文本2	文本型		0
数组_文本3	文本型		0
ii	整数型
iii	整数型

文本 ＝ “1,45,58|2,96,12|3,65,47|4,35,47|5,16,87|6,85,49”
数组_文本1 ＝ 分割文本 (文本, “|”, )
计次循环首 (取数组成员数 (数组_文本1), i)
数组_文本2 ＝ 分割文本 (数组_文本1 [i], “,”, )
加入成员 (数组_文本3, 数组_文本2 [2])
计次循环尾 ()
数组_排序 (数组_文本3, 0, )
计次循环首 (取数组成员数 (数组_文本3), ii)
计次循环首 (取数组成员数 (数组_文本1), iii)
如果真 (寻找文本 (数组_文本1 [iii], 数组_文本3 [ii], , 假) ≠ -1)
调试输出 (数组_文本1 [iii])
跳出循环 ()

计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 子程序1 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1<br /> .局部变量 文本, 文本型<br /> .局部变量 数组_文本1, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 数组_文本2, 文本型, , "0"<br /> .局部变量 数组_文本3, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 iii, 整数型<br /> <br /> 文本 ＝ “1,45,58|2,96,12|3,65,47|4,35,47|5,16,87|6,85,49”<br /> 数组_文本1 ＝ 分割文本 (文本, “|”, )<br /> .计次循环首 (取数组成员数 (数组_文本1), i)<br />     数组_文本2 ＝ 分割文本 (数组_文本1 <i>, “,”, )<br />     加入成员 (数组_文本3, 数组_文本2 [2])<br /> .计次循环尾 ()<br /> 数组_排序 (数组_文本3, 0, )<br /> .计次循环首 (取数组成员数 (数组_文本3), ii)<br />     .计次循环首 (取数组成员数 (数组_文本1), iii)<br />         .如果真 (寻找文本 (数组_文本1 [iii], 数组_文本3 [ii], , 假) ≠ -1)<br />             调试输出 (数组_文本1 [iii])<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

补充内容 (2022-12-26 12:46):
精益模块

不许人间见白头

御天软件 发表于 2022-12-26 12:44
笨办法   调试输出内容如下

* “5,16,87”

前面我也是这么弄的，但是后面的不行，会有相同的X的 这样Y坐标就不对了

明天自然醒

.版本 2
.支持库 spec

.子程序 子程序1
.局部变量 文本, 文本型
.局部变量 数组_文本, 文本型, , "0"
.局部变量 数组_数值, 整数型, , "0"
.局部变量 i, 整数型
.局部变量 临时容器, 文本型, , "0"

文本 ＝ “1,45,58|2,96,12|3,65,47|4,35,47|5,16,87|6,85,49”
数组_文本 ＝ 分割文本 (文本, “|”, )
.计次循环首 (取数组成员数 (数组_文本), i)
    临时容器 ＝ 分割文本 (数组_文本 [i], “,”, )
    加入成员 (数组_数值, 到整数 (临时容器 [2]))
.计次循环尾 ()
冒泡排序 (数组_数值, 数组_文本)
.计次循环首 (取数组成员数 (数组_文本), i)
    调试输出 (数组_文本 [i])
.计次循环尾 ()

.子程序 冒泡排序, , , 升序，从小到大
.参数 value, 整数型, 参考 数组
.参数 textw, 文本型, 参考 数组
.局部变量 i, 整数型
.局部变量 j, 整数型

.计次循环首 (取数组成员数 (value), i)
    .计次循环首 (取数组成员数 (value) － i, j)
        .如果真 (value [j] ＞ value [j ＋ 1])
            交换变量 (value [j], value [j ＋ 1])
            交换变量 (textw [j], textw [j ＋ 1])
        .如果真结束

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