在易语言里怎样取出两个或几个数组中相同的数
1个回答
展开全部
.版本 2 .程序集 主窗集, , , 面向人 .子程序 _你_被单击 ' 删除重复行 ()‘^ω^这个也可以用,挺方便的 取不相同行 () .子程序 删除重复行 .局部变量 金, 文本型 .局部变量 割组, 文本型, , "0" .局部变量 计次, 整数型 .局部变量 吃, 逻辑型 金=我.内容 割组 = 分割文本 (金, #换行符, ) .计次循环首 (取数组成员数 (割组), 计次) 吃= 寻找文本 (他.内容, 割组 [计次], , 真) = -1 .如果 (吃) 他.内容 =他.内容 + 割组 [计次] + #换行符 .否则 ' 我.内容 =他.内容 + 分文 [计次] + #换行符 .如果结束 .计次循环尾 () .子程序 取不相同行 .局部变量 酸我, 文本型 .局部变量 我割组, 文本型, , "0" .局部变量 酸俺, 文本型 .局部变量 俺割组, 文本型, , "0" .局部变量 我吃, 逻辑型 .局部变量 俺吃, 逻辑型 .局部变量 我行数, 整数型 .局部变量 俺行数, 整数型 .局部变量 总次, 整数型 .局部变量 计次, 整数型 .局部变量 比较, 整数型 .局部变量 谁, 文本型 酸我 =我.内容 我割组 = 分割文本 (酸我, #换行符, ) 酸俺 =俺.内容 俺割组 = 分割文本 (酸俺, #换行符, ) 我行数 = 取数组成员数 (我割组) 蛇我的行数.内容 = 到文本 (我行数) 俺行数 = 取数组成员数 (俺割组) 蛇俺的行数.内容 = 到文本 (俺行数) .判断开始 (取符号 (我行数 - 俺行数) < 0) 总次 = 我行数 ' 负谁= “我” .判断 (取符号 (我行数 - 俺行数) > 0) 总次 = 俺行数 ' 正谁= “俺” .默认 总次 = 俺行数 ' 0 谁= “俺” .判断结束 他.内容 =“” .计次循环首 (总次, 计次) 比较 = 文本比较 (我割组 [计次], 俺割组 [计次], 真) .如果真 (比较 < 0) 他.内容 =他.内容 +“■第” + 到文本 (计次) +“行” + #换行符 他.内容 =他.内容 + “我:”+ 我割组 [计次] + #换行符 ' < 他.内容 =他.内容 + “俺:”+ 俺割组 [计次] + #换行符 + #换行符 .如果真结束 .如果真 (比较 = 0) ' = .如果真结束 .如果真 (比较 > 0) 他.内容 =他.内容 +“■第” + 到文本 (计次) +“行” + #换行符 他.内容 =他.内容 + “我:”+ 我割组 [计次] + #换行符 ' > 他.内容 =他.内容 + “俺:”+ 俺割组 [计次] + #换行符 + #换行符 .如果真结束 .计次循环尾 () 他.内容 =他.内容 +“★注:从第” + 到文本 (总次 + 1) + “行之后【”+谁+“】无内容” + #换行符 我有源码,要么 查看原帖>>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询