编码_是否UTF8判断功能_请测试哈

jr21066

根据百度众多网友的智慧.写了个判定的代码.看看有没有实用价值.
如果没问题了再修改成最终版本.

目前的速度还行.只是用了快速对象而已.

  

子程序名	返回值类型	公开	备 注
编码_是否UTF8	逻辑型		检测文本是否为UTF-8编码
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型

变量名	类 型	静态	数组	备 注
局_内容	快速字节集对象
局_数值1	字节型
局_数值2	字节型
局_数值3	字节型
局_数值4	字节型
局_计数器	整数型
局_偏移	整数型

局_内容.置字节集 (参_文本)
局_偏移 ＝ 1
计次循环首 (局_内容.取长度 (), 局_计数器)
如果真 (局_内容.取长度 () ＜ 局_偏移)
返回 (假)
如果真 (右移 (局_内容.取字节 (局_偏移), 7) ＝ 0)
局_偏移 ＝ 局_偏移 ＋ 1
到循环尾 ()

如果真 (右移 (局_内容.取字节 (局_偏移), 5) ＝ 6)
如果真 (局_内容.取长度 () ＜ 局_偏移 ＋ 1)
返回 (检测GB2312 (局_内容.取字节集 (, )))
如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 1), 6) ≠ 2)
返回 (假)

如果真 (右移 (局_内容.取字节 (局_偏移), 7) ＝ 0)
如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 1), 7) ＝ 0)
返回 (真)

局_偏移 ＝ 局_偏移 ＋ 2

如果真 (右移 (局_内容.取字节 (局_偏移), 4) ＝ 14)
如果真 (局_内容.取长度 () ＜ 局_偏移 ＋ 2)
返回 (假)
如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 1), 6) ≠ 2)
返回 (假)
如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 2), 6) ≠ 2)
返回 (假)
返回 (真)

如果真 (右移 (局_内容.取字节 (局_偏移), 4) ＝ 14)
如果真 (局_内容.取长度 () ＜ 局_偏移 ＋ 3)
返回 (假)
如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 1), 6) ≠ 2)
返回 (假)
如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 2), 6) ≠ 2)
返回 (假)
如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 3), 6) ≠ 2)
返回 (假)
返回 (真)

计次循环尾 ()
返回 (假)

子程序名	返回值类型	公开	备 注
检测GB2312	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_文本	字节集

变量名	类 型	静态	数组	备 注
局_偏移	整数型
局_计数器	整数型
局_内容	快速字节集对象

局_偏移 ＝ 1
局_内容.置字节集 (参_文本)
计次循环首 (局_内容.取长度 (), 局_计数器)
如果真 (局_偏移 ＋ 1 ＞ 局_内容.取长度 ())
返回 (假)
如果真 (右移 (局_内容.取字节 (局_偏移), 7) ＝ 0)
局_偏移 ＝ 局_偏移 ＋ 1
到循环尾 ()

如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 1), 7) ＝ 0)
返回 (真)
局_偏移 ＝ 局_偏移 ＋ 2
计次循环尾 ()
返回 (假)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 编码_是否UTF8, 逻辑型, 公开, 检测文本是否为UTF-8编码<br /> .参数 参_文本, 文本型<br /> .局部变量 局_内容, 快速字节集对象<br /> .局部变量 局_数值1, 字节型<br /> .局部变量 局_数值2, 字节型<br /> .局部变量 局_数值3, 字节型<br /> .局部变量 局_数值4, 字节型<br /> .局部变量 局_计数器, 整数型<br /> .局部变量 局_偏移, 整数型<br /> <br /> 局_内容.置字节集 (参_文本)<br /> 局_偏移 ＝ 1<br /> .计次循环首 (局_内容.取长度 (), 局_计数器)<br />     .如果真 (局_内容.取长度 () ＜ 局_偏移)<br />         返回 (假)<br />     .如果真结束<br />     .如果真 (右移 (局_内容.取字节 (局_偏移), 7) ＝ 0)<br />         局_偏移 ＝ 局_偏移 ＋ 1<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     .如果真 (右移 (局_内容.取字节 (局_偏移), 5) ＝ 6)<br />         .如果真 (局_内容.取长度 () ＜ 局_偏移 ＋ 1)<br />             返回 (检测GB2312 (局_内容.取字节集 (, )))<br />         .如果真结束<br />         .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 1), 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br /> <br />         .如果真 (右移 (局_内容.取字节 (局_偏移), 7) ＝ 0)<br />             .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 1), 7) ＝ 0)<br />                 返回 (真)<br />             .如果真结束<br /> <br />         .如果真结束<br />         局_偏移 ＝ 局_偏移 ＋ 2<br />     .如果真结束<br /> <br />     .如果真 (右移 (局_内容.取字节 (局_偏移), 4) ＝ 14)<br />         .如果真 (局_内容.取长度 () ＜ 局_偏移 ＋ 2)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 1), 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 2), 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         返回 (真)<br /> <br />     .如果真结束<br /> <br />     .如果真 (右移 (局_内容.取字节 (局_偏移), 4) ＝ 14)<br />         .如果真 (局_内容.取长度 () ＜ 局_偏移 ＋ 3)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 1), 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 2), 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 3), 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         返回 (真)<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)<br /> <br /> .子程序 检测GB2312, 逻辑型<br /> .参数 参_文本, 字节集<br /> .局部变量 局_偏移, 整数型<br /> .局部变量 局_计数器, 整数型<br /> .局部变量 局_内容, 快速字节集对象<br /> <br /> 局_偏移 ＝ 1<br /> 局_内容.置字节集 (参_文本)<br /> <br /> .计次循环首 (局_内容.取长度 (), 局_计数器)<br />     .如果真 (局_偏移 ＋ 1 ＞ 局_内容.取长度 ())<br />         返回 (假)<br />     .如果真结束<br />     .如果真 (右移 (局_内容.取字节 (局_偏移), 7) ＝ 0)<br />         局_偏移 ＝ 局_偏移 ＋ 1<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 1), 7) ＝ 0)<br />         返回 (真)<br />     .如果真结束<br />     局_偏移 ＝ 局_偏移 ＋ 2<br /> .计次循环尾 ()<br /> 返回 (假)

