易语言文本A删除B

.计次循环首 (取数组成员数 (数组2), n)
.计次循环首 (取数组成员数 (数组1), i)
.如果真 (取数组成员数 (数组1) ≥ i 且 取数组成员数 (数组2) ≥ n)
.如果 (数组1 [i] ＝ 数组2 [n])
删除成员 (数组1, i, 1)

.否则

.如果结束

.如果真结束

.计次循环尾 ()
' 这里是需要删除的行
.计次循环尾 ()
' 下面单个的删除成功！
.计次循环首 (取数组成员数 (数组1), i)
编辑框3.加入文本 (数组1 [i] ＋ “ ”)
.计次循环尾 ()
' 调试输出 (取数组成员数 (数组1))
易语言文本A删除B例子。