如何用易语言实现txt文件任意内容替换（类似word中替换功...

zsq8507

飞羽软件 发表于 2025-8-8 19:14
读取文件啊，替换后写回去

.版本 2

.程序集 窗口程序集_窗口1

.子程序 _窗口1_创建完毕



.子程序 _按钮2_被单击
.局部变量 文件路径, 文本型
.局部变量 查找内容, 文本型
.局部变量 替换内容, 文本型
.局部变量 替换后文本, 文本型

通用对话框1.打开 ()
编辑框3.内容 ＝ 通用对话框1.文件名

.子程序 _按钮1_被单击
.局部变量 文件路径, 文本型
.局部变量 查找内容, 文本型
.局部变量 替换内容, 文本型
.局部变量 替换后文本, 文本型

文件路径 ＝ 窗口1.编辑框3.内容
查找内容 ＝ 窗口1.编辑框1.内容
替换内容 ＝ 窗口1.编辑框2.内容
替换后文本 ＝ 子文本替换 (到文本 (读入文件 (文件路径)), 查找内容, 替换内容, , , 真)
写到文件 (文件路径, 到字节集 (替换后文本))
信息框 (“替换完成”, 0, , )

我写了一个  为什么不能全部替换？

飞羽软件

zsq8507 发表于 2025-8-8 19:33
.版本 2

.程序集 窗口程序集_窗口1

.版本 2

.子程序 _按钮1_被单击
.局部变量 文件路径, 文本型
.局部变量 查找内容, 文本型
.局部变量 替换内容, 文本型
.局部变量 替换后文本, 文本型
.局部变量 text, 文本型

文件路径 ＝ 窗口1.编辑框3.内容
查找内容 ＝ 窗口1.编辑框1.内容
替换内容 ＝ 窗口1.编辑框2.内容

text ＝ 到文本 (读入文件 (文件路径))
输出调试文本 (“text:” ＋ text)  ' 看看这里读取输出内容有没有读取成功，如果是utf8 需要先转码
替换后文本 ＝ 子文本替换 (text, 查找内容, 替换内容, , , 真)
输出调试文本 (“替换后文本:” ＋ 替换后文本)
写到文件 (文件路径, 到字节集 (替换后文本))
信息框 (“替换完成”, 0, , )

汉族

子文本替换（）替换多少次  看最后的一个参数

zsq8507

飞羽软件 发表于 2025-8-8 19:48
.版本 2

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

能自动检查文本 然后转码吗？

kyjzbiao

子文本替换 (“原文本”, “预备替换的文本”, “用作替换的文本”, , , 真)

Ruang

-精易模块

Ruang

精易模块V11.1.5 发布【2024.01.01】- (停更了)
https://bbs.125.la/forum.php?mod=viewthread&tid=14807810
(出处: 精易论坛)
摘用精易模块

飞羽软件

zsq8507 发表于 2025-8-8 20:13
能自动检查文本 然后转码吗？

编码 ＝ 文件_取文本编码 (txt路径)

精益模块有这个可以用啊


.版本 2

.子程序 读入文件_自动解码, 文本型, , 如果是 utf8 自动解码
.参数 txt路径, 文本型
.局部变量 编码, 整数型
.局部变量 ww, 字节集
.局部变量 g, 文本型

编码 ＝ 文件_取文本编码 (txt路径)  ' 获取指定路径的txt文档的编码格式。成功返回（1：UTF-8，2：Unicode；3：Unicode big endian；4：ANSI），默认返回 4。注：请确保文件能被正常读入。
ww ＝ 读入文件 (txt路径)
g ＝ 到文本 (ww)

.如果真 (编码 ＝ 1)
    编码_UTF8解码 (ww, g)
.如果真结束


返回 (g)

zsq8507

飞羽软件 发表于 2025-8-8 21:23
编码 ＝ 文件_取文本编码 (txt路径)

精益模块有这个可以用啊

我是说 所有的编码都转换为ansi编码