十万个为什么 发表于 2020-3-13 09:46:03

易语言文件_取文本编码使用详解

易语言命令名称：
文件_取文本编码

命令功能介绍:

获取指定路径的txt文档的编码格式。成功返回（1：UTF-8，2：Unicode；3：Unicode big endian；4：ANSI），默认返回 4。
命令类别:精易模块命令


命令使用说明:
子程序名：文件_取文本编码
    获取指定路径的txt文档的编码格式。成功返回（1：UTF-8，2：Unicode；3：Unicode big endian；4：ANSI），默认返回 4。
    返回值类型：整数型
    参数<1>的名称为“参_文件路径”，类型为“文本型”。






命令源码:

.版本 2

.子程序 文件_取文本编码, 整数型, 公开, 获取指定路径的txt文档的编码格式。成功返回（1：UTF-8，2：Unicode；3：Unicode big endian；4：ANSI），默认返回 4。
.参数 参_文件路径, 文本型
.局部变量 局_文件内容, 字节集
.局部变量 局_文件长度, 整数型
.局部变量 局_lpiResult, 整数型

局_文件内容 ＝ 读入文件 (参_文件路径)
局_文件长度 ＝ 取字节集长度 (局_文件内容)
.判断开始 (局_文件长度 ＞ 2 且 取字节集中间 (局_文件内容, 1, 2) ＝ { 239, 187 })' UTF-8
    .如果真 (取字节集中间 (局_文件内容, 3, 1) ＝ { 191 })
      返回 (1)
    .如果真结束

.判断 (取字节集中间 (局_文件内容, 1, 2) ＝ { 255, 254 })' Unicode
    返回 (2)
.判断 (取字节集中间 (局_文件内容, 1, 2) ＝ { 254, 255 })' Unicode big endian
    返回 (3)
.默认

.判断结束
局_lpiResult ＝ -1
.判断开始 (IsTextUnicode (局_文件内容, 局_文件长度, 局_lpiResult))' Unicode
    返回 (2)
.判断 (文本_是否UTF8_汇编 (局_文件内容))' UTF-8
    返回 (1)
.默认
    返回 (4)' ANSI
.判断结束






源码复制到易语言教程:

首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
http://eyy8.eyy8.vip/forum/202002/24/132944b0m70cyjjvy79j2y.png

然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

即可插入易语言命令代码哦

DLL源码复制到易语言教程：




15052556145 发表于 2020-5-1 10:34:38

111111111111111111111

Acoyi 发表于 2020-9-14 22:04:05


楼主太厉害了！楼主，我爱你！我觉得易语言吧真是个好地方！

三须的猫 发表于 2021-4-23 21:07:05


这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。

yyz860723 发表于 2021-5-28 23:22:07

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！

好奇先生 发表于 2021-7-22 18:07:23

1111112313123123

柳萱公子 发表于 2022-1-25 21:30:24

.版本 2

.子程序 文件_取文本编码, 整数型, 公开, 获取指定路径的txt文档的编码格式。成功返回（1：UTF-8，2：Unicode；3：Unicode big endian；4：ANSI），默认返回 4。
.参数 参_文件路径, 文本型
.局部变量 局_文件内容, 字节集
.局部变量 局_文件长度, 整数型
.局部变量 局_lpiResult, 整数型

局_文件内容 ＝ 读入文件 (参_文件路径)
局_文件长度 ＝ 取字节集长度 (局_文件内容)
.判断开始 (局_文件长度 ＞ 2 且 取字节集中间 (局_文件内容, 1, 2) ＝ { 239, 187 })' UTF-8
    .如果真 (取字节集中间 (局_文件内容, 3, 1) ＝ { 191 })
      返回 (1)
    .如果真结束

.判断 (取字节集中间 (局_文件内容, 1, 2) ＝ { 255, 254 })' Unicode
    返回 (2)
.判断 (取字节集中间 (局_文件内容, 1, 2) ＝ { 254, 255 })' Unicode big endian
    返回 (3)
.默认

.判断结束
局_lpiResult ＝ -1
.判断开始 (IsTextUnicode (局_文件内容, 局_文件长度, 局_lpiResult))' Unicode
    返回 (2)
.判断 (文本_是否UTF8_汇编 (局_文件内容))' UTF-8
    返回 (1)
.默认
    返回 (4)' ANSI
.判断结束
页: [1]
查看完整版本: 易语言文件_取文本编码使用详解