请问e语言如何自己制作字典放在桌面的TXT中但是不重复 自己写了一个发现有点麻烦

abc1194915439

可以不用模块写出一个例子给我看看吗
以下是我自己写的
有没有精简一点的
.版本 2
.支持库 spec
.支持库 EThread
.程序集 窗口程序集_启动窗口
.程序集变量 字母1, 整数型
.程序集变量 字母2, 整数型
.程序集变量 字母3, 整数型
.程序集变量 字母4, 整数型
.程序集变量 字母, 文本型
.程序集变量 模板数组, 文本型, , "0"
.程序集变量 文本, 文本型
.程序集变量 jd, 整数型
.程序集变量 i, 整数型
.程序集变量 j, 整数型
.子程序 __启动窗口_创建完毕
模板数组 ＝ { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }
文本 ＝ 编辑框1.内容
调试输出 (文本)

.子程序 加入文本
编辑框1.加入文本 (字母 ＋ #换行符)
_按钮1_被单击 ()

.子程序 检测是否相同
.判断循环首 (真)
    jd ＝ 0
    jd ＝ 寻找文本 (编辑框1.内容, 字母, , 假)
    调试输出 (jd, 到文本 (“111111111111111111111”))
    .如果 (jd ＝ -1)
        跳出循环 ()
        j ＝ 0
    .否则


    .如果结束
    i ＝ i ＋ 1
    调试输出 (i)
    _按钮1_被单击 ()
.判断循环尾 ()
加入文本 ()

.子程序 开始字典

置随机数种子 ()
字母1 ＝ 取随机数 (1, 24)
字母2 ＝ 取随机数 (1, 24)
字母3 ＝ 取随机数 (1, 24)
字母4 ＝ 取随机数 (1, 24)
字母 ＝ 模板数组 [字母1] ＋ 模板数组 [字母2] ＋ 模板数组 [字母3] ＋ 模板数组 [字母4]
调试输出 (字母)
.子程序 _按钮1_被单击
.判断循环首 (真)
    j ＝ 1
    启动线程 (&开始字典, , )
    延时 (50)
    检测是否相同 ()
    .如果真 (j ＝ 0)
        加入文本 ()
    .如果真结束
    .如果真 (i ＝ 100)
        跳出循环 ()
    .如果真结束
    调试输出 (字母)
.判断循环尾 ()