中英混合文本逐字分割例程

中英混合文本逐字分割例程

@易语言学习论坛-近在眼前

.版本 2
.支持库 commobj

.程序集 窗口程序集1

.子程序 _按钮1_被单击, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 文本, 文本型
.局部变量 n, 整数型
.局部变量 代码, 整数型
.局部变量 临时, 文本型
.局部变量 分割后文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 tt

置等待鼠标 ()
n ＝ 1
文本 ＝ 编辑框1.内容
tt ＝ 取启动时间 ()
.判断循环首 (n ≤ 取文本长度 (文本))
    临时 ＝ 取文本中间 (文本, n, 1)
    .如果真 (取代码 (临时, ) ＜ 0)
        临时 ＝ 取文本中间 (文本, n, 2)
        n ＝ n ＋ 1
    .如果真结束
    加入成员 (分割后文本, 临时)
    n ＝ n ＋ 1
.判断循环尾 ()
tt ＝ 取启动时间 () － tt
编辑框2.内容 ＝ “”
.计次循环首 (取数组成员数 (分割后文本), i)
    编辑框2.加入文本 (分割后文本 [i] ＋ “ ”)
.计次循环尾 ()
编辑框2.加入文本 (#换行符 ＋ “原文本长度：” ＋ 到文本 (取文本长度 (文本)) ＋ “    分割耗时：” ＋ 到文本 (tt))
恢复鼠标 ()

.子程序 _按钮2_被单击
.局部变量 n
.局部变量 m
.局部变量 L, 快速字节集对象
.局部变量 i, 整数型
.局部变量 z1, 字节型
.局部变量 分割后的文本, 文本型, , "0"
.局部变量 tt, 整数型

置等待鼠标 ()
n ＝ 1
L.置字节集 (编辑框1.内容)
m ＝ L.取长度 () － 1
tt ＝ 取启动时间 ()
.计次循环首 (m, i)
    .如果 (n ≤ m)
        z1 ＝ L.取字节 (n)
        .如果 (z1 ＞ 122)
            加入成员 (分割后的文本, 字符 (z1) ＋ 字符 (L.取字节 (n ＋ 1)))
            n ＝ n ＋ 2
        .否则
            加入成员 (分割后的文本, 字符 (z1))
            n ＝ n ＋ 1
        .如果结束
        ' 本源码来自三叶资源网(www.sanye.cx)
    .否则
        跳出循环 ()
    .如果结束

.计次循环尾 ()
tt ＝ 取启动时间 () － tt
编辑框2.内容 ＝ “”
.计次循环首 (取数组成员数 (分割后的文本), i)
    编辑框2.加入文本 (分割后的文本 [i] ＋ “ ”)
.计次循环尾 ()
编辑框2.加入文本 (#换行符 ＋ “原文本长度：” ＋ 到文本 (L.取长度 () － 1) ＋ “    分割耗时：” ＋ 到文本 (tt))
恢复鼠标 ()