Question

在易语言里怎样取出两个或几个数组中相同的数

Answer 1

.版本 2 .程序集 主窗集, , , 面向人 .子程序 _你_被单击 ' 删除重复行 ()‘＾ω＾这个也可以用，挺方便的 取不相同行 () .子程序 删除重复行 .局部变量 金, 文本型 .局部变量 割组, 文本型, , "0" .局部变量 计次, 整数型 .局部变量 吃, 逻辑型 金＝我.内容 割组 ＝ 分割文本 (金, #换行符, ) .计次循环首 (取数组成员数 (割组), 计次) 吃＝ 寻找文本 (他.内容, 割组 [计次], , 真) ＝ -1 .如果 (吃) 他.内容 ＝他.内容 ＋ 割组 [计次] ＋ #换行符 .否则 ' 我.内容 ＝他.内容 ＋ 分文 [计次] ＋ #换行符 .如果结束 .计次循环尾 () .子程序 取不相同行 .局部变量 酸我, 文本型 .局部变量 我割组, 文本型, , "0" .局部变量 酸俺, 文本型 .局部变量 俺割组, 文本型, , "0" .局部变量 我吃, 逻辑型 .局部变量 俺吃, 逻辑型 .局部变量 我行数, 整数型 .局部变量 俺行数, 整数型 .局部变量 总次, 整数型 .局部变量 计次, 整数型 .局部变量 比较, 整数型 .局部变量 谁, 文本型 酸我 ＝我.内容 我割组 ＝ 分割文本 (酸我, #换行符, ) 酸俺 ＝俺.内容 俺割组 ＝ 分割文本 (酸俺, #换行符, ) 我行数 ＝ 取数组成员数 (我割组) 蛇我的行数.内容 ＝ 到文本 (我行数) 俺行数 ＝ 取数组成员数 (俺割组) 蛇俺的行数.内容 ＝ 到文本 (俺行数) .判断开始 (取符号 (我行数 － 俺行数) ＜ 0) 总次 ＝ 我行数 ' 负谁＝ “我” .判断 (取符号 (我行数 － 俺行数) ＞ 0) 总次 ＝ 俺行数 ' 正谁＝ “俺” .默认 总次 ＝ 俺行数 ' 0 谁＝ “俺” .判断结束 他.内容 ＝“” .计次循环首 (总次, 计次) 比较 ＝ 文本比较 (我割组 [计次], 俺割组 [计次], 真) .如果真 (比较 ＜ 0) 他.内容 ＝他.内容 ＋“■第” ＋ 到文本 (计次) ＋“行” ＋ #换行符 他.内容 ＝他.内容 ＋ “我：”＋ 我割组 [计次] ＋ #换行符 ' < 他.内容 ＝他.内容 ＋ “俺：”＋ 俺割组 [计次] ＋ #换行符 ＋ #换行符 .如果真结束 .如果真 (比较 ＝ 0) ' = .如果真结束 .如果真 (比较 ＞ 0) 他.内容 ＝他.内容 ＋“■第” ＋ 到文本 (计次) ＋“行” ＋ #换行符 他.内容 ＝他.内容 ＋ “我：”＋ 我割组 [计次] ＋ #换行符 ' > 他.内容 ＝他.内容 ＋ “俺：”＋ 俺割组 [计次] ＋ #换行符 ＋ #换行符 .如果真结束 .计次循环尾 () 他.内容 ＝他.内容 ＋“★注：从第” ＋ 到文本 (总次 ＋ 1) ＋ “行之后【”＋谁＋“】无内容” ＋ #换行符 我有源码,要么 查看原帖>>