Question

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

Answer 1

.版本 2

.程序集 主窗集, , , 面向人

.子程序 _你_被单击

' 删除重复行 ()‘＾ω＾这个也可以用，挺方便的
取不相同行 ()

.子程序 删除重复行
.局部变量 金, 文本型
.局部变量 割组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 吃, 逻辑型

金 ＝ 我.内容
割组 ＝ 分割文本 (金, #换行符, )
.计次循环首 (取数组成员数 (割组), 计次)
吃 ＝ 寻找文本 (他.内容, 割组 [计次], , 真) ＝ -1
.如果 (吃)
他.内容 ＝ 他.内容 ＋ 割组 [计次] ＋ #换行符
.否则
' 我.内容 ＝ 他.内容 ＋ 分文 [计次] ＋ #换行符
.如果结束

.计次循环尾 ()

.子程序 取不相同行
.局部变量 酸我, 文本型
.局部变量 我割组, 文本型, , "0"
.局部变量 酸俺, 文本型
.局部变量 俺割组, 文本型, , "0"
.局部变量 我吃, 逻辑型
.局部变量 俺吃, 逻辑型
.局部变量 我行数, 整数型
.局部变量 俺行数, 整数型
.局部变量 总次, 整数型
.局部变量 计次, 整数型
.局部变量 比较, 整数型
.局部变量 谁, 文本型

酸我 ＝ 我.内容
我割组 ＝ 分割文本 (酸我, #换行符, )
酸俺 ＝ 俺.内容
俺割组 ＝ 分割文本 (酸俺, #换行符, )
我行数 ＝ 取数组成员数 (我割组)
蛇我的行数.内容 ＝ 到文本 (我行数)
俺行数 ＝ 取数组成员数 (俺割组)
蛇俺的行数.内容 ＝ 到文本 (俺行数)

.判断开始 (取符号 (我行数 － 俺行数) ＜ 0)
总次 ＝ 我行数 ' 负
谁 ＝ “我”
.判断 (取符号 (我行数 － 俺行数) ＞ 0)
总次 ＝ 俺行数 ' 正
谁 ＝ “俺”
.默认
总次 ＝ 俺行数 ' 0
谁 ＝ “俺”
.判断结束

他.内容 ＝ “”
.计次循环首 (总次, 计次)
比较 ＝ 文本比较 (我割组 [计次], 俺割组 [计次], 真)
.如果真 (比较 ＜ 0)
他.内容 ＝ 他.内容 ＋ “■第” ＋ 到文本 (计次) ＋ “ 行” ＋ #换行符
他.内容 ＝ 他.内容 ＋ “我：” ＋ 我割组 [计次] ＋ #换行符 ' <
他.内容 ＝ 他.内容 ＋ “俺：” ＋ 俺割组 [计次] ＋ #换行符 ＋ #换行符
.如果真结束
.如果真 (比较 ＝ 0)
' =
.如果真结束
.如果真 (比较 ＞ 0)
他.内容 ＝ 他.内容 ＋ “■第” ＋ 到文本 (计次) ＋ “ 行” ＋ #换行符
他.内容 ＝ 他.内容 ＋ “我：” ＋ 我割组 [计次] ＋ #换行符 ' >
他.内容 ＝ 他.内容 ＋ “俺：” ＋ 俺割组 [计次] ＋ #换行符 ＋ #换行符
.如果真结束

.计次循环尾 ()

他.内容 ＝ 他.内容 ＋ “★注：从第” ＋ 到文本 (总次 ＋ 1) ＋ “行之后【” ＋ 谁 ＋ “】无内容” ＋ #换行符

我有源码,要么

Answer 2

可以循环对比每个数
如果你想删除重复的数,可以用节点操作,速度最快