精易模块数组去重复

.子程序 数组_去重复, 整数型, 公开, 返回剩余不重复数组的成员数量
.参数 文本数组, 文本型, 可空 数组, 要去重复的 文本数组
.参数 整数数组, 整数型, 可空 数组, 要去重复的 整数数组
.参数 类型, 整数型, , 0=文本数组；1=整数数组；
.局部变量 局_计次, 整数型
.局部变量 XML树, XML树类
.局部变量 对象, 对象
.局部变量 子节点, 对象
.局部变量 主对象, 对象

XML树.创建 (“数组”)
XML树.插入节点 (“数组”, “qu”, )
对象 ＝ XML树.取子节点对象 (“数组/qu”)
主对象 ＝ XML树.取主对象 ()
.判断开始 (类型 ＝ 0)
.变量循环首 (取数组成员数 (文本数组), 1, -1, 局_计次)
子节点 ＝ 主对象.对象型方法 (“createAttribute”, “a” ＋ 文本数组 [局_计次])
.如果真 (对象.对象型方法 (#setAttributeNode, 子节点).是否为空 () ＝ 假)
删除成员 (文本数组, 局_计次, 1)
.如果真结束

.变量循环尾 ()
XML树.释放 ()
返回 (取数组成员数 (文本数组))
.判断 (类型 ＝ 1)
.变量循环首 (取数组成员数 (整数数组), 1, -1, 局_计次)
子节点 ＝ 主对象.对象型方法 (“createAttribute”, “a” ＋ 到文本 (整数数组 [局_计次]))
.如果真 (对象.对象型方法 (#setAttributeNode, 子节点).是否为空 () ＝ 假)
删除成员 (整数数组, 局_计次, 1)
.如果真结束

.变量循环尾 ()
XML树.释放 ()
返回 (取数组成员数 (整数数组))
.默认

.判断结束
XML树.释放 ()