|
楼主 |
发表于 2020-6-7 15:15:34
|
显示全部楼层
福建省三明市
- .版本 2
- .支持库 xplib
- .支持库 iext
- .支持库 mysql
- .支持库 EThread
- .支持库 spec
- .程序集 窗口程序集_启动窗口
- .程序集变量 T, 整数型
- .程序集变量 连接状态, 整数型
- .程序集变量 搜索条件, 文本型
- .程序集变量 记录集句柄, 整数型
- .程序集变量 N, 整数型
- .程序集变量 字段组, 文本型, , "0"
- .程序集变量 宽, 整数型, , "0"
- .程序集变量 总结果组, 文本型, , "0"
- .子程序 __启动窗口_创建完毕
- XP风格 (1)
- 数据库链接 ()
- .子程序 数据库链接
- 状态条1.加入栏目 (“数据库连接中...”, 666, , , )
- 连接状态 = 连接MySql (“111.67.199.30”, “...”, “...”, “...”, )
- .如果真 (连接状态 = 0)
- 信息框 (“数据库连接失败”, 0, , )
- 结束 ()
- .如果真结束
- 状态条1.置文本 (0, “数据连接成功!”)
- 执行SQL语句 (连接状态, “SET NAMES GBK”)
- 时钟1.时钟周期 = 1000
- T = #时间
- 获取数据表头 ()
- .子程序 获取数据表头
- .局部变量 字段, 文本型
- 搜索条件 = “SELECT * FROM `车号码表` LIMIT 1”
- 执行SQL语句 (连接状态, 搜索条件)
- 记录集句柄 = 取记录集 (连接状态)
- 宽 = { 100, 100 }
- .计次循环首 (10, )
- 加入成员 (宽, 45)
- .计次循环尾 ()
- .计次循环首 (取字段总数 (记录集句柄), N)
- 序号到字段名 (记录集句柄, N - 1, 搜索条件)
- 序号到字段名 (记录集句柄, N + 1, 字段)
- 加入成员 (字段组, 字段)
- 超级列表框1.插入列 (, 搜索条件, 宽 [N], , , )
- .计次循环尾 ()
- 清除数组 (宽)
- 释放记录集 (记录集句柄)
- 搜索条件 = “SELECT * FROM `车期冠列号表` LIMIT 1”
- 执行SQL语句 (连接状态, 搜索条件)
- 记录集句柄 = 取记录集 (连接状态)
- 宽 = { 100, 100 }
- .计次循环首 (10, )
- 加入成员 (宽, 45)
- .计次循环尾 ()
- .计次循环首 (取字段总数 (记录集句柄), N)
- 序号到字段名 (记录集句柄, N - 1, 搜索条件)
- 超级列表框2.插入列 (, 搜索条件, 宽 [N], , , )
- .计次循环尾 ()
- 清除数组 (宽)
- 释放记录集 (记录集句柄)
- 状态条1.置文本 (0, “表头读取完成”)
- .子程序 _时钟1_周期事件
- T = T - 1
- .如果真 (T = 0)
- 启动线程 (&数据读取, , )
- T = #时间
- 时钟2.时钟周期 = 1000
- 时钟1.时钟周期 = 0
- .如果真结束
- .子程序 数据读取
- .局部变量 M, 整数型
- .局部变量 索引, 整数型
- 超级列表框1.全部删除 ()
- 搜索条件 = “SELECT * FROM `车号码表` ORDER BY `期数` DESC LIMIT 10”
- 执行SQL语句 (连接状态, 搜索条件)
- 记录集句柄 = 取记录集 (连接状态)
- .计次循环首 (取记录集行数 (记录集句柄), M)
- 处理事件 ()
- 读字段值 (记录集句柄, “日期”, 搜索条件)
- 索引 = 超级列表框1.插入表项 (, 搜索条件, , , , )
- .计次循环首 (取字段总数 (记录集句柄) - 1, N)
- 读字段值 (记录集句柄, N, 搜索条件)
- 超级列表框1.置标题 (索引, N, 搜索条件)
- .计次循环尾 ()
- 到下一行 (记录集句柄)
- .计次循环尾 ()
- 释放记录集 (记录集句柄)
- 超级列表框2.全部删除 ()
- 搜索条件 = “SELECT * FROM `车期冠列号表` ORDER BY `期数` DESC LIMIT 10”
- 执行SQL语句 (连接状态, 搜索条件)
- 记录集句柄 = 取记录集 (连接状态)
- .计次循环首 (取记录集行数 (记录集句柄), M)
- 处理事件 ()
- 读字段值 (记录集句柄, “日期”, 搜索条件)
- 索引 = 超级列表框2.插入表项 (, 搜索条件, , , , )
- .计次循环首 (取字段总数 (记录集句柄) - 1, N)
- 读字段值 (记录集句柄, N, 搜索条件)
- 超级列表框2.置标题 (索引, N, 搜索条件)
- .计次循环尾 ()
- 到下一行 (记录集句柄)
- .计次循环尾 ()
- 释放记录集 (记录集句柄)
- 状态条1.置文本 (0, “数据表读取完成”)
- .子程序 _时钟2_周期事件
- T = T - 1
- .如果真 (T = 0)
- .如果真 (寻找文本 (网页源码 (), 到文本 (到整数 (超级列表框1.取标题 (0, 1)) + 1), 1, 假) ≠ -1)
- 启动线程 (&插入号码, , )
- 清除数组 (宽)
- .如果真结束
- .如果真 (超级列表框2.取标题 (0, 1) ≠ 超级列表框1.取标题 (0, 1))
- 启动线程 (&插入结果, , )
- 清除数组 (总结果组)
- .如果真结束
- T = #时间
- 时钟1.时钟周期 = 1000
- 时钟2.时钟周期 = 0
- .如果真结束
- .子程序 网页源码, 文本型, , 本命令由【精易网页调试助手】生成,请配合精易模块使用。
- .局部变量 局_网址, 文本型
- .局部变量 局_方式, 整数型
- .局部变量 局_提交shuj, 文本型
- .局部变量 局_提交协yi头, 文本型
- .局部变量 局_是否重定向, 逻辑型
- .局部变量 局_结果, 字节集
- .局部变量 局_返回, 文本型
- ' https://m.1396r.com
- 局_网址 = “https://m.1396r.com/pk10/history”
- 局_方式 = 0
- ' user=amdin&pwd=123456
- 局_提交shuj = “user=amdin&pwd=123456”
- 局_提交协yi头 = “User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.80 Safari/537.36 Core/1.47.277.400 QQBrowser/9.4.7658.400” + #换行符 + “”
- 局_是否重定向 = 真
- 局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交shuj, , , 局_提交协yi头, , , 局_是否重定向, , , , , , , , )
- 局_返回 = 到文本 (编码_编码转换对象 (局_结果))
- 返回 (局_返回)
- .子程序 插入号码
- .局部变量 当期记录, 文本型
- .局部变量 查找文本内容, 文本型
- .局部变量 所在栏位, 整数型
- 当期记录 = 文本_取出中间文本 (网页源码 (), 到文本 (到整数 (超级列表框1.取标题 (0, 1)) + 1), 超级列表框1.取标题 (0, 1), , )
- .计次循环首 (10, N)
- 查找文本内容 = “>” + 到文本 (N) + “<”
- 所在栏位 = 文本_取文本所在行 (当期记录, 查找文本内容, ) - 5
- 加入成员 (宽, 所在栏位)
- .计次循环尾 ()
- 调试输出 (所在栏位, 宽)
- 执行SQL语句 (连接状态, “INSERT INTO `车号码表` (`日期`,`期数`,” + 字段组 [宽 [1]] + “,” + 字段组 [宽 [2]] + “,” + 字段组 [宽 [3]] + “,” + 字段组 [宽 [4]] + “,” + 字段组 [宽 [5]] + “,” + 字段组 [宽 [6]] + “,” + 字段组 [宽 [7]] + “,” + 字段组 [宽 [8]] + “,” + 字段组 [宽 [9]] + “,” + 字段组 [宽 [10]] + “) VALUES (CURDATE(),” + 到文本 (到整数 (超级列表框1.取标题 (0, 1)) + 1) + “,1,2,3,4,5,6,7,8,9,10)”)
- .子程序 插入结果
- .局部变量 总结果, 整数型
- .计次循环首 (10, N)
- .如果 (到整数 (超级列表框1.取标题 (0, 2)) = N)
- 总结果 = 到整数 (超级列表框2.取标题 (0, N + 1)) + 9
- .否则
- 总结果 = 到整数 (超级列表框2.取标题 (0, N + 1)) - 1
- .如果结束
- 加入成员 (总结果组, 到文本 (总结果))
- .计次循环尾 ()
- 执行SQL语句 (连接状态, “INSERT INTO `车期冠列号表` (`日期`,`期数`,`一号`,`二号`,`三号`,`四号`,`五号`,`六号`,`七号`,`八号`,`九号`,`十号`) VALUES (CURDATE(),” + 超级列表框1.取标题 (0, 1) + “,” + 总结果组 [1] + “,” + 总结果组 [2] + “,” + 总结果组 [3] + “,” + 总结果组 [4] + “,” + 总结果组 [5] + “,” + 总结果组 [6] + “,” + 总结果组 [7] + “,” + 总结果组 [8] + “,” + 总结果组 [9] + “,” + 总结果组 [10] + “)”)
复制代码 |
|