易语言编辑框与数据库比对

代码如下：

.版本 2

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

.局部变量 临时文本, 文本型, , "0"

.局部变量 i1, 整数型

.局部变量 i2, 整数型

.局部变量 数组成员数, 整数型

临时文本 ＝ 分割文本 (编辑框1.内容, #换行符, )

数组成员数 ＝ 取数组成员数 (临时文本)

.如果真 (数组成员数 ≠ 0)

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

        到首记录 ()

        .计次循环首 (取记录数 (), i2)

            .如果真 (临时文本 [i1] ＝ 读 (“字段1”))

                ’填写代码

                输出调试文本 (读 (“字段2”))

            .如果真结束

            跳过 ()

        .计次循环尾 ()

    .计次循环尾 ()

.如果真结束

首先把数据库中的数据取出 放到数组

然后把编辑框的数据取出 放到数组

然后循环这两个数组 判断相同的个数就好

比如

数据A={“01”，“04”，“02”}

数据B={“05”，“09”，“03”，………………}

相同个数=0

计次循环首（取数组成员数（数据A），i）

计次循环首(取数组成员数(数据B），j)

如果真（数据A[i]=数据B[j]）

相同个数=相同个数+1

跳出循环（）

计次循环尾（）

计次循环尾（）

编辑框。内容=到文本（相同个数>=2）

---