求一个取utf8字节集真实字符格式的。取字节集左边 个数

police0909

在新窗口里，这样子用，没有一点问题。

但是在另个软件里，如果取了字节集左边，子程序结束，软件就会崩溃，实在搞不懂为什么。不知道大佬有没有好用的取utf8字符真实左边位置的。

  

子程序名	返回值类型	公开	备 注
果心_取字节集左边	字节集		失败返回空文本。仅限utf8和unicode。返回的是非标准unicode
参数名	类 型	参考	可空	数组	备 注
文本	字节集
字符数目	整数型

变量名	类 型	静态	数组	备 注
真实位置	整数型
长度	整数型
局_文本	字节集
a	整数型
返回数据	字节集

局_文本 ＝ 文本
判断 (文本_是否UTF8_汇编 (局_文本))

局_文本 ＝ UnicodeToUtf8_yc (局_文本)
a ＝ 1
长度 ＝ 取字节集长度_汇编 (局_文本)
如果 (字符数目 ＞ 长度 或 字符数目 ≤ 0)
返回 ({  })



真实位置 ＝ 果心_取字符字节集真实位置 (局_文本, 字符数目, 长度)
返回数据 ＝ 取字节集左边_汇编 (局_文本, 真实位置)
判断 (a ＝ 1)
返回数据 ＝ Utf8TOUnicode_yc2 (返回数据, )


返回 (返回数据)

子程序名	返回值类型	公开	备 注
果心_取字符字节集大小	整数型		返回指定字节位置的字符的字节数，失败返回 -1
参数名	类 型	参考	可空	数组	备 注
文本	字节集
字节位置	整数型
长度	整数型

变量名	类 型	静态	数组	备 注
buffer	字节集

判断 (长度 ＝ 0)
长度 ＝ 取字节集长度_汇编 (文本)


如果真 (字节位置 ＞ 长度 且 字节位置 ≠ 0)
返回 (-1)

buffer ＝ 文本
' 原理：GB2312 编码中，如果一个字符的第一个字节大于 161，那这个字符就占 2 个字节
如果真 (buffer [字节位置] ≥ 161)
如果真 (字节位置 ≠ 长度 且 buffer [字节位置 ＋ 1] ≥ 161)  ' 防止下标溢出
返回 (3)
返回 (3)
返回 (1)

子程序名	返回值类型	公开	备 注
果心_取字符字节集真实位置	整数型		返回指定字符位置在文本中的【字节位置】
参数名	类 型	参考	可空	数组	备 注
文本	字节集
字符位置	整数型
长度	整数型

变量名	类 型	静态	数组	备 注
buffer	字节集
i				真实字符数字
字节数				实际字节数
字符字节集大小	整数型
查找位置	整数型

判断 (长度 ＝ 0)
长度 ＝ 取字节集长度_汇编 (文本)



如果真 (字符位置 ＞ 长度 或 字符位置 ≤ 0)
返回 (0)

buffer ＝ 文本
i ＝ 1
查找位置 ＝ 1  ' 字节数从 1 开始，因为易语言中数组下标不能从 0 开始
判断循环首 (i ≤ 字符位置)
字符字节集大小 ＝ 果心_取字符字节集大小 (文本, 查找位置, 长度)
字节数 ＝ 字节数 ＋ 字符字节集大小
查找位置 ＝ 字节数 ＋ 1
i ＝ i ＋ 1
判断循环尾 ()
' 字节数 - 1 是因为一开始字节数就多算了一个
返回 (字节数)

