还是TXT编码问题

zzoo1314

  

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

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

变量名	类 型	静态	数组	备 注
lj	文本型
lj2	文本型

lj ＝ 取运行目录 () ＋ “\5566.txt”
lj2 ＝ 取运行目录 () ＋ “\6655.txt”
调试输出 (ZxcTxtUTF8_16LE转ANSI (lj, , ))
' ZxcTxt编码转换 (lj, , 1)'

子程序名	返回值类型	公开	备 注
ZxcTxt编码转换			求完善这个
参数名	类 型	参考	可空	数组	备 注
原路径	文本型
新路径	文本型
目标编码类型	整数型				1 = Utf-8  2 = utf-16le  3 = utf-16be 4 = ANSI    |   Utf-8 bom 不好搞就算了  文件_取文本编码 好像没法识别

子程序名	返回值类型	公开	备 注
ZxcTxtUTF8_16LE转ANSI	逻辑型		只支持 UTF-8  UTF-16 LE 两种到 ANSI    参2 空为保存到 参1 的位置 覆盖
参数名	类 型	参考	可空	数组	备 注
原路径	文本型
新路径	文本型
目标编码类型	整数型

变量名	类 型	静态	数组	备 注
编码类型	整数型
文件内容	字节集
转换结果	字节集
文本结果	文本型

