.版本 2 .支持库 commobj .支持库 EDataStructure .支持库 spec .程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _按钮1_被单击 .局部变量 A, 快速文本对象 .局部变量 TXTC, 文本型, , "0" .局部变量 B, 节点 .局部变量 计次, 整数型 .局部变量 L, 逻辑型 .局部变量 N, 整数型 .局部变量 T, 文本统计, , "0" .局部变量 C, 整数型 ' ============================================ 统计文本的出现次数 A.置文本 (编辑框1.内容) TXTC ＝ A.分割文本 (“ ”, ) .计次循环首 (取数组成员数 (TXTC), N) 计次 ＝ 计次 ＋ 1 L ＝ B.加入属性 (TXTC [N], 计次) ' 本源码来自三叶资源网(www.sanye.cx) .如果真 (L ＝ 假) B.取数值 (TXTC [N], 计次) B.修改属性 (TXTC [N], 计次 ＋ 1) .如果真结束 计次 ＝ 0 .计次循环尾 () ' ======================================= 写值给{文本统计}类型,并开始排序 B.取全部属性名 (TXTC) C ＝ 取数组成员数 (TXTC) 重定义数组 (T, 假, C) .计次循环首 (C, N) T [N].文本型 ＝ TXTC [N] B.取数值 (TXTC [N], T [N].整数型) .计次循环尾 () 冒泡排序_文本统计 (T, 真) ' 排序,为真时最多出现次数的文本最前面 ' ========================================以下为处理返文本,在编辑框2显示. A.清除文本 () .计次循环首 (C, N) A.添加 (T [N].文本型, “ ”) 调试输出 (T [N].整数型) .计次循环尾 () A.删除字符 (-1, 1) 编辑框2.内容 ＝ A.取文本 (, )