.版本 2<br /> <br /> .子程序 果心_取字节集左边, 字节集, 公开, 失败返回空文本。仅限utf8和unicode。返回的是非标准unicode<br /> .参数 文本, 字节集<br /> .参数 字符数目, 整数型<br /> .局部变量 真实位置, 整数型<br /> .局部变量 长度, 整数型<br /> .局部变量 局_文本, 字节集<br /> .局部变量 a, 整数型<br /> .局部变量 返回数据, 字节集<br /> <br /> 局_文本 ＝ 文本<br /> .判断开始 (文本_是否UTF8_汇编 (局_文本))<br /> <br /> .默认<br />     局_文本 ＝ UnicodeToUtf8_yc (局_文本)<br />     a ＝ 1<br /> <br /> .判断结束<br /> 长度 ＝ 取字节集长度_汇编 (局_文本)<br /> .如果 (字符数目 ＞ 长度 或 字符数目 ≤ 0)<br />     返回 ({  })<br /> .否则<br /> <br /> .如果结束<br /> <br /> 真实位置 ＝ 果心_取字符字节集真实位置 (局_文本, 字符数目, 长度)<br /> 返回数据 ＝ 取字节集左边_汇编 (局_文本, 真实位置)<br /> .判断开始 (a ＝ 1)<br />     返回数据 ＝ Utf8TOUnicode_yc2 (返回数据, )<br /> .默认<br /> <br /> .判断结束<br /> 返回 (返回数据)<br /> <br /> <br /> .子程序 果心_取字符字节集大小, 整数型, 公开, 返回指定字节位置的字符的字节数，失败返回 -1<br /> .参数 文本, 字节集<br /> .参数 字节位置, 整数型<br /> .参数 长度, 整数型, 可空<br /> .局部变量 buffer, 字节集<br /> <br /> .判断开始 (长度 ＝ 0)<br />     长度 ＝ 取字节集长度_汇编 (文本)<br /> .默认<br /> <br /> .判断结束<br /> .如果真 (字节位置 ＞ 长度 且 字节位置 ≠ 0)<br />     返回 (-1)<br /> .如果真结束<br /> <br /> buffer ＝ 文本<br /> <br /> ' 原理：GB2312 编码中，如果一个字符的第一个字节大于 161，那这个字符就占 2 个字节<br /> .如果真 (buffer [字节位置] ≥ 161)<br />     .如果真 (字节位置 ≠ 长度 且 buffer [字节位置 ＋ 1] ≥ 161)  ' 防止下标溢出<br />         返回 (3)<br />     .如果真结束<br />     返回 (3)<br /> .如果真结束<br /> 返回 (1)<br /> <br /> .子程序 果心_取字符字节集真实位置, 整数型, 公开, 返回指定字符位置在文本中的【字节位置】<br /> .参数 文本, 字节集<br /> .参数 字符位置, 整数型<br /> .参数 长度, 整数型, 可空<br /> .局部变量 buffer, 字节集<br /> .局部变量 i, , , , 真实字符数字<br /> .局部变量 字节数, , , , 实际字节数<br /> .局部变量 字符字节集大小, 整数型<br /> .局部变量 查找位置, 整数型<br /> <br /> .判断开始 (长度 ＝ 0)<br />     长度 ＝ 取字节集长度_汇编 (文本)<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果真 (字符位置 ＞ 长度 或 字符位置 ≤ 0)<br />     返回 (0)<br /> .如果真结束<br /> <br /> buffer ＝ 文本<br /> <br /> i ＝ 1<br /> 查找位置 ＝ 1  ' 字节数从 1 开始，因为易语言中数组下标不能从 0 开始<br /> .判断循环首 (i ≤ 字符位置)<br /> <br /> <br />     字符字节集大小 ＝ 果心_取字符字节集大小 (文本, 查找位置, 长度)<br />     字节数 ＝ 字节数 ＋ 字符字节集大小<br />     查找位置 ＝ 字节数 ＋ 1<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()<br /> <br /> ' 字节数 - 1 是因为一开始字节数就多算了一个<br /> 返回 (字节数)

b0y

  

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

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

ansi ＝ “大是大非fdsljfs/0=-0都是浪费精力是”
调试输出 (leftW (ansi, 12))
' 大是大非fdsljfs/

子程序名	返回值类型	公开	备 注
leftW	文本型
参数名	类 型	参考	可空	数组	备 注
ansi	文本型
len	整数型

变量名	类 型	静态	数组	备 注
bW	字节集
lenW	整数型

bW ＝ 文本到UTF16 (ansi)
lenW ＝ 取字节集长度 (bW)
len ＝ len × 2
如果真 (len ≥ lenW － 2)
返回 (ansi)
连续赋值 (0, bW [len ＋ 1], bW [len ＋ 2])
返回 (UTF16到文本 (bW))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 ansi, 文本型<br /> <br /> ansi ＝ “大是大非fdsljfs/0=-0都是浪费精力是”<br /> 调试输出 (leftW (ansi, 12))<br /> ' 大是大非fdsljfs/<br /> <br /> <br /> .子程序 leftW, 文本型<br /> .参数 ansi, 文本型<br /> .参数 len, 整数型<br /> .局部变量 bW, 字节集<br /> .局部变量 lenW, 整数型<br /> <br /> bW ＝ 文本到UTF16 (ansi)<br /> lenW ＝ 取字节集长度 (bW)<br /> len ＝ len × 2<br /> .如果真 (len ≥ lenW － 2)<br />     返回 (ansi)<br /> .如果真结束<br /> 连续赋值 (0, bW [len ＋ 1], bW [len ＋ 2])<br /> 返回 (UTF16到文本 (bW))

七夜网

这个判断的作用是什么？判断不判断返回都是3

b0y

直接用unicode不就行了 中英文都是算一个长度