TXT编码UTF-8 如何一键转成ANSL编码

卡夫卡的熊

因为要做其他处理，  另外软件保存的TXT文本是UTF-8的编码。
我想一键修改根目录下的 所有TXT文本，改成ANSL的编码，
软件放在TXT根目录下运行。  求大佬帮忙实现

afu45

没问题源码.e (956.47 KB, 下载次数: 10)

2025-5-12 22:52 上传

点击文件名下载附件

afu45

  

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

变量名	类 型	静态	数组	备 注
arr	文本型		0
i	整数型

目录_枚举子目录 (取运行目录 (), arr, 真, )
计次循环首 (取数组成员数 (arr), i)
写到文件 (arr [i], 到字节集 (编码_Utf8到Ansi (读入文件 (arr [i]))))
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 目录_枚举子目录 (取运行目录 (), arr, 真, )<br /> .计次循环首 (取数组成员数 (arr), i)<br />     写到文件 (arr <i>, 到字节集 (编码_Utf8到Ansi (读入文件 (arr <i>))))<br /> .计次循环尾 ()

补充内容 (2025-5-12 22:54):
忽略此楼

卡夫卡的熊

afu45 发表于 2025-5-12 22:47
[e=0].版本 2

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

错误(11): 逗号（参数分隔符）处于错误位置。

afu45

  

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

变量名	类 型	静态	数组	备 注
arr	文本型		0
i	整数型

文件_枚举 (取运行目录 () ＋ “\”, “*.txt”, arr, 真, , )
计次循环首 (取数组成员数 (arr), i)
写到文件 (arr [i], 到字节集 (编码_Utf8到Ansi (读入文件 (arr [i]))))
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文件_枚举 (取运行目录 () ＋ “\”, “*.txt”, arr, 真, , )<br /> .计次循环首 (取数组成员数 (arr), i)<br />     写到文件 (arr <i>, 到字节集 (编码_Utf8到Ansi (读入文件 (arr <i>))))<br /> .计次循环尾 ()

Ruang

问题源码 1.e (951.75 KB, 下载次数: 0)

2025-5-12 22:51 上传

点击文件名下载附件

卡夫卡的熊

afu45 发表于 2025-5-12 22:51
[e=0].版本 2

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

还是报一样的错误。。   

卡夫卡的熊

afu45 发表于 2025-5-12 22:51
[e=0].版本 2

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

写到文件 (arr , 到字节集 (编码_Utf8到Ansi (读入文件 (arr ))))

错误(11): 逗号（参数分隔符）处于错误位置。
这行报错