依出现次数排序模块源码

.版本 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.取文本 (, )

@呵呵仙