用易语言模块
.版本 2
.支持库 RegEx
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
文件_搜索 (“要找的盘符”, “要找的文件”, 标签1, , 真)
.如果真 (真)
.如果真结束
编辑框4.内容 ＝ 标签1.标题
.子程序 _按钮1_被单击
.局部变量 内容, 字节集
.局部变量 路径, 文本型
.局部变量 正则表达式1, 正则表达式
.局部变量 新文本, 文本型
.局部变量 信息1, 文本型
.局部变量 信息2, 文本型
信息1 ＝ 编辑框2.内容
信息2 ＝ 编辑框3.内容
路径 ＝ 编辑框4.内容
.如果真 (文件是否存在 (路径))
内容 ＝ 读入文件 (路径)
新文本 ＝ 到文本 (内容)
正则表达式1.创建 (“加入的文本”, )
新文本 ＝ 正则表达式1.替换 (新文本, “要加入的内容” ＋ #换行符 ＋ “加入文本”, 1, , 真, 真)
.如果真 (新文本 ≠ “”)
写到文件 (路径, 到字节集 (新文本))
.如果真结束
信息框 (信息2, 0, )
销毁 ()
.如果真结束
.如果 (假)
.否则
.如果结束
信息框 (信息1, 0, )
销毁 ()
温馨提示：答案为网友推荐，仅供参考