| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_窗口1 | | | |
拖放对象1.
注册拖放控件 (窗口1.
取窗口句柄 ())
如果 (信息框 (“导入位于临时目录的账号文本 请选 [是]” ＋
#换行符 ＋
“自己选文本 请选 [否]”,
#询问图标 ＋
#确认钮 ＋
#是否钮, “哪里?”, 窗口1
) ＝
#是钮 )
导入生成到临时目录的文本 ()
自己选文本 ()
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 文本 | 文本型 | | |
| 第一次分割 | 文本型 | | 0 |
| 第二次分割 | 文本型 | | 6 |
| N | 整数型 | | |
| 索引 | 整数型 | | |
通用对话框1.初始目录 ＝
取特定目录 (3
)通用对话框1.标题 ＝
“请选择欲导入的文本”如果真 (通用对话框1.
打开 () ＝
真)
文本 ＝
到文本 (读入文件 (通用对话框1.文件名
))
如果真 (文本 ＝
“”)信息框 (“请选择txt文本!”,
#错误图标 ＋ 0,
“这样是不对的哦”, 窗口1
)返回 ()如果真 (寻找文本 (文本,
“|”, ,
假) ＝ -1
)信息框 (“仅支持用|分割”,
#错误图标 ＋ 0,
“这样是不对的哦”, 窗口1
)返回 ()第一次分割 ＝ 分割文本 (文本, #换行符, )
计次循环首 (取数组成员数 (第一次分割
), N
)第二次分割 ＝
分割文本 (第一次分割
[N
],
“|”,
)如果真 (取数组成员数 (第二次分割
) ＝ 6
)索引 ＝ 超级列表框1.
插入表项 (,
到文本 (N
), , , ,
)超级列表框1.
置标题 (索引, 1, 第二次分割
[1
])超级列表框1.
置标题 (索引, 2, 第二次分割
[2
])超级列表框1.
置标题 (索引, 3, 第二次分割
[3
])超级列表框1.
置标题 (索引, 4, 第二次分割
[4
])超级列表框1.
置标题 (索引, 5, 第二次分割
[5
])超级列表框1.
置标题 (索引, 6, 第二次分割
[6
])
计次循环尾 ()信息框 (“账号文本导入完毕!”,
#信息图标 ＋ 0, , 窗口1
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 文本 | 文本型 | | |
| 第一次分割 | 文本型 | | 0 |
| 第二次分割 | 文本型 | | 6 |
| N | 整数型 | | |
| 索引 | 整数型 | | |
文本 ＝
到文本 (读入文件 (取特定目录 (11
))
)第一次分割 ＝
分割文本 (文本,
#换行符, )计次循环首 (取数组成员数 (第一次分割
), N
)第二次分割 ＝
分割文本 (第一次分割
[N
],
“|”,
)如果真 (取数组成员数 (第二次分割
) ＝ 6
)索引 ＝ 超级列表框1.
插入表项 (,
到文本 (N
), , , ,
)超级列表框1.
置标题 (索引, 1, 第二次分割
[1
])超级列表框1.
置标题 (索引, 2, 第二次分割
[2
])超级列表框1.
置标题 (索引, 3, 第二次分割
[3
])超级列表框1.
置标题 (索引, 4, 第二次分割
[4
])超级列表框1.
置标题 (索引, 5, 第二次分割
[5
])超级列表框1.
置标题 (索引, 6, 第二次分割
[6
])计次循环尾 ()信息框 (“账号文本导入完毕!”,
#信息图标 ＋ 0, , 窗口1
)如果真 (超级列表框1.
取表项数 () ＝ 0
)信息框 (“超级列表框还是空的哦!”,
#错误图标 ＋ 0, ,
)返回 ()
计次循环首 (超级列表框1.
取表项数 (), N
)文本 ＝ 文本 ＋ 超级列表框1.
取标题 (N － 1, 1
) ＋
“|” ＋ 超级列表框1.
取标题 (N － 1, 2
) ＋
“|” ＋ 超级列表框1.
取标题 (N － 1, 3
) ＋
“|” ＋ 超级列表框1.
取标题 (N － 1, 4
) ＋
“|” ＋ 超级列表框1.
取标题 (N － 1, 5
) ＋
“|” ＋ 超级列表框1.
取标题 (N － 1, 6
) ＋
#换行符 计次循环尾 ()通用对话框1.初始目录 ＝
取特定目录 (3
)通用对话框1.标题 ＝
“请输入欲导出的文本文件名”通用对话框1.类型 ＝ 1
如果 (通用对话框1.
打开 () ＝
真)如果 (写到文件 (通用对话框1.文件名,
到字节集 (文本
)) ＝
真)信息框 (“账号导出成功!”, 0, , 窗口1
)信息框 (“账号导出失败...”, 0, , 窗口1
)信息框 (“账号导出失败”, 0, , 窗口1
)计次循环首 (超级列表框1.
取表项数 (), N
)超级列表框1.
置状态图片 (N － 1, 1
)计次循环尾 ()计次循环首 (超级列表框1.
取表项数 (), N
)如果 (超级列表框1.
取当前状态图片 (N － 1
) ＝ 0
)超级列表框1.
置状态图片 (N － 1, 1
)超级列表框1.
置状态图片 (N － 1, 0
)计次循环尾 ()超级列表框排序 (超级列表框1, 1, , 0, ,
假)超级列表框排序 (超级列表框1, 1, , 0, ,
真)如果真 (被单击列索引 ＝ 0
)如果 (寻找文本 (超级列表框1.
取列标题 (0
),
“↓”, ,
假) ≠ -1
)超级列表框排序 (超级列表框1, 0, , 0, ,
真)超级列表框1.
置列标题 (0,
“序号↑”)超级列表框排序 (超级列表框1, 0, , 0, ,
假)
超级列表框1.
置列标题 (0,
“序号↓”)如果真 (被单击列索引 ＝ 1
)如果 (寻找文本 (超级列表框1.
取列标题 (1
),
“↓”, ,
假) ≠ -1
)超级列表框排序 (超级列表框1, 2, , 0, ,
真)超级列表框1.
置列标题 (1,
“账号↑”)超级列表框排序 (超级列表框1, 4, , 0, ,
假)超级列表框1.
置列标题 (1,
“账号↓”)如果真 (被单击列索引 ＝ 2
)如果 (寻找文本 (超级列表框1.
取列标题 (2
),
“↓”, ,
假) ≠ -1
)超级列表框排序 (超级列表框1, 2, , 1, ,
真)超级列表框1.
置列标题 (2,
“密码↑”)超级列表框排序 (超级列表框1, 2, , 1, ,
假)超级列表框1.
置列标题 (2,
“密码↓”)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 文本 | 文本型 | | |
| 第一次分割 | 文本型 | | 0 |
| 第二次分割 | 文本型 | | 6 |
| N | 整数型 | | |
| 索引 | 整数型 | | |
文本 ＝
到文本 (读入文件 (接收到的文件路径
))
如果真 (文本 ＝
“”)信息框 (“请拖拽txt文本!”,
#错误图标 ＋ 0, , 窗口1
)返回 ()如果真 (寻找文本 (文本,
“|”, ,
假) ＝ -1
)信息框 (“仅支持用|分割”,
#错误图标 ＋ 0, , 窗口1
)返回 ()第一次分割 ＝ 分割文本 (文本, #换行符, )计次循环首 (取数组成员数 (第一次分割
), N
)第二次分割 ＝
分割文本 (第一次分割
[N
],
“|”,
)索引 ＝ 超级列表框1.
插入表项 (,
到文本 (N
), , , ,
)超级列表框1.
置标题 (索引, 1, 第二次分割
[1
])超级列表框1.
置标题 (索引, 2, 第二次分割
[2
])超级列表框1.
置标题 (索引, 3, 第二次分割
[3
])超级列表框1.
置标题 (索引, 4, 第二次分割
[4
])超级列表框1.
置标题 (索引, 5, 第二次分割
[5
])超级列表框1.
置标题 (索引, 6, 第二次分割
[6
])计次循环尾 ()信息框 (“账号文本导入完毕!”,
#信息图标 ＋ 0, , 窗口1
)|
| 二分查找 | 整数型 | |
|
| 数组 | 文本型 | | | |
待查 | 文本型 | | | | 类型 | 整数型 | | | | 区分大小写 | 逻辑型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| K | 整数型 | | |
| M | 整数型 | | |
| J | 整数型 | | |
| 数值A | 双精度小数型 | | |
| 数值B | 双精度小数型 | | |
| 文本 | 文本型 | | |
K ＝ 1
M ＝
取数组成员数 (数组
)如果真 (M ＝ 0
)返回 (1
)判断 (类型 ＝ 0
)数值A ＝
到数值 (待查
)如果真 (数值A ≥
到数值 (数组
[M
]))
返回 (M ＋ 1
)如果真 (数值A ≤
到数值 (数组
[1
]))
返回 (1
)判断循环首 (K ＜ M － 1
)J
＝ (K ＋ M
) ＼ 2
数值B ＝
到数值 (数组
[J
])如果真 (数值A ＝ 数值B
)K ＝ J
跳出循环 ()如果 (数值A ＜ 数值B
)M ＝ J
K ＝ J
判断循环尾 ()
判断 (类型 ＝ 1
)
如果真 (文本比较 (待查, 数组
[M
], 区分大小写
) ≥ 0
)返回 (M ＋ 1
)如果真 (文本比较 (待查, 数组
[1
], 区分大小写
) ≤ 0
)返回 (1
)判断循环首 (K ＜ M － 1
)J
＝ (K ＋ M
) ＼ 2
如果真 (文本比较 (待查, 数组
[J
], 区分大小写
) ＝ 0
)K ＝ J
跳出循环 ()如果 (文本比较 (待查, 数组
[J
], 区分大小写
) ＜ 0
)M ＝ J
K ＝ J
判断循环尾 ()判断 (类型 ＝ 2
)数值A ＝
取字节集数据 (到字节集 (到时间 (待查
)),
#双精度小数型 )如果真 (数值A ≥
取字节集数据 (到字节集 (到时间 (数组
[M
])),
#双精度小数型 ))
返回 (M ＋ 1
)如果真 (数值A ≤
取字节集数据 (到字节集 (到时间 (数组
[1
])),
#双精度小数型 ))
返回 (1
)判断循环首 (K ＜ M － 1
)J
＝ (K ＋ M
) ＼ 2
数值B ＝
取字节集数据 (到字节集 (到时间 (数组
[J
])),
#双精度小数型 )如果真 (数值A ＝ 数值B
)K ＝ J
跳出循环 ()如果 (数值A ＜ 数值B
)M ＝ J
K ＝ J
判断循环尾 ()返回 (K ＋ 1)|
| 超级列表框排序 | 整数型 | |
|
| 对象 | 超级列表框 | | | |
列索引 | 整数型 | | | | 实际数据 | 文本型 | | | | 类型 | 整数型 | | | | 区分大小写 | 逻辑型 | | | | 排序方式 | 逻辑型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 排序时间 | 整数型 | | |
| 排序变量 | 文本型 | | 0 |
| 序号数组 | 整数型 | | 0 |
| 表项数值 | 整数型 | | 0 |
| 图片数组 | 整数型 | | 0 |
| 状态图片 | 整数型 | | 0 |
| 变量 | 整数型 | | |
| 数据 | 文本型 | | |
| 列数 | 整数型 | | |
| 行数 | 整数型 | | |
| 单元数 | 整数型 | | |
| 选中项 | 整数型 | | |
| i | | | |
排序时间 ＝
取启动时间 ()类型 ＝
选择 (类型 ≥ 0
且 类型 ≤ 4, 类型, 1
)区分大小写 ＝
选择 (是否为空 (区分大小写
), 真, 区分大小写
)排序方式 ＝
选择 (是否为空 (排序方式
), 真, 排序方式
)如果真 (对象.现行选中项 ≠ -1
)如果真 (对象.
取表项数值 (对象.现行选中项
) ＝ 0
)对象.
置表项数值 (对象.现行选中项, 1
)选中项 ＝ 对象.取表项数值 (对象.现行选中项)计次循环首 (对象.
取表项数 (), 变量
)如果 (类型 ＝ 4
) 数据 ＝
到文本 (对象.
取图片 (变量 － 1, 列索引
))
数据 ＝
删首尾空 (对象.
取标题 (变量 － 1, 列索引
))
计次循环首 (取数组成员数 (实际数据
), i
) 如果真 (取文本左边 (实际数据
[i
],
取文本长度 (数据
) ＋ 1
) ＝ 数据 ＋
“:”)数据 ＝
子文本替换 (实际数据
[i
], 数据 ＋
“:”,
“”, , ,
真)跳出循环 ()
计次循环尾 ()如果 (类型 ≠ 3
)如果 (类型 ＝ 4
) 单元数 ＝
二分查找 (排序变量, 数据, 0, 区分大小写
)单元数 ＝
二分查找 (排序变量, 数据, 类型, 区分大小写
)插入成员 (排序变量, 单元数, 数据)插入成员 (序号数组, 单元数, 变量 － 1
)插入成员 (表项数值, 单元数, 对象.
取表项数值 (变量 － 1
))
插入成员 (状态图片, 单元数, 对象.
取当前状态图片 (变量 － 1
))
插入成员 (序号数组,
选择 (数据 ＝
“假”, 变量, 1
), 变量 － 1
)插入成员 (表项数值,
选择 (数据 ＝
“假”, 变量, 1
), 对象.
取表项数值 (变量 － 1
))
插入成员 (状态图片,
选择 (数据 ＝
“假”, 变量, 1
), 对象.
取当前状态图片 (变量 － 1
))
计次循环尾 ()列数 ＝ 对象.
取列数 ()行数 ＝
取数组成员数 (序号数组
)单元数 ＝ 行数 × 列数
重定义数组 (排序变量, 假, 单元数
)重定义数组 (图片数组, 假, 单元数
) 计次循环首 (单元数, 变量
)排序变量
[变量
] ＝ 对象.
取标题 (序号数组
[取绝对值 (选择 (排序方式, -1, 行数
) �
�� (变量 － 1
) ＼ 列数
)], (变量 － 1
) ％ 列数
)图片数组
[变量
] ＝ 对象.
取图片 (序号数组
[取绝对值 (选择 (排序方式, -1, 行数
) �
�� (变量 － 1
) ＼ 列数
)], (变量 － 1
) ％ 列数
) 计次循环尾 ()计次循环首 (单元数, 变量
)对象.
置标题 ( (变量 － 1
) ＼
列数, (变量 － 1
) ％ 列数, 排序变量
[变量
])对象.
置表项数值 ( (变量 － 1
) ＼ 列数, 表项数值
[取绝对值 (选择 (排序方式, -1, 行数
) �
�� (变量 － 1
) ＼ 列数
)]) 如果真 (图片数组
[变量
] ≠ -1
)对象.
置图片 ( (变量 － 1
) ＼
列数, (变量 － 1
) ％ 列数, 图片数组
[变量
]) 如果真 (状态图片
[取绝对值 (选择 (排序方式, -1, 行数
) �
�� (变量 － 1
) ＼ 列数
)] ≠ -1
)对象.
置状态图片 ( (变量 － 1
) ＼ 列数, 状态图片
[取绝对值 (选择 (排序方式, -1, 行数
) �
�� (变量 － 1
) ＼ 列数
)]) 计次循环尾 ()如果真 (选中项 ≠ 0
)计次循环首 (对象.
取表项数 (), 变量
)如果真 (对象.
取表项数值 (变量 － 1
) ＝ 选中项
)对象.现行选中项 ＝ 变量 － 1
对象.
保证显示 (变量 － 1
)跳出循环 ()计次循环尾 ()返回 (取启动时间 () － 排序时间)计次循环首 (超级列表框1.
取表项数 (),
)A ＝ A ＋ 1
如果真 (超级列表框1.
取当前状态图片 (A － 1
) ＝ 1
)超级列表框1.
删除表项 (A － 1
)A ＝ A － 1
计次循环尾 ()弹出菜单 (右键菜单, ,
)N ＝
到整数 (编辑框_跳到.内容
) － 1
超级列表框1.
保证显示 (N
)超级列表框1.
选择表项 (N
)N ＝ 超级列表框1.
查找表项 (编辑框_关键字.内容, , 假, -1
)超级列表框1.
保证显示 (N
)超级列表框1.
选择表项 (N
)写到文件 (取运行目录 () ＋
“\1.txt”,
读入文件 (取运行目录 () ＋
“\1.txt”) ＋
到字节集 (编辑框_账号.内容 ＋
“|” ＋ 编辑框_密码.内容 ＋
“|” ＋ 编辑框_平台.内容 ＋
“|” ＋ 编辑框_大区.内容 ＋
“|” ＋ 编辑框_等级.内容 ＋
“|” ＋ 编辑框_备注.内容 ＋
#换行符 ))
索引 ＝ 超级列表框1.
插入表项 (,
到文本 (超级列表框1.
取表项数 () ＋ 1
), , , ,
)超级列表框1.
置标题 (索引, 1, 编辑框_账号.内容
)超级列表框1.
置标题 (索引, 2, 编辑框_密码.内容
)超级列表框1.
置标题 (索引, 3, 编辑框_平台.内容
)超级列表框1.
置标题 (索引, 4, 编辑框_大区.内容
)超级列表框1.
置标题 (索引, 5, 编辑框_等级.内容
)超级列表框1.
置标题 (索引, 6, 编辑框_备注.内容
)超级列表框1.
保证显示 (索引
)置剪辑板文本 (超级列表框1.
取标题 (超级列表框1.现行选中项, 1
) ＋
“|” ＋ 超级列表框1.
取标题 (超级列表框1.现行选中项, 2
))
置剪辑板文本 (超级列表框1.
取标题 (超级列表框1.现行选中项, 1
))
置剪辑板文本 (超级列表框1.
取标题 (超级列表框1.现行选中项, 2
))
超级列表框1.
置列标题 (3,
“已选择表项数” ＋
到文本 (超级列表框1.
取已选择表项数 ())
)
![EKCH$PQ96J[VW]@NVOV$}$C.png](static/image/common/none.gif "EKCH$PQ96J[VW]@NVOV$}$C.png")