易语言 如何让列表框2的文本和列表框1的文本进行对比,把不相同的过滤掉,而相同的就输出到编辑框1中??

2024年11月18日 01:27
有1个网友回答
网友(1):

.版本 2
.支持库 OPenGL

.程序集 窗口程序集1

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

编辑框2.内容 = 字符过滤 (编辑框1.内容, 0)
编辑框3.内容 = 字符过滤 (编辑框1.内容, 1)

.子程序 字符过滤, 文本型, , 过滤掉你不需要的指定字符类型。“双字节型”和“单字节型”
.参数 欲被过滤的文本, 文本型, , 欲被过滤的文本。不能为空。
.参数 欲返回的字符类型, 整数型, , 过滤后你需要返回的字符类型。0、为单字符类型,其他数值双字节型字符
.局部变量 计次, 整数型
.局部变量 返回值, 逻辑型
.局部变量 单字符文本, 文本型
.局部变量 双字符文本, 文本型

.循环判断首 ()
返回值 = 是否为双字节字符 (欲被过滤的文本, 计次 - 1)
.判断开始 (返回值 = 真)
双字符文本 = 双字符文本 + 取文本中间 (欲被过滤的文本, 计次, 2)
计次 = 计次 + 2
.默认
单字符文本 = 单字符文本 + 取文本中间 (欲被过滤的文本, 计次, 1)
.如果真 (寻找文本 (欲被过滤的文本, #换行符, 计次, 假) = 计次)
双字符文本 = 双字符文本 + #换行符
.如果真结束
计次 = 计次 + 1
.判断结束

.循环判断尾 (计次 < 取文本长度 (欲被过滤的文本))
.判断开始 (欲返回的字符类型 = 0)
返回 (单字符文本)
.默认
返回 (双字符文本)
.判断结束