Question

易语言如何实现替换指定文本

需要替换编辑框内的关键词，关键词在文本里 要怎么将导入的关键词替换到上面的编辑框的内容关键词。然后自动生成到文件夹。

☆导入的的文本当然是路径 这是我填进去的。

1txt 是文本是关键词 这是需要替换到编辑框的材料。
生成文件夹是执行任务后全部生成了以后的文章。





Answer 1

.版本 2

.程序集 窗口程序集1

.程序集变量 关键词, 文本型, , "0"

.程序集变量 文本, 文本型

.程序集变量 计次, 整数型

.程序集变量 文件名, 文本型

.程序集变量 替换位, 整数型

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

编辑框1.是否允许多行 ＝ 真

编辑框1.滚动条 ＝ 2

按钮1.标题 ＝ “导入文本”

按钮2.标题 ＝ “生成文章”

标签1.标题 ＝ “关键词”

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))

关键词 ＝ 分割文本 (文本, #换行符, )

.计次循环首 (取数组成员数 (关键词), 计次)

    文本 ＝ 取文本右边 (关键词 [计次], 取文本长度 (关键词 [计次]) － 5)

    列表框1.加入项目 (文本, )

.计次循环尾 ()

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

.判断开始 (通用对话框1.打开 ())

    文件名 ＝ 通用对话框1.文件名

    通用对话框1.不改变目录 ＝ 真

.默认

    文本 ＝ 编辑框1.内容

    文件名 ＝ 取文本右边 (文本, 取文本长度 (文本) － 倒找文本 (文本, “\”, , 假))

.判断结束

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

编辑框1.内容 ＝ 文本

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

.如果真 (文件是否存在 (取运行目录 () ＋ “\生成文章”) ＝ 假)

    创建目录 (“生成文章”)

.如果真结束

写到文件 (取运行目录 () ＋ “\生成文章\” ＋ 文件名, 到字节集 (文本))

.子程序 _列表框1_双击选择

替换位 ＝ 寻找文本 (文本, “某某”, , 假)

.如果真 (替换位 ≠ -1)

    文本 ＝ 文本替换 (文本, 替换位, 4, 列表框1.取项目文本 (列表框1.现行选中项))

    编辑框1.内容 ＝ 文本

.如果真结束