易语言关于去除重复的问题 希望哥哥姐姐们帮忙哦

taodile

编辑框1是我自动出的很乱的数字，帮忙把编辑框2的内容是去除编辑框1里面的重复数字（数字要按照编辑框1的顺序哦），然后编辑框3的内容是编辑框2里面没有的，比如编辑框2去重复后是23589 那编辑框3就是0到9里面排除编辑框2的23589以外的01467.编辑框4就是编辑框2和3的结合。详情看图。才学易语言希望哥哥姐姐们最好是源码。非常感谢。

我爱小黑屋

111.e (4.69 KB, 下载次数: 10)

2018-6-3 18:37 上传

点击文件名下载附件

Decat

  

子程序名	返回值类型	公开	备 注
demo

变量名	类 型	静态	数组	备 注
text	文本型
strarr	文本型		0
i	整数型
ret1	文本型
ret2	文本型
j	整数型

text ＝ “4561237864351354646523”
调试输出 (text)
文本_逐字分割 (text, strarr)
计次循环首 (取数组成员数 (strarr), i)
如果真 (寻找文本 (ret1, strarr [i], , 假) ＝ -1)
ret1 ＝ ret1 ＋ strarr [i]

计次循环尾 ()
调试输出 (ret1)
计次循环首 (10, j)
如果真 (寻找文本 (ret1, 到文本 (j － 1), , 假) ＝ -1)
ret2 ＝ ret2 ＋ 到文本 (j － 1)

计次循环尾 ()
调试输出 (ret2)
调试输出 (ret1 ＋ ret2)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> <br /> <br /> .子程序 demo<br /> .局部变量 text, 文本型<br /> .局部变量 strarr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ret1, 文本型<br /> .局部变量 ret2, 文本型<br /> .局部变量 j, 整数型<br /> <br /> text ＝ “4561237864351354646523”<br /> 调试输出 (text)<br /> 文本_逐字分割 (text, strarr)<br /> .计次循环首 (取数组成员数 (strarr), i)<br />     .如果真 (寻找文本 (ret1, strarr <i>, , 假) ＝ -1)<br />         ret1 ＝ ret1 ＋ strarr <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (ret1)<br /> .计次循环首 (10, j)<br />     .如果真 (寻找文本 (ret1, 到文本 (j － 1), , 假) ＝ -1)<br />         ret2 ＝ ret2 ＋ 到文本 (j － 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (ret2)<br /> 调试输出 (ret1 ＋ ret2)

点通粉丝

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
text	文本型

text ＝ “11223344”
调试输出 (子程序1 (text))

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
text	文本型

变量名	类 型	静态	数组	备 注
i	整数型
_str	文本型
reStr	文本型

计次循环首 (取文本长度 (text), i)
_str ＝ 取文本中间 (text, i, 1)
如果真 (寻找文本 (reStr, _str, , 假) ＝ -1)
reStr ＝ reStr ＋ _str

计次循环尾 ()
返回 (reStr)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 text, 文本型<br /> <br /> text ＝ “11223344”<br /> 调试输出 (子程序1 (text))<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 text, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 _str, 文本型<br /> .局部变量 reStr, 文本型<br /> <br /> .计次循环首 (取文本长度 (text), i)<br />     _str ＝ 取文本中间 (text, i, 1)<br />     .如果真 (寻找文本 (reStr, _str, , 假) ＝ -1)<br />         reStr ＝ reStr ＋ _str<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (reStr)