Question

易语言计次循环

有一组数据,例: 232401|1065,219|1071,209|1077,209|1065,233|1071,233|1071,233
前面是一组数字,后面用|分开的的是坐标,要求吧Y坐标相同的数字分出来,比如这组数据分完应该是:2 ,32,401
这个数组个数随机.

Answer 1

.版本 2

.程序集 窗口程序集1

.程序集变量 数组x, 文本型, , "0"

.程序集变量 数组y, 文本型, , "0"

.程序集变量 文本组, 文本型, , "0"

.程序集变量 数组, 文本型, , "2"

.程序集变量 文本, 文本型

.程序集变量 计次, 整数型

.程序集变量 计数, 整数型

.子程序 __启动窗口_创建完毕

文本 ＝ “1065,219|1071,209|1077,209|1065,233|1071,233|232,401|1071,233”

文本组 ＝ 分割文本 (文本, “|”, )

.计次循环首 (取数组成员数 (文本组), 计次)

    数组 ＝ 分割文本 (文本组 [计次], “,”, )

    加入成员 (数组x, 数组 [1])

    加入成员 (数组y, 数组 [2])

.计次循环尾 ()

文本 ＝ “”

.计次循环首 (取数组成员数 (数组x), 计次)

    数组 [1] ＝ 数组x [计次]

    数组 [2] ＝ 数组y [计次]

    .变量循环首 (计次 ＋ 1, 取数组成员数 (数组x), 1, 计数)

        .如果真 (数组x [计数] ＝ 数组 [1])

            数组x [计次] ＝ “”

            数组x [计数] ＝ “”

        .如果真结束

        .如果真 (数组y [计数] ＝ 数组 [2])

            数组y [计次] ＝ “”

            数组y [计数] ＝ “”

        .如果真结束

    .变量循环尾 ()

    .如果真 (数组y [计次] ≠ “” 且 数组x [计次] ≠ “”)

        .如果 (文本 ＝ “”)

            文本 ＝ 文本组 [计次]

        .否则

            文本 ＝ 文本 ＋ “|” ＋ 文本组 [计次]

        .如果结束

    .如果真结束

.计次循环尾 ()

输出调试文本 (文本)