易语言怎样去重复内容并提示需要删除内容?

2023-6-5 17:00 219 0
简介
我使用去重复功能删除编辑框重复的行文本,但是要怎么样才可以知道它删除了哪些内容呢,有没有办法可以输出 重复的文字+重复的次数?.版本 2.子程序 文本_去重复文本_new, 文本型, 公开, 去除原文本中重复的文本.参数 ...
我使用去重复功能删除编辑框重复的行文本,但是要怎么样才可以知道它删除了哪些内容呢,有没有办法可以输出 重复的文字+重复的次数?
.版本 2

.子程序 文本_去重复文本_new, 文本型, 公开, 去除原文本中重复的文本
.参数 原文本, 文本型
.参数 分割符, 文本型, 可空, 原文本单个内容间的分隔符,例如:---  留空为:逐字分割
.参数 重复次数, 整数型, 参考 可空
.参数 出现的重复文本, 文本型, 参考 可空 数组
.局部变量 局_数组, 文本型, , "0"
.局部变量 局_数组1, 文本型, , "0"
.局部变量 局_计次, 整数型
.局部变量 局_文本, 文本型

.如果 (是否为空 (分割符))
    文本_逐字分割 (原文本, 局_数组)
.否则
    局_数组 = 分割文本 (原文本, 分割符, )
.如果结束


.计次循环首 (取数组成员数 (局_数组), 局_计次)
    .如果 (内部_数组成员是否存在_文本ff (局_数组1, 局_数组 [局_计次]) = -1)
        加入成员 (局_数组1, 局_数组 [局_计次])
        局_文本 = 局_文本 + 局_数组 [局_计次] + 分割符

    .否则
        重复次数 = 重复次数 + 1
        加入成员 (出现的重复文本, 局_数组 [局_计次])
    .如果结束

.计次循环尾 ()
局_文本 = 取文本左边 (局_文本, 取文本长度 (局_文本) - 取文本长度 (分割符))
返回 (局_文本)


.子程序 内部_数组成员是否存在_文本ff, 整数型
.参数 数组, 文本型, 数组
.参数 要判断值, 文本型
.局部变量 局_计次, 整数型

.计次循环首 (取数组成员数 (数组), 局_计次)
    .如果真 (数组 [局_计次] = 要判断值)
        返回 (局_计次)
    .如果真结束

.计次循环尾 ()
返回 (-1)

鲜花

握手

雷人

路过

鸡蛋

最新文章

关注我们:觅风论坛与你快乐分享

收藏本站

用心服务做个非盈利公益编程网站

www.eyyba.com

服务人:觅风论坛

Email:eyyba@foxmail.com

Powered by WWW.EYYBA.COM X3.4© 2001-2023 Inc.   版权所有   

觅风论坛  疆ICP备15020893号-1