jr21066

加入文件头检测.方便批量读入文件时使用.
尽量优化.快速对象一版基本定型.如果有下一版的话.看有没有可能产生个汇编的.
易语言的字节处理好象很难办啊.

  

子程序名	返回值类型	公开	备 注
编码_是否UTF8	逻辑型		检测文本是否为UTF-8编码
参数名	类 型	参考	可空	数组	备 注
参_文本	文本型				文本参数
参_字节集	字节集				字节集参数

变量名	类 型	静态	数组	备 注
局_内容	快速字节集对象
局_计数器	整数型
局_长度	整数型
局_偏移	整数型
数值1	字节型
数值2	字节型

如果 (是否为空 (参_字节集))
局_内容.置字节集 (参_文本)
局_内容.置字节集 (参_字节集)

如果真 (局_内容.取字节 (1) ＝ 239)
如果真 (局_内容.取字节 (2) ＝ 187)
如果真 (局_内容.取字节 (3) ＝ 191)
返回 (真)


局_偏移 ＝ 1
局_长度 ＝ 局_内容.取长度 ()
计次循环首 (局_长度, 局_计数器)
如果真 (局_长度 ＜ 局_偏移 ＋ 1)
返回 (假)
数值1 ＝ 局_内容.取字节 (局_偏移)
数值2 ＝ 局_内容.取字节 (局_偏移 ＋ 1)
判断 (数值1 ＜ 128)
' 单字节
局_偏移 ＝ 局_偏移 ＋ 1
判断 (右移 (数值1, 5) ＝ 6)
' 双字节
如果真 (局_长度 ＜ 局_偏移 ＋ 1)
返回 (假)
如果真 (右移 (数值2, 6) ≠ 2)
返回 (假)
如果真 (右移 (数值2, 7) ＝ 0)
返回 (真)
局_偏移 ＝ 局_偏移 ＋ 2
判断 (右移 (数值1, 4) ＝ 14)
' 三字节
如果真 (局_长度 ＜ 局_偏移 ＋ 2)
返回 (假)
如果真 (右移 (数值2, 6) ≠ 2)
返回 (假)
如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 2), 6) ≠ 2)
返回 (假)
返回 (真)
判断 (右移 (数值1, 3) ＝ 30)
' 四字节
如果真 (局_长度 ＜ 局_偏移 ＋ 3)
返回 (假)
如果真 (右移 (数值2, 6) ≠ 2)
返回 (假)
如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 2), 6) ≠ 2)
返回 (假)
如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 3), 6) ≠ 2)
返回 (假)
返回 (真)
返回 (假)

