|
发表于 2020-1-27 21:56:14
|
显示全部楼层
天津市天津市
- .版本 2
- .支持库 eGrid
- .支持库 edroptarget
- .支持库 EThread
- .支持库 spec
- .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
- 载入 (窗口1, , 假)
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _窗口1_尺寸被改变
- 高级表格.移动 (0, 0, 取用户区宽度 (), 取用户区高度 ())
- .子程序 _窗口1_创建完毕
- 高级表格.表格线颜色 = #藏青
- 高级表格.背景颜色 = #白色
- 高级表格.文字颜色 = #黑色
- 高级表格.点燃色 = #红色
- 高级表格.表头背景颜色 = #天蓝
- 高级表格.选择区背景 = #银白
- 高级表格.选择区文字颜色 = #蓝色
- 高级表格.客户区背景颜色 = 高级表格.背景颜色
- 高级表格.列数 = 3
- 高级表格.置列宽 (0, 50)
- 高级表格.置列宽 (1, 150)
- 高级表格.置列宽 (2, 150)
- 高级表格.置xx (0, 0, 1, “序号”)
- 高级表格.置xx (0, 1, 1, “账号”)
- 高级表格.置xx (0, 2, 1, “密码”)
- 高级表格.置行高 (0, 28)
- 拖放对象1.接收文件 = 真
- 拖放对象1.zc拖放控件 (取窗口句柄 ())
- .子程序 _指针到整数, 整数型
- .参数 指针, 整数型
- 置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
- 返回 (0)
- .子程序 取变量内存地址, 整数型
- .参数 变量, 通用型, 参考
- 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
- 返回 (0)
- .子程序 _拖放对象1_得到文件, , , 支持多个文件一起拖入
- .参数 接收到的文件路径, 文本型
- 启动线程 (&处理账号文件, _指针到整数 (取变量内存地址 (接收到的文件路径)), )
- 延迟 (10)
- .子程序 处理账号文件, , , 不需要那么复杂,我讲究一切从简
- .参数 文件路径, 文本型
- .局部变量 路径数组, 文本型, , "0"
- .局部变量 分割符, 文本型
- .局部变量 计次, 整数型
- .局部变量 文件号, 整数型
- .局部变量 单行文本, 文本型
- .局部变量 单行分割, 文本型, , "0"
- .局部变量 行, 整数型
- 路径数组 = 分割文本 (文件路径, #换行符, )
- 分割符 = “----”
- .计次循环首 (取数组成员数 (路径数组), 计次)
- 文件号 = 打开文件 (路径数组 [计次], #读入, #禁止写)
- .如果真 (文件号 ≠ 0)
- .判断循环首 (是否在文件尾 (文件号, ) = 假)
- 单行文本 = 读入一行 (文件号)
- 单行分割 = 分割文本 (单行文本, 分割符, )
- ' 每个账号最低一个字符 0代表账号的最低数-1,这个数根据自己实际情况修改
- .如果真 (寻找文本 (单行文本, 分割符, , 假) > 0 且 取数组成员数 (单行分割) > 1)
- 行 = 高级表格.行数
- 高级表格.插入行 (到文本 (行), 行)
- 高级表格.置xx (行, 1, 1, 单行分割 [1])
- 高级表格.置xx (行, 2, 1, 单行分割 [2])
- 高级表格.置行高 (行, 18)
- .如果真结束
- .判断循环尾 ()
- .如果真结束
- 关闭文件 (文件号)
- .计次循环尾 ()
复制代码 |
|