.版本 2
.支持库 EDataStructure
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 处理
.局部变量 文本, 文本型
.局部变量 行数, 整数型
.局部变量 计次, 整数型
.局部变量 变量, 文本型
.局部变量 文本分割, 文本型, , "0"
.局部变量 数字组, 整数型, , "0"
.局部变量 变量组, 文本型, , "0"
.局部变量 z_计次, 整数型
.局部变量 空点, 整数型
.局部变量 变量文本, 文本型, , "0"
.局部变量 独立, 文本型
.局部变量 独立点, 文本型
.局部变量 i, 整数型
.局部变量 当前最大, 文本型
.局部变量 z, 整数型
.局部变量 个数, 整数型
.局部变量 x, 整数型
.局部变量 节点, 节点
.局部变量 结果, 文本型
.局部变量 Str, 文本型
文本 ＝ 到文本 (读入文件 (编辑框1.内容))
文本_取中间_批量 (文本, “*”, #换行符 ＋ “*”, 变量文本, , , , , , , )
加入成员 (变量文本, 文本_倒取出中间文本 (文本, #换行符 ＋ “End”, “*”, , ))
行数 ＝ 取数组成员数 (变量文本)
重定义数组 (数字组, 假, 0)
重定义数组 (变量组, 假, 0)
.计次循环首 (行数, 计次)
变量 ＝ 变量文本 [计次]
文本分割 ＝ 分割文本 (变量, “ ”, )
加入成员 (数字组, 取数组成员数 (文本分割) － 1)
.如果真 (取数组成员数 (文本分割) ＝ 2)
独立 ＝ 文本分割 [2]
独立点 ＝ 独立点 ＋ “ ” ＋ 独立
.如果真结束
.计次循环首 (取数组成员数 (文本分割) － 1, z_计次)
加入成员 (变量组, 文本分割 [z_计次 ＋ 1])
.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (变量组), i)
.如果真 (i ＝ 1)
当前最大 ＝ 变量组
.如果真结束
.如果真 (i ＞ 1)
.如果 (到整数 (变量组 ) ＞ 到整数 (当前最大))
当前最大 ＝ 变量组
.否则
.如果结束
.如果真结束
.计次循环尾 ()
调试输出 (数字组)
.计次循环首 (取数组成员数 (数字组), z)
个数 ＝ 0
.计次循环首 (取数组成员数 (数字组), x)
.如果真 (数字组 [z] ＝ 数字组 [x])
个数 ＝ 个数 ＋ 1
.如果真结束
.计次循环尾 ()
.如果真 (节点.加入属性 (到文本 (数字组 [z]), 0))
结果 ＝ 到文本 (数字组 [z]) ＋ “ =” ＋ 到文本 (个数)
Str ＝ Str ＋ 结果 ＋ #换行符
.如果真结束
.计次循环尾 ()
调试输出 (独立点, 取数组成员数 (变量组), 当前最大, Str)
' 写到文件 (“\1.xlsx”, 到字节集 (独立点))
.子程序 _按钮1_被单击
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.打开 ()
编辑框1.内容 ＝ 通用对话框1.文件名
.子程序 _按钮2_被单击
处理 ()
