易语言 取数组相等数的位置

.版本 2

.程序集 窗口程序集1

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

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

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

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

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

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

.程序集变量 数目, 整数型, , "0"

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

文本数组A ＝ { “001”, “000”, “101”, “100”, “000”, “111”, “000”, “011”, “110”, “100”, “001”, “010”, “010”, “001”, “111”, “011”, “110” }

编辑框1.是否允许多行 ＝ 真

编辑框2.是否允许多行 ＝ 真

.子程序 _按钮1_被单击

文本数组B ＝ 分割文本 (编辑框1.内容, #换行符, )

编辑框2.内容 ＝ “”

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

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

    计数 ＝ 1

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

        .如果真 (文本数组C [计数] ＝ 文本数组A [次数])

            加入成员 (数目, 次数)

            计数 ＝ 计数 ＋ 1

            .如果真 (计数 ＞ 取数组成员数 (文本数组C))

                跳出循环 ()

            .如果真结束

        .如果真结束

    .计次循环尾 ()

    .如果真 (取数组成员数 (文本数组C) ＝ 取数组成员数 (数目))

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

            编辑框2.加入文本 (到文本 (数目 [计数]))

            .如果真 (取数组成员数 (数目) ≠ 计数)

                编辑框2.加入文本 (“,”)

            .如果真结束

        .计次循环尾 ()

        编辑框2.加入文本 (#换行符)

    .如果真结束

    清除数组 (数目)

.计次循环尾 ()