易语言 取文本字符个数 毫秒级统计大文本字符数 4种方法

.版本 2

.子程序 取文本字符个数1, 整数型, , ASM 取字符个数 //汉字算一个字符,其他单字节的字符算一个，如果为空将会崩溃
.参数 要寻找的文本, 文本型

.如果真 (要寻找的文本 ＝ “”)
    返回 (0)
.如果真结束
置入代码 ({ 139, 125, 8, 139, 63, 49, 192, 138, 31, 128, 251, 0, 116, 10, 128, 251, 127, 118, 1, 71, 71, 64, 235, 239, 201, 194, 4, 0 })
返回 (0)

.子程序 取文本字符个数2, 整数型
.参数 str, 文本型
.局部变量 n, 整数型
.局部变量 i, 整数型
.局部变量 Buf, 字节集
.局部变量 len, 整数型

Buf ＝ 到字节集 (str)
len ＝ 取字节集长度 (Buf)
i ＝ 1
.判断循环首 (len ≥ i)
    .判断开始 (IsDBCSLeadByte (Buf [i]))
        i ＝ i ＋ 2
    .默认
        i ＝ i ＋ 1
    .判断结束
    n ＝ n ＋ 1
.判断循环尾 ()
返回 (n)

.子程序 取文本字符个数3, 整数型, , 无论是中文还是英文(全角或半角)统一计算为1个字。
.参数 欲取的文本, 文本型
.局部变量 Buffer, 字节集
.局部变量 i, 整数型
.局部变量 n, 整数型
.局部变量 len, 整数型

.如果真 (欲取的文本 ＝ “”)
    返回 (0)
.如果真结束
i ＝ 1
Buffer ＝ 到字节集 (欲取的文本)
len ＝ 取字节集长度 (Buffer)
.判断循环首 (i ≤ len)
    .如果 (Buffer [i] ＞ 127)
        i ＝ i ＋ 2
    .否则
        i ＝ i ＋ 1
    .如果结束
    n ＝ n ＋ 1
.判断循环尾 ()
返回 (n)

.子程序 取文本字符个数4, 整数型
.参数 str, 文本型
.局部变量 buf, 字节集

buf ＝ AnsiToUnicode (str)
返回 (宽文本_取长度 (取指针字节集_ (buf)))