|
发表于 2018-3-10 06:57:00
|
显示全部楼层
四川省成都市
.版本 2
.支持库 EDataStructure
.支持库 iext
.子程序 除去重复
.参数 文本数组, 文本型, 数组
.局部变量 节点, 节点
.局部变量 count, 整数型
' 输出调试文本 (取数组成员数 (文本数组))
.变量循环首 (1, 取数组成员数 (文本数组), 1, count)
节点.加入属性 (文本数组 [count], “”)
.变量循环尾 ()
节点.取全部属性名 (文本数组)
' 输出调试文本 (取数组成员数 (文本数组))
.子程序 _数据分类
.局部变量 正则, 正则表达式类
.局部变量 count, 整数型
.局部变量 Txt, 文本型, , "0"
.局部变量 Over_Txt, 文本型, , "0"
标签_状态.标题 = “总类文本初始化中...”
正则.创建 (“TZ[A-Za-z0-9]+-”, CKU文本, )
.计次循环首 (正则.取匹配数量 (), count)
加入成员 (Txt, 正则.取匹配文本 (count, ))
处理事件 ()
.计次循环尾 ()
除去重复 (Txt)
Over_Txt = Txt
.计次循环首 (取数组成员数 (Over_Txt), count)
大类.插入项目 (count - 1, Over_Txt [count], )
处理事件 ()
.计次循环尾 ()
标签_状态.标题 = “总类文本初完成!”
|
|