我使用去重复功能删除编辑框重复的行文本,但是要怎么样才可以知道它删除了哪些内容呢,有没有办法可以输出 重复的文字+重复的次数? .版本 2 .子程序 文本_去重复文本_new, 文本型, 公开, 去除原文本中重复的文本 .参数 原文本, 文本型 .参数 分割符, 文本型, 可空, 原文本单个内容间的分隔符,例如:--- 留空为:逐字分割 .参数 重复次数, 整数型, 参考 可空 .参数 出现的重复文本, 文本型, 参考 可空 数组 .局部变量 局_数组, 文本型, , "0" .局部变量 局_数组1, 文本型, , "0" .局部变量 局_计次, 整数型 .局部变量 局_文本, 文本型 .如果 (是否为空 (分割符)) 文本_逐字分割 (原文本, 局_数组) .否则 局_数组 = 分割文本 (原文本, 分割符, ) .如果结束 .计次循环首 (取数组成员数 (局_数组), 局_计次) .如果 (内部_数组成员是否存在_文本ff (局_数组1, 局_数组 [局_计次]) = -1) 加入成员 (局_数组1, 局_数组 [局_计次]) 局_文本 = 局_文本 + 局_数组 [局_计次] + 分割符 .否则 重复次数 = 重复次数 + 1 加入成员 (出现的重复文本, 局_数组 [局_计次]) .如果结束 .计次循环尾 () 局_文本 = 取文本左边 (局_文本, 取文本长度 (局_文本) - 取文本长度 (分割符)) 返回 (局_文本) .子程序 内部_数组成员是否存在_文本ff, 整数型 .参数 数组, 文本型, 数组 .参数 要判断值, 文本型 .局部变量 局_计次, 整数型 .计次循环首 (取数组成员数 (数组), 局_计次) .如果真 (数组 [局_计次] = 要判断值) 返回 (局_计次) .如果真结束 .计次循环尾 () 返回 (-1) |