精易论坛

标题: 我也来一份肺炎的 [打印本页]

作者: 塔利班的蛋糕    时间: 2020-1-27 21:42
标题: 我也来一份肺炎的
本帖最后由 塔利班的蛋糕 于 2020-1-27 21:44 编辑

滚动消息和统计xx来自https://view.inews.qq.com/g2/get ... 023614574927234444_
列表框的xx来自http://m.medsci.cn/wh.asp
调用精益模块 肺炎实时监测.e (632.25 KB, 下载次数: 146)

捕获.PNG (28.32 KB, 下载次数: 1)

捕获.PNG

作者: hxx311954    时间: 2020-1-27 21:52
不能选区? 比如:四川省 有 几个县?
作者: 萌萌嗒的小白    时间: 2020-1-28 01:42
  
子程序名返回值类型公开备 注
取JSON疫情信息文本型 本命令由【精易网页调试助手】生成,请配合精易模块使用。
变量名类 型静态数组备 注
局_网址文本型 
局_方式整数型 
ADD_协yi头类_POSTxx类 
局_提交协yi头文本型 
局_结果字节集 
局_返回文本型 
局_网址 = https://image.uc.cn/s/uae/g/1y/b ... f6a56104811c1905.js
局_方式 = 0
ADD_协yi头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”, )
局_提交协yi头 = ADD_协yi头.获取协yi头xx ()
局_结果 = 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协yi头, , , , , , , , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果, , , ))
局_返回 = 文本_取出中间文本 (局_返回, “r.default.createElement(c.default.RealMapNew,”, “),r.default.createElement(c.default.Timeline”, , )
返回 (局_返回)
子程序名返回值类型公开备 注
更新xx  
变量名类 型静态数组备 注
JSON文本文本型 
zyjszyJsonValue 
成员数整数型 
i整数型 
子成员数整数型 
n整数型 
列表框1.清空 ()
JSON文本 = 取JSON疫情信息 ()
zyjs.解析 (JSON文本, )
成员数 = zyjs.取成员数 (“list”)
计次循环首 (成员数, i)
列表框1.加入项目 (zyjs.取文本 (“list[”到文本 (i - 1)“].title”), )
子成员数 = zyjs.取成员数 (“list[”到文本 (i - 1)“].list”)
计次循环首 (子成员数, n)
列表框1.加入项目 (zyjs.取文本 (“list[”到文本 (i - 1)“].list[”到文本 (n - 1)“]”), )
计次循环尾 ()
计次循环尾 ()
子程序名返回值类型公开备 注
_时钟1_周期事件  
如果真 (选择框_时时更新.选中 = )
启动线程 (&更新xx, , )

子程序名返回值类型公开备 注
_选择框_时时更新_被单击  
启动线程 (&更新xx, , )
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
n整数型 
计次循环首 (列表框1.取项目数 (), n)
如果真 (寻找文本 (列表框1.取项目文本 (n - 1), 编辑框_查找内容.内容, , ) ≠ -1)
列表框1.现行选中项 = n - 1
跳出循环 ()

计次循环尾 ()


i支持库列表   支持库注释   
EThread多线程支持库


可以取市的
作者: yxl2008    时间: 2020-1-28 03:05
谢谢楼主分享,下载学习!!!!
作者: 土豆W    时间: 2020-1-28 06:55
感谢楼主6666
作者: 土豆W    时间: 2020-1-28 06:55
感谢楼主66666
作者: 灵海雪缘    时间: 2020-1-28 13:20
不错,学习了!!
作者: wojiaoa3    时间: 2020-1-28 15:13
.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 解码xx, 文本型
.局部变量 筛选, 正则表达式类
.局部变量 局_计数, 整数型
.局部变量 索引, 整数型

编码_UTF8解码 (网页_访问_对象 (“http://m.medsci.cn/wh.asp”, 0, , , , , , , , , , , , , , , , , ), 解码xx)
筛选.创建 (#匹配正则, 解码xx, , , , )
.计次循环首 (筛选.取匹配数量 (), 局_计数)
    索引 = 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 筛选.取子匹配文本 (局_计数, 1, ))
    超级列表框1.置标题 (索引, 1, 筛选.取子匹配文本 (局_计数, 2, ))
    超级列表框1.置标题 (索引, 2, 筛选.取子匹配文本 (局_计数, 3, ))
    超级列表框1.置标题 (索引, 3, 筛选.取子匹配文本 (局_计数, 4, ))
    超级列表框1.置标题 (索引, 4, 筛选.取子匹配文本 (局_计数, 5, ))
    超级列表框1.置标题 (索引, 5, 筛选.取子匹配文本 (局_计数, 6, ))
.计次循环尾 ()



下面是正则
<tr style="border-left:1px solid #F00;border-top:1px solid black"><td style="border: 1px solid black;">(.*?)</td><td style="border: 1px solid black;">(.*?)</td><td style="border: 1px solid black;">(.*?)</td><td style="border: 1px solid black;">(.*?)</td><td style="border: 1px solid black;">(.*?)</td><td style="border: 1px solid black;">(.*?)</td></tr>
作者: 郝志朋    时间: 2020-1-28 16:27
学习一下json处理
作者: 飞跃团队    时间: 2020-1-28 19:18
3Q6666666666
作者: 初学者1    时间: 2020-1-31 16:10
感谢楼主66666
作者: 陈述哦    时间: 2020-2-10 05:35
666666666666666




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4