编码类型 ＝ 文件_取文本编码 (原路径) ' 精易模块 添加一下
' 请大神们完善一下  目标为 Utf-8 , Unicode , UnicodeBigEndian , ANSI 转 目标编码类型 也是 前面4种
' 功能 通过 命令 文件_取文本编码 得到文件内容的编码 读出来 转 目标编码类型  然后保存到 新路径 或 覆盖 原路径
' 我这菜鸟 不会把指定编码的内容 转 目标编码类型 的内容
' 我这菜鸟只能 做 出以下  UTF_8   Unicode(UTF-16 LE)  这两种 转 ANSI 希望大神补齐
判断 (编码类型 ＝ #Zxcbm_ANSI )
返回 (真)
判断 (编码类型 ＝ #Zxcbm_UTF_8 )
文件内容 ＝ 读入文件 (原路径)
转换结果 ＝ 编码转换 (文件内容, #编码_UTF_8, #编码_GBK, )
判断 (编码类型 ＝ #Zxcbm_Unicode )
文件内容 ＝ 读入文件 (原路径)
文本结果 ＝ 编码_Unicode到Ansi (文件内容) ' 精易模块 添加一下
文本结果 ＝ 取文本右边 (文本结果, 取文本长度 (文本结果) － 1)  ' 不知为何 第一个多一个$号  只好去掉
转换结果 ＝ 到字节集 (文本结果)
判断 (编码类型 ＝ #Zxcbm_UnicodeBigEndian )
信息框 (“ZxcTxtUTF8_16LE转ANSI  只支持 UTF-8  UTF-16 LE 两种到 ANSI  ”, 0, , )
信息框 (“ZxcTxtUTF8_16LE转ANSI 未知编码 ” ＋ 到文本 (编码类型), 0, , )
如果 (是否为空 (新路径))
返回 (写到文件 (原路径, 转换结果))
返回 (写到文件 (新路径, 转换结果))
返回 (写到文件 (原路径, 转换结果))

i支持库列表	支持库注释
spec	特殊功能支持库
iconv	编码转换支持库

.版本 2<br /> .支持库 spec<br /> .支持库 iconv<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 lj, 文本型<br /> .局部变量 lj2, 文本型<br /> <br /> lj ＝ 取运行目录 () ＋ “\5566.txt”<br /> lj2 ＝ 取运行目录 () ＋ “\6655.txt”<br /> 调试输出 (ZxcTxtUTF8_16LE转ANSI (lj, , ))<br /> ' ZxcTxt编码转换 (lj, , 1)'<br /> <br /> .子程序 ZxcTxt编码转换, , , 求完善这个<br /> .参数 原路径, 文本型<br /> .参数 新路径, 文本型, 可空<br /> .参数 目标编码类型, 整数型, 可空, 1 = Utf-8  2 = utf-16le  3 = utf-16be 4 = ANSI    |   Utf-8 bom 不好搞就算了  文件_取文本编码 好像没法识别<br /> <br /> <br /> <br /> <br /> .子程序 ZxcTxtUTF8_16LE转ANSI, 逻辑型, 公开, 只支持 UTF-8  UTF-16 LE 两种到 ANSI    参2 空为保存到 参1 的位置 覆盖<br /> .参数 原路径, 文本型<br /> .参数 新路径, 文本型, 可空<br /> .参数 目标编码类型, 整数型, 可空<br /> .局部变量 编码类型, 整数型<br /> .局部变量 文件内容, 字节集<br /> .局部变量 转换结果, 字节集<br /> .局部变量 文本结果, 文本型<br /> <br /> 编码类型 ＝ 文件_取文本编码 (原路径)'精易模块 添加一下<br /> <br /> ' 请大神们完善一下  目标为 Utf-8 , Unicode , UnicodeBigEndian , ANSI 转 目标编码类型 也是 前面4种<br /> <br /> ' 功能 通过 命令 文件_取文本编码 得到文件内容的编码 读出来 转 目标编码类型  然后保存到 新路径 或 覆盖 原路径<br /> <br /> ' 我这菜鸟 不会把指定编码的内容 转 目标编码类型 的内容<br /> <br /> ' 我这菜鸟只能 做 出以下  UTF_8   Unicode(UTF-16 LE)  这两种 转 ANSI 希望大神补齐<br /> <br /> .判断开始 (编码类型 ＝ #Zxcbm_ANSI)<br />     返回 (真)<br /> .判断 (编码类型 ＝ #Zxcbm_UTF_8)<br />     文件内容 ＝ 读入文件 (原路径)<br />     转换结果 ＝ 编码转换 (文件内容, #编码_UTF_8, #编码_GBK, )<br /> .判断 (编码类型 ＝ #Zxcbm_Unicode)<br />     文件内容 ＝ 读入文件 (原路径)<br />     文本结果 ＝ 编码_Unicode到Ansi (文件内容)'精易模块 添加一下<br />     文本结果 ＝ 取文本右边 (文本结果, 取文本长度 (文本结果) － 1)  ' 不知为何 第一个多一个$号  只好去掉<br />     转换结果 ＝ 到字节集 (文本结果)<br /> .判断 (编码类型 ＝ #Zxcbm_UnicodeBigEndian)<br />     信息框 (“ZxcTxtUTF8_16LE转ANSI  只支持 UTF-8  UTF-16 LE 两种到 ANSI  ”, 0, , )<br /> .默认<br />     信息框 (“ZxcTxtUTF8_16LE转ANSI 未知编码 ” ＋ 到文本 (编码类型), 0, , )<br /> .判断结束<br /> .如果 (是否为空 (新路径))<br />     返回 (写到文件 (原路径, 转换结果))<br /> .否则<br />     返回 (写到文件 (新路径, 转换结果))<br /> .如果结束<br /> 返回 (写到文件 (原路径, 转换结果))

咸鱼666

.版本 2
.支持库 YYDS

.子程序 Txt编码转换
.参数 原路径, 文本型
.参数 新路径, 文本型, 可空
.参数 目标编码类型, 整数型, 可空, #文本编码格式_

写到文件 (新路径, 文本编码转换_ (读入文件 (原路径), , #文本编码格式_UTF8_, 假))


补充内容 (2025-11-8 11:32):
.版本 2

写到文件 (新路径, 文本编码转换_ (读入文件 (原路径), , 目标编码类型, 假))

zzoo1314

咸鱼666 发表于 2025-11-8 11:32
.版本 2
.支持库 YYDS

这么简单 不会乱吗?

RainCharm

  

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

变量名	类 型	静态	数组	备 注
lj	文本型
lj2	文本型

lj ＝ 取运行目录 () ＋ “\5566.txt”
lj2 ＝ 取运行目录 () ＋ “\6655.txt”
调试输出 (ZxcTxt编码转换 (lj, lj2, 1))
' 测试转换功能

子程序名	返回值类型	公开	备 注
ZxcTxt编码转换	逻辑型		完善后的编码转换功能：1=UTF-8 2=UTF-16LE 3=UTF-16BE 4=ANSI
参数名	类 型	参考	可空	数组	备 注
原路径	文本型
新路径	文本型
目标编码类型	整数型				1=UTF-8 2=UTF-16LE 3=UTF-16BE 4=ANSI(GBK)

变量名	类 型	静态	数组	备 注
源编码类型	整数型
文件内容	字节集
转换结果	字节集
文本内容	文本型
目标路径	文本型

' 设置默认目标编码为ANSI
如果真 (是否为空 (目标编码类型))
目标编码类型 ＝ 4

' 设置目标路径
如果 (是否为空 (新路径))
目标路径 ＝ 原路径  ' 覆盖原文件
目标路径 ＝ 新路径

' 检测源文件编码
源编码类型 ＝ 文件_取文本编码 (原路径)  ' 精易模块
' 读取文件内容
文件内容 ＝ 读入文件 (原路径)
如果 (取字节集长度 (文件内容) ＝ 0)
返回 (假)  ' 文件为空或读取失败



' 根据源编码和目标编码进行转换
判断 (源编码类型 ＝ #Zxcbm_ANSI )
' ANSI(GBK) 转其他编码
文本内容 ＝ 到文本 (文件内容)  ' 直接转换为文本
判断 (目标编码类型 ＝ 1)  ' 转UTF-8
转换结果 ＝ 编码转换 (到字节集 (文本内容), #编码_GBK, #编码_UTF_8, )
判断 (目标编码类型 ＝ 2)  ' 转UTF-16LE
转换结果 ＝ 编码转换 (到字节集 (文本内容), #编码_GBK, #编码_UTF_16LE, )
判断 (目标编码类型 ＝ 3)  ' 转UTF-16BE
转换结果 ＝ 编码转换 (到字节集 (文本内容), #编码_GBK, #编码_UTF_16BE, )
判断 (目标编码类型 ＝ 4)  ' 转ANSI(保持原样)
转换结果 ＝ 文件内容
信息框 (“不支持的目标编码类型：” ＋ 到文本 (目标编码类型), 0, , )
返回 (假)

判断 (源编码类型 ＝ #Zxcbm_UTF_8 )
' UTF-8 转其他编码
判断 (目标编码类型 ＝ 1)  ' 转UTF-8(保持原样)
转换结果 ＝ 文件内容
判断 (目标编码类型 ＝ 2)  ' 转UTF-16LE
文本内容 ＝ 编码_Utf8到Ansi (文件内容)  ' 先转ANSI文本
转换结果 ＝ 编码_Ansi到Unicode (文本内容, 假)  ' 再转UTF-16LE
判断 (目标编码类型 ＝ 3)  ' 转UTF-16BE
文本内容 ＝ 编码_Utf8到Ansi (文件内容)
转换结果 ＝ 编码_Ansi到Unicode (文本内容, 真)  ' 真表示BigEndian
判断 (目标编码类型 ＝ 4)  ' 转ANSI
转换结果 ＝ 编码转换 (文件内容, #编码_UTF_8, #编码_GBK, )
信息框 ("不支持的目标编码类型：" ＋ 到文本 (目标编码类型), 0, , )
返回 (假)

判断 (源编码类型 ＝ #Zxcbm_Unicode )  ' UTF-16LE
' UTF-16LE 转其他编码
文本内容 ＝ 编码_Unicode到Ansi (文件内容)
判断 (目标编码类型 ＝ 1)  ' 转UTF-8
转换结果 ＝ 编码转换 (到字节集 (文本内容), #编码_GBK, #编码_UTF_8, )
判断 (目标编码类型 ＝ 2)  ' 转UTF-16LE(保持原样)
转换结果 ＝ 文件内容
判断 (目标编码类型 ＝ 3)  ' 转UTF-16BE
转换结果 ＝ 编码_Ansi到Unicode (文本内容, 真)  ' 真表示BigEndian
判断 (目标编码类型 ＝ 4)  ' 转ANSI
转换结果 ＝ 到字节集 (文本内容)
信息框 ("不支持的目标编码类型：" ＋ 到文本 (目标编码类型), 0, , )
返回 (假)

判断 (源编码类型 ＝ #Zxcbm_UnicodeBigEndian )  ' UTF-16BE
' UTF-16BE 转其他编码
文本内容 ＝ 编码_Unicode到Ansi_BE (文件内容)  ' 需要BigEndian到ANSI的转换
判断 (目标编码类型 ＝ 1)  ' 转UTF-8
转换结果 ＝ 编码转换 (到字节集 (文本内容), #编码_GBK, #编码_UTF_8, )
判断 (目标编码类型 ＝ 2)  ' 转UTF-16LE
转换结果 ＝ 编码_Ansi到Unicode (文本内容, 假)  ' 假表示LittleEndian
判断 (目标编码类型 ＝ 3)  ' 转UTF-16BE(保持原样)
转换结果 ＝ 文件内容
判断 (目标编码类型 ＝ 4)  ' 转ANSI
转换结果 ＝ 到字节集 (文本内容)
信息框 ("不支持的目标编码类型：" ＋ 到文本 (目标编码类型), 0, , )
返回 (假)

信息框 ("不支持的源文件编码类型：" ＋ 到文本 (源编码类型), 0, , )
返回 (假)

' 写入目标文件
返回 (写到文件 (目标路径, 转换结果))

子程序名	返回值类型	公开	备 注
编码_Unicode到Ansi_BE	文本型		将UTF-16 BigEndian字节集转换为ANSI文本
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集

变量名	类 型	静态	数组	备 注
文本长度	整数型
i	整数型
字节1	字节型
字节2	字节型
结果文本	文本型

文本长度 ＝ 取字节集长度 (字节集数据) ÷ 2
计次循环首 (文本长度, i)
字节1 ＝ 字节集数据 [i × 2 － 1]
字节2 ＝ 字节集数据 [i × 2]
' 交换字节顺序（BigEndian到LittleEndian）
结果文本 ＝ 结果文本 ＋ 字符 (字节2 × 256 ＋ 字节1)
计次循环尾
返回 (结果文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 lj, 文本型<br /> .局部变量 lj2, 文本型<br /> <br /> lj ＝ 取运行目录 () ＋ “\5566.txt”<br /> <br /> lj2 ＝ 取运行目录 () ＋ “\6655.txt”<br /> <br /> 调试输出 (ZxcTxt编码转换 (lj, lj2, 1))<br /> <br /> ' 测试转换功能<br /> <br /> .子程序 ZxcTxt编码转换, 逻辑型, 公开, 完善后的编码转换功能：1=UTF-8 2=UTF-16LE 3=UTF-16BE 4=ANSI<br /> .参数 原路径, 文本型<br /> .参数 新路径, 文本型, 可空<br /> .参数 目标编码类型, 整数型, 可空, 1=UTF-8 2=UTF-16LE 3=UTF-16BE 4=ANSI(GBK)<br /> .局部变量 源编码类型, 整数型<br /> .局部变量 文件内容, 字节集<br /> .局部变量 转换结果, 字节集<br /> .局部变量 文本内容, 文本型<br /> .局部变量 目标路径, 文本型<br /> <br /> ' 设置默认目标编码为ANSI<br /> .如果真 (是否为空 (目标编码类型))<br />     目标编码类型 ＝ 4<br /> .如果真结束<br /> <br /> ' 设置目标路径<br /> .如果 (是否为空 (新路径))<br />     目标路径 ＝ 原路径  ' 覆盖原文件<br /> .否则<br />     目标路径 ＝ 新路径<br /> .如果结束<br /> <br /> ' 检测源文件编码<br /> 源编码类型 ＝ 文件_取文本编码 (原路径)  ' 精易模块<br /> <br /> ' 读取文件内容<br /> 文件内容 ＝ 读入文件 (原路径)<br /> .如果 (取字节集长度 (文件内容) ＝ 0)<br />     返回 (假)  ' 文件为空或读取失败<br /> .否则<br /> <br /> .如果结束<br /> <br /> ' 根据源编码和目标编码进行转换<br /> .判断开始 (源编码类型 ＝ #Zxcbm_ANSI)<br />     ' ANSI(GBK) 转其他编码<br />     文本内容 ＝ 到文本 (文件内容)  ' 直接转换为文本<br />     .判断开始 (目标编码类型 ＝ 1)  ' 转UTF-8<br />         转换结果 ＝ 编码转换 (到字节集 (文本内容), #编码_GBK, #编码_UTF_8, )<br />     .判断 (目标编码类型 ＝ 2)  ' 转UTF-16LE<br />         转换结果 ＝ 编码转换 (到字节集 (文本内容), #编码_GBK, #编码_UTF_16LE, )<br />     .判断 (目标编码类型 ＝ 3)  ' 转UTF-16BE<br />         转换结果 ＝ 编码转换 (到字节集 (文本内容), #编码_GBK, #编码_UTF_16BE, )<br />     .判断 (目标编码类型 ＝ 4)  ' 转ANSI(保持原样)<br />         转换结果 ＝ 文件内容<br />     .默认<br />         信息框 (“不支持的目标编码类型：” ＋ 到文本 (目标编码类型), 0, , )<br />         返回 (假)<br />     .判断结束<br /> <br /> .判断 (源编码类型 ＝ #Zxcbm_UTF_8)<br />     ' UTF-8 转其他编码<br />     .判断开始 (目标编码类型 ＝ 1)  ' 转UTF-8(保持原样)<br />         转换结果 ＝ 文件内容<br />     .判断 (目标编码类型 ＝ 2)  ' 转UTF-16LE<br />         文本内容 ＝ 编码_Utf8到Ansi (文件内容)  ' 先转ANSI文本<br />         转换结果 ＝ 编码_Ansi到Unicode (文本内容, 假)  ' 再转UTF-16LE<br />     .判断 (目标编码类型 ＝ 3)  ' 转UTF-16BE<br />         文本内容 ＝ 编码_Utf8到Ansi (文件内容)<br />         转换结果 ＝ 编码_Ansi到Unicode (文本内容, 真)  ' 真表示BigEndian<br />     .判断 (目标编码类型 ＝ 4)  ' 转ANSI<br />         转换结果 ＝ 编码转换 (文件内容, #编码_UTF_8, #编码_GBK, )<br />     .默认<br />         信息框 ("不支持的目标编码类型：" ＋ 到文本 (目标编码类型), 0, , )<br />         返回 (假)<br />     .判断结束<br /> <br /> .判断 (源编码类型 ＝ #Zxcbm_Unicode)  ' UTF-16LE<br />     ' UTF-16LE 转其他编码<br />     文本内容 ＝ 编码_Unicode到Ansi (文件内容)<br />     .判断开始 (目标编码类型 ＝ 1)  ' 转UTF-8<br />         转换结果 ＝ 编码转换 (到字节集 (文本内容), #编码_GBK, #编码_UTF_8, )<br />     .判断 (目标编码类型 ＝ 2)  ' 转UTF-16LE(保持原样)<br />         转换结果 ＝ 文件内容<br />     .判断 (目标编码类型 ＝ 3)  ' 转UTF-16BE<br />         转换结果 ＝ 编码_Ansi到Unicode (文本内容, 真)  ' 真表示BigEndian<br />     .判断 (目标编码类型 ＝ 4)  ' 转ANSI<br />         转换结果 ＝ 到字节集 (文本内容)<br />     .默认<br />         信息框 ("不支持的目标编码类型：" ＋ 到文本 (目标编码类型), 0, , )<br />         返回 (假)<br />     .判断结束<br /> <br /> .判断 (源编码类型 ＝ #Zxcbm_UnicodeBigEndian)  ' UTF-16BE<br />     ' UTF-16BE 转其他编码<br />     文本内容 ＝ 编码_Unicode到Ansi_BE (文件内容)  ' 需要BigEndian到ANSI的转换<br />     .判断开始 (目标编码类型 ＝ 1)  ' 转UTF-8<br />         转换结果 ＝ 编码转换 (到字节集 (文本内容), #编码_GBK, #编码_UTF_8, )<br />     .判断 (目标编码类型 ＝ 2)  ' 转UTF-16LE<br />         转换结果 ＝ 编码_Ansi到Unicode (文本内容, 假)  ' 假表示LittleEndian<br />     .判断 (目标编码类型 ＝ 3)  ' 转UTF-16BE(保持原样)<br />         转换结果 ＝ 文件内容<br />     .判断 (目标编码类型 ＝ 4)  ' 转ANSI<br />         转换结果 ＝ 到字节集 (文本内容)<br />     .默认<br />         信息框 ("不支持的目标编码类型：" ＋ 到文本 (目标编码类型), 0, , )<br />         返回 (假)<br />     .判断结束<br /> <br /> .默认<br />     信息框 ("不支持的源文件编码类型：" ＋ 到文本 (源编码类型), 0, , )<br />     返回 (假)<br /> .判断结束<br /> <br /> ' 写入目标文件<br /> 返回 (写到文件 (目标路径, 转换结果))<br /> <br /> .子程序 编码_Unicode到Ansi_BE, 文本型, 公开, 将UTF-16 BigEndian字节集转换为ANSI文本<br /> .参数 字节集数据, 字节集<br /> .局部变量 文本长度, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 字节1, 字节型<br /> .局部变量 字节2, 字节型<br /> .局部变量 结果文本, 文本型<br /> <br /> 文本长度 ＝ 取字节集长度 (字节集数据) ÷ 2<br /> .计次循环首 (文本长度, i)<br />     字节1 ＝ 字节集数据 [i × 2 － 1]<br />     字节2 ＝ 字节集数据 [i × 2]<br />     ' 交换字节顺序（BigEndian到LittleEndian）<br />     结果文本 ＝ 结果文本 ＋ 字符 (字节2 × 256 ＋ 字节1)<br /> .计次循环尾<br /> <br /> 返回 (结果文本)

zzoo1314

RainCharm 发表于 2025-11-8 19:07
[e=4].版本 2
.支持库 spec

太感谢了  一会我试试

咸鱼666

zzoo1314 发表于 2025-11-8 16:59
这么简单 不会乱吗?

就是这么简单