计次循环尾 ()
返回 (假)

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 编码_是否UTF8, 逻辑型, 公开, 检测文本是否为UTF-8编码<br /> .参数 参_文本, 文本型, 可空, 文本参数<br /> .参数 参_字节集, 字节集, 可空, 字节集参数<br /> .局部变量 局_内容, 快速字节集对象<br /> .局部变量 局_计数器, 整数型<br /> .局部变量 局_长度, 整数型<br /> .局部变量 局_偏移, 整数型<br /> .局部变量 数值1, 字节型<br /> .局部变量 数值2, 字节型<br /> <br /> .如果 (是否为空 (参_字节集))<br />     局_内容.置字节集 (参_文本)<br /> .否则<br />     局_内容.置字节集 (参_字节集)<br /> .如果结束<br /> <br /> .如果真 (局_内容.取字节 (1) ＝ 239)<br />     .如果真 (局_内容.取字节 (2) ＝ 187)<br />         .如果真 (局_内容.取字节 (3) ＝ 191)<br />             返回 (真)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> 局_偏移 ＝ 1<br /> 局_长度 ＝ 局_内容.取长度 ()<br /> <br /> .计次循环首 (局_长度, 局_计数器)<br />     .如果真 (局_长度 ＜ 局_偏移 ＋ 1)<br />         返回 (假)<br />     .如果真结束<br />     数值1 ＝ 局_内容.取字节 (局_偏移)<br />     数值2 ＝ 局_内容.取字节 (局_偏移 ＋ 1)<br /> <br />     .判断开始 (数值1 ＜ 128)<br />         ' 单字节<br />         局_偏移 ＝ 局_偏移 ＋ 1<br />     .判断 (右移 (数值1, 5) ＝ 6)<br />         ' 双字节<br />         .如果真 (局_长度 ＜ 局_偏移 ＋ 1)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (数值2, 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (数值2, 7) ＝ 0)<br />             返回 (真)<br />         .如果真结束<br />         局_偏移 ＝ 局_偏移 ＋ 2<br />     .判断 (右移 (数值1, 4) ＝ 14)<br />         ' 三字节<br />         .如果真 (局_长度 ＜ 局_偏移 ＋ 2)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (数值2, 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 2), 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         返回 (真)<br />     .判断 (右移 (数值1, 3) ＝ 30)<br />         ' 四字节<br />         .如果真 (局_长度 ＜ 局_偏移 ＋ 3)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (数值2, 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 2), 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         .如果真 (右移 (局_内容.取字节 (局_偏移 ＋ 3), 6) ≠ 2)<br />             返回 (假)<br />         .如果真结束<br />         返回 (真)<br />     .默认<br />         返回 (假)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)

nuan1989

实测不准.

Breathless

楼主辛苦了，谢谢

jr21066

梦汐 发表于 2018-9-2 17:20
精易助手随便打的几个字然后编码的。。。你可以用精易助手编码然后测试

这个转换时有一些字符不能显示已经损失掉了.
可以在程序里用命令转换看看.

梦汐

jr21066 发表于 2018-9-2 15:38
方便上传一下文本吗?

精易助手随便打的几个字然后编码的。。。你可以用精易助手编码然后测试

jr21066

梦汐 发表于 2018-9-2 14:37
UF8全部返还假。。。。

方便上传一下文本吗?

jr21066

梦汐 发表于 2018-9-2 14:37
UF8全部返还假。。。。

方便上传一下文本吗?

因为只是一个简单的判断.所以文件头都没有判断.
因为有文件头了再来判断感觉是不是很那个啥.

这是我的测试.

  

变量名	类 型	静态	数组	备 注
内容	文本型
文本1	文本型
文本2	文本型

置随机数种子 ()
计次循环首 (10000, )
内容 ＝ 文本_取随机字符 (1) ＋ 文本_取随机汉字 (2, )
文本1 ＝ 内容
文本2 ＝ 编码_gb2312到utf8 (内容)
调试输出 (文本1, 编码_是否UTF8 (文本1), 编码_是否UTF8 (文本2))
处理事件 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 内容, 文本型<br /> .局部变量 文本1, 文本型<br /> .局部变量 文本2, 文本型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (10000, )<br /> 内容 ＝ 文本_取随机字符 (1) ＋ 文本_取随机汉字 (2, )<br /> 文本1 ＝ 内容<br /> 文本2 ＝ 编码_gb2312到utf8 (内容)<br /> <br /> 调试输出 (文本1, 编码_是否UTF8 (文本1), 编码_是否UTF8 (文本2))<br /> 处理事件 ()<br /> .计次循环尾 ()

jr21066

梦汐 发表于 2018-9-2 14:37
UF8全部返还假。。。。

方便上传一下文本吗?

因为只是一个简单的判断.所以文件头都没有判断.
因为有文件头了再来判断感觉是不是很那个啥.

这是我的测试.

  

变量名	类 型	静态	数组	备 注
内容	文本型
文本1	文本型
文本2	文本型

置随机数种子 ()
计次循环首 (10000, )
内容 ＝ 文本_取随机字符 (1) ＋ 文本_取随机汉字 (2, )
文本1 ＝ 内容
文本2 ＝ 编码_gb2312到utf8 (内容)
调试输出 (文本1, 编码_是否UTF8 (文本1), 编码_是否UTF8 (文本2))
处理事件 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 内容, 文本型<br /> .局部变量 文本1, 文本型<br /> .局部变量 文本2, 文本型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (10000, )<br />     内容 ＝ 文本_取随机字符 (1) ＋ 文本_取随机汉字 (2, )<br />     文本1 ＝ 内容<br />     文本2 ＝ 编码_gb2312到utf8 (内容)<br /> <br />     调试输出 (文本1, 编码_是否UTF8 (文本1), 编码_是否UTF8 (文本2))<br />     处理事件 ()<br /> .计次循环尾 ()

梦汐

UF8全部返还假。。。。