.版本 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)) 恢复鼠标 ()