txt编码批量转换问题

卡夫卡的熊

我有一大批文章，   保存，默认编码是utf-8的编码。  求大佬帮忙修改一下  点击按钮就把目录下的txt文件的编码全部修改成，ANSL的编码

卡夫卡的熊

沉了吗。。。

zainex

先用 文件_枚举 取出全部txt文件名，然后用 编码_Utf8到Ansi 转换。
使用上面这些命令，需要在代码里添加精易模块：
精易模块官方网站 - 免费开源的易语言模块

例子：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

编辑框1.内容 ＝ 取运行目录 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
目录	文本型
文件名	文本型		0
数	整数型
文件	字节集

目录 ＝ 编辑框1.内容  ' 取运行目录 ()
文件_枚举 (目录, “*.txt”, 文件名, 真)
计次循环首 (取数组成员数 (文件名), 数)
文件 ＝ 读入文件 (文件名 [数])
写到文件 (文件名 [数], 到字节集 (编码_Utf8到Ansi (文件)))
计次循环尾 ()
信息框 (“运行结束”, #信息图标, “提示”, )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 编辑框1.内容 ＝ 取运行目录 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 目录, 文本型<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 文件, 字节集<br /> <br /> 目录 ＝ 编辑框1.内容  ' 取运行目录 ()<br /> 文件_枚举 (目录, “*.txt”, 文件名, 真)<br /> .计次循环首 (取数组成员数 (文件名), 数)<br />     文件 ＝ 读入文件 (文件名 [数])<br />     写到文件 (文件名 [数], 到字节集 (编码_Utf8到Ansi (文件)))<br /> .计次循环尾 ()<br /> 信息框 (“运行结束”, #信息图标, “提示”, )

上面的 编辑框1 需要你自己在启动窗口上添加，比如这样：