文本过滤重复封装成模块

易语言 2020-09-01 10:49:11

文本过滤重复封装成模块

.子程序 文本过滤重复, 文本型, 公开
.参数 要处理的文本, 文本型
.参数 处理数据个数, 整数型, 可空
.参数 处理后结果, 整数型, 可空
.局部变量 分割文本, 文本型, , "0"
.局部变量 临时文本, 文本型
.局部变量 过滤, 文本型
.局部变量 i, 整数型
.局部变量 j, 整数型

分割文本 = 分割文本 (要处理的文本, #换行符, )
处理数据个数 = 取数组成员数 (分割文本)
.计次循环首 (取数组成员数 (分割文本), i)
临时文本 = 分割文本 [i]
.如果真 (临时文本 = “”)
到循环尾 ()
.如果真结束
.计次循环首 (取数组成员数 (分割文本), j)
.如果真 (临时文本 = 分割文本 [j])
分割文本 [j] = “”
.如果真结束

.计次循环尾 ()
过滤 = 过滤 + 临时文本 + #换行符
.计次循环尾 ()
处理后结果 = 取数组成员数 (分割文本 (过滤, #换行符, ))
返回 (过滤)