易语言数组去重复，把重复的加1

在论坛上看到的例子，留着以后可能会用到。

比如有一个文本数组，数组内容是["A","A","A","B","B,"C","D","E","F","G"]，这个内容不是固定的，可能存在重复，也可能不重复。

现在需要在里面重复的成员后面加个数字，这个数字需要依次+1，让他们不重复，需要得到的最终数组是：["A-1","A-2","A-3","B-1","B-2","C","D","E","F","G"]，该如何实现？

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 文本数组, 文本型, , "0"

文本数组 ＝ { “A”, “A”, “A”, “B”, “B”, “C”, “D”, “E”, “F”, “G” }
文本数字_重复加编号 (文本数组)
调试输出 (文本数组)

.子程序 文本数字_重复加编号
.参数 文本数组, 文本型, 参考 数组
.局部变量 成员数, 整数型
.局部变量 I, 整数型
.局部变量 成员索引, 整数型, , "0"
.局部变量 次数, 整数型
.局部变量 J, 整数型

成员数 ＝ 取数组成员数 (文本数组)
.计次循环首 (成员数, I)

    次数 ＝ 文本数组_取值数 (文本数组, 文本数组 [I], 成员索引)
    .如果真 (次数 ＞ 1)
        .计次循环首 (次数, J)
            I ＝ 成员索引 [J]
            文本数组 [I] ＝ 文本数组 [I] ＋ “-” ＋ 到文本 (J)
        .计次循环尾 ()
    .如果真结束

.计次循环尾 ()

.子程序 文本数组_取值数, 整数型
.参数 文本数组, 文本型, 数组
.参数 值, 文本型
.参数 返回成员索引, 整数型, 参考 数组
.局部变量 成员数, 整数型
.局部变量 I, 整数型
.局部变量 计次, 整数型

成员数 ＝ 取数组成员数 (文本数组)
清除数组 (返回成员索引)
.计次循环首 (成员数, I)
    .如果真 (文本数组 [I] ＝ 值)
        计次 ＝ 计次 ＋ 1
        加入成员 (返回成员索引, I)
    .如果真结束

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

AD：【此广告位招租】如：联系我们