#提取自LZQ应用模块#.版本 2
.支持库 iconv
.子程序 文件_读取文本文件, 文本型, 公开, 自动读取txt文件编码并将文件解码后返回,
.参数 文件路径, 文本型
.局部变量 局_文件, 字节集
.局部变量 局_文本, 文本型
局_文件 = 读入文件 (文件路径)
输出调试文本 (局_文件 [1])
输出调试文本 (局_文件 [2])
输出调试文本 (局_文件 [3])
.判断开始 (局_文件 = 读入文件 (“”))
返回 (“”)
.判断 (局_文件 [1] = 255 且 局_文件 [2] = 254)
局_文本 = 到文本 (编码转换 (局_文件,
#编码_UCS_2, #编码_GB18030, ))
输出调试文本 (“Unicode”)
.判断 (局_文件 [1] = 254 且 局_文件 [2] = 255)
局_文本 = 到文本 (编码转换 (局_文件,
#编码_UCS_2, #编码_GB18030, ))
输出调试文本 (“Unicode big endian”)
.判断 (局_文件 [1] = 239 且 局_文件 [2] = 187 且 局_文件 [3] = 191)
局_文本 = 到文本 (编码转换 (局_文件,
#编码_UTF_8, #编码_GB18030, ))
输出调试文本 (“UTF-8”)
.默认
' 如果以上都不是
局_文本 = 到文本 (编码转换 (局_文件,
#编码_ASCII, #编码_GB18030, ))
输出调试文本 (“ANSI”)
.判断结束
.如果真 (局_文本 = “”)
局_文本 = 到文本 (局_文件)
.如果真结束
返回 (局_文本)