怎么用E语言替换指定字符

布局：三个编辑框，两个按钮，一个通用对话框

以下是代码：

------------------------------------------------------------------------------------------------------------

.版本 2

.支持库 xplib

.支持库 spec

.程序集 窗口程序集1

.程序集变量 替换文件, 文本型

.子程序 __启动窗口_创建完毕

XP风格 (2)

.子程序 _打开_被单击

通用对话框1.初始目录 ＝ 取运行目录 () ＋ “\”

.如果真 (通用对话框1.打开 () ＝ 真)

    编辑框1.内容 ＝ 通用对话框1.文件名

    替换文件 ＝ 到文本 (读入文件 (编辑框1.内容))

.如果真结束

.子程序 _按钮2_被单击

.局部变量 替换寻找, 文本型

.局部变量 替换位置, 整数型

.局部变量 i, 整数型

.局部变量 n, 整数型

替换位置 ＝ 寻找文本 (替换文件, 编辑框2.内容, , 假)

.判断循环首 (替换位置 ≠ -1)

    替换位置 ＝ 寻找文本 (替换文件, 编辑框2.内容, 替换位置 ＋ 取文本长度 (编辑框2.内容), 假)

    n ＝ n ＋ 1

    调试输出 (n)

.判断循环尾 ()

.计次循环首 (n, i)

    替换位置 ＝ 寻找文本 (替换文件, 编辑框2.内容, , 假)

    .判断开始 (替换位置 ≠ -1)

        替换寻找 ＝ 子文本替换 (替换文件, 编辑框2.内容, 编辑框3.内容, 替换位置, n, 真)

    .默认

    .判断结束

.计次循环尾 ()

.如果真 (写到文件 (编辑框1.内容, 到字节集 (替换寻找)))

    信息框 (“成功替换字符 ” ＋ 到文本 (n) ＋ “ 次”, 64, “替换并保存成功”)

    返回 ()

.如果真结束

文本替换（）