易语言如何删除两个编辑框有重复的内容,求易语言高手。谢谢了

2025-02-23 00:58:00
推荐回答(3个)
回答1:

.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 局_数组1, 文本型, , "0"
.局部变量 局_数组2, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 局_文本, 文本型
局_数组1 = 分割文本 (编辑框1.内容, #换行符, )
局_数组2 = 分割文本 (编辑框2.内容, #换行符, )
.计次循环首 (取数组成员数 (局_数组1), a)
写配置项 (取运行目录 () + “\是否重复.ini”, 局_数组1 [a], “1”, “1”)
处理事件 ()
.计次循环尾 ()
编辑框2.内容 = “”
.计次循环首 (取数组成员数 (局_数组2), a)
局_文本 = 读配置项 (取运行目录 () + “\是否重复.ini”, 局_数组2 [a], “1”, “”)
.如果真 (局_文本 ≠ “1”)
编辑框2.内容 = 编辑框2.内容 + 局_数组2 [a] + #换行符
.如果真结束
处理事件 ()
.计次循环尾 ()
删除文件 (取运行目录 () + “\是否重复.ini”)

回答2:

.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 编辑框1内容, 文本型, , "0"
.局部变量 编辑框2内容, 文本型, , "0"
.局部变量 循环次数1, 整数型
.局部变量 循环次数2
.局部变量 循环次数3, 整数型
.局部变量 要删的数, 整数型, , "0"

加入成员 (编辑框1内容, 分割文本 (编辑框1.内容, #换行符, ))
加入成员 (编辑框2内容, 分割文本 (编辑框2.内容, #换行符, ))
.计次循环首 (取数组成员数 (编辑框2内容), 循环次数1)
.如果 (取数组成员数 (编辑框1内容) ≥ 循环次数1)
.如果 (编辑框1内容 [循环次数1] = 编辑框2内容 [循环次数1])
加入成员 (要删的数, 循环次数1)
.否则
.如果结束
.否则
跳出循环 ()
.如果结束
.计次循环尾 ()
.计次循环首 (取数组成员数 (要删的数), 循环次数2)
删除成员 (编辑框2内容, 取数组下标 (要删的数, ) - (循环次数2 - 1), )
.计次循环尾 ()
编辑框2.内容 = “”
.计次循环首 (取数组成员数 (编辑框2内容), 循环次数3)
编辑框2.加入文本 (编辑框2内容 [循环次数3], #换行符)
.计次循环尾 ()

回答3:

.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 文本, 文本型
.局部变量 i

数组 = 分割文本 (编辑框1.内容, #换行符, )
文本 = 编辑框2.内容
.计次循环首 (取数组成员数 (数组), i)
文本 = 子文本替换 (文本, 数组 [i] + #换行符, “”, , , 真)
.计次循环尾 ()
编辑框2.内容 = 文本