数字比较

ngrjsc

A数字: 01 02 03 08 12 18 20 26 67
B数字: 01 08 01 18 23 65 02 04 06 02 01 03 13 29 18 02

判断B数字里有几个A数字中的重复数字，并且输出分别输出那几个数字

举例是上面的B数字里02有3个和A数字比较的重复数字就是1个不能算3个

麻烦老师帮写一下，谢谢

企鹅号525150138

.版本 2
.支持库 spec

.子程序 _窗口1_创建完毕
.局部变量 a, 文本型
.局部变量 b, 文本型
.局部变量 a1, 文本型, , "0"
.局部变量 b1, 文本型, , "0"
.局部变量 i, 整数型

' A数字: 01 02 03 08 12 18 20 26 67
' B数字: 01 08 01 18 23 65 02 04 06 02 01 03 13 29 18 02
a ＝ “01 02 03 08 12 18 20 26 67”
b ＝ “01 08 01 18 23 65 02 04 06 02 01 03 13 29 18 02”
a1 ＝ 分割文本 (a, “ ”, )
b1 ＝ 分割文本 (b, “ ”, )
数组_去重复 (b1)
.计次循环首 (取数组成员数 (b1), i)
    .如果真 (数组_取次数 (a1, b1 [i]) ＞ 0)
        调试输出 (b1 [i])
    .如果真结束

.计次循环尾 ()

鹏书

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
A数字	文本型
B数字	文本型		0
jd	节点
i	整数型
ret	文本型		0

A数字 ＝ “01 02 03 08 12 18 20 26 67”
B数字 ＝ 分割文本 (“01 08 01 18 23 65 02 04 06 02 01 03 13 29 18 02”, “ ”, )
计次循环首 (取数组成员数 (B数字), i)
如果真 (jd.加入属性 (B数字 [i], 真))
如果真 (寻找文本 (A数字, B数字 [i], , 假) ＞ 0)
加入成员 (ret, B数字 [i])


计次循环尾 ()
调试输出 (ret)

i支持库列表	支持库注释
EDataStructure	数据结构支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 A数字, 文本型<br /> .局部变量 B数字, 文本型, , "0"<br /> .局部变量 jd, 节点<br /> .局部变量 i, 整数型<br /> .局部变量 ret, 文本型, , "0"<br /> <br /> A数字 ＝ “01 02 03 08 12 18 20 26 67”<br /> B数字 ＝ 分割文本 (“01 08 01 18 23 65 02 04 06 02 01 03 13 29 18 02”, “ ”, )<br /> .计次循环首 (取数组成员数 (B数字), i)<br />     .如果真 (jd.加入属性 (B数字 <i>, 真))<br />         .如果真 (寻找文本 (A数字, B数字 <i>, , 假) ＞ 0)<br />             加入成员 (ret, B数字 <i>)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (ret)