疫情监控软件+实时更新

HackDark

疫情实时监控软件，不是原创是看着大神到源码做了点细节优化而已。。。添加了个实时更新xx到功能。。。附带精易8.0.0到模块

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
str	文本型

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
数组	文本型		0
循环	整数型
索引	整数型
文本1	文本型

初始化省份信息 ()
组合框1.现行选中项 ＝ 0
取监控xx (组合框1.内容)

子程序名	返回值类型	公开	备 注
初始化省份信息

变量名	类 型	静态	数组	备 注
全国xx	文本型
正则表达式	正则表达式类
循环次数	整数型

str ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“http://sa.sogou.com/new-weball/page/sgs/epidemic?type_page=WEB”, 0, , )))
全国xx ＝ 文本_取出中间文本 (str, #地区前, #地区后, , )
正则表达式.创建 ( #省正则规则, 全国xx, , , , )
计次循环首 (正则表达式.取匹配数量 (), 循环次数)
组合框1.加入项目 (正则表达式.取子匹配文本 (循环次数, 1, ), )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

判断 (超级列表框1.取列标题 (0) ＝ “省份”)
返回 ()


超级列表框1.置列标题 (0, “省份”)
超级列表框1.全部删除 ()

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

取监控xx (组合框1.内容)

子程序名	返回值类型	公开	备 注
取监控xx
参数名	类 型	参考	可空	数组	备 注
省份	文本型

变量名	类 型	静态	数组	备 注
地区信息	文本型
正则	正则表达式类
正则1	正则表达式类
循环次数	整数型
N	整数型
索引	整数型
位置信息	双精度小数型

str ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“http://sa.sogou.com/new-weball/page/sgs/epidemic?type_page=WEB”, 0, , )))
窗口1.标题 ＝ “疫情实时监控   获取时间：” ＋ 文本_取出中间文本 (str, #常量3, #常量4, , )
地区信息 ＝ 文本_取出中间文本 (str, #地区前, #地区后, , )
正则.创建 ( #省正则, 地区信息, )
计次循环首 (正则.取匹配数量 (), 循环次数)
判断 (寻找文本 (正则.取子匹配文本 (循环次数, 1, ), 省份, , 假) ≠ -1)
正则1.创建 ( #常量5, 正则.取子匹配文本 (循环次数, 1))
超级列表框1.置列标题 (0, 文本_取出中间文本 (正则.取子匹配文本 (循环次数, 1), #常量7, #常量6, , ) ＋ “所属市”)
超级列表框1.全部删除 ()
计次循环首 (正则1.取匹配数量 (), N)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 正则1.取子匹配文本 (N, 1, ))
判断 (正则1.取子匹配文本 (N, 1, ) ＝ 省份)
位置信息 ＝ N － 1


超级列表框1.置标题 (索引, 1, 正则1.取子匹配文本 (N, 2, ))
超级列表框1.置标题 (索引, 2, 正则1.取子匹配文本 (N, 3, ))
超级列表框1.置标题 (索引, 3, 正则1.取子匹配文本 (N, 4, ))
超级列表框1.置标题 (索引, 4, 正则1.取子匹配文本 (N, 5, ))
超级列表框1.现行选中项 ＝ 位置信息
' ’跳出循环 ()
计次循环尾 ()



计次循环尾 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

取监控xx (组合框1.内容)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 str, 文本型<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 循环, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 文本1, 文本型<br /> <br /> 初始化省份信息 ()<br /> 组合框1.现行选中项 ＝ 0<br /> 取监控xx (组合框1.内容)<br /> <br /> .子程序 初始化省份信息<br /> .局部变量 全国xx, 文本型<br /> .局部变量 正则表达式, 正则表达式类<br /> .局部变量 循环次数, 整数型<br /> <br /> str ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“http://sa.sogou.com/new-weball/page/sgs/epidemic?type_page=WEB”, 0, , )))<br /> 全国xx ＝ 文本_取出中间文本 (str, #地区前, #地区后, , )<br /> 正则表达式.创建 (#省正则规则, 全国xx, , , , )<br /> .计次循环首 (正则表达式.取匹配数量 (), 循环次数)<br />     组合框1.加入项目 (正则表达式.取子匹配文本 (循环次数, 1, ), )<br /> .计次循环尾 ()<br /> <br /> .子程序 _超级列表框1_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .判断开始 (超级列表框1.取列标题 (0) ＝ “省份”)<br />     返回 ()<br /> .默认<br /> <br /> .判断结束<br /> 超级列表框1.置列标题 (0, “省份”)<br /> 超级列表框1.全部删除 ()<br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> 取监控xx (组合框1.内容)<br /> <br /> .子程序 取监控xx<br /> .参数 省份, 文本型<br /> .局部变量 地区信息, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 正则1, 正则表达式类<br /> .局部变量 循环次数, 整数型<br /> .局部变量 N, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 位置信息, 双精度小数型<br /> <br /> str ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“http://sa.sogou.com/new-weball/page/sgs/epidemic?type_page=WEB”, 0, , )))<br /> 窗口1.标题 ＝ “疫情实时监控   获取时间：” ＋ 文本_取出中间文本 (str, #常量3, #常量4, , )<br /> 地区信息 ＝ 文本_取出中间文本 (str, #地区前, #地区后, , )<br /> 正则.创建 (#省正则, 地区信息, )<br /> .计次循环首 (正则.取匹配数量 (), 循环次数)<br />     .判断开始 (寻找文本 (正则.取子匹配文本 (循环次数, 1, ), 省份, , 假) ≠ -1)<br /> <br />         正则1.创建 (#常量5, 正则.取子匹配文本 (循环次数, 1))<br />         超级列表框1.置列标题 (0, 文本_取出中间文本 (正则.取子匹配文本 (循环次数, 1), #常量7, #常量6, , ) ＋ “所属市”)<br />         超级列表框1.全部删除 ()<br />         .计次循环首 (正则1.取匹配数量 (), N)<br /> <br />             索引 ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br />             超级列表框1.置标题 (索引, 0, 正则1.取子匹配文本 (N, 1, ))<br />             .判断开始 (正则1.取子匹配文本 (N, 1, ) ＝ 省份)<br />                 位置信息 ＝ N － 1<br />             .默认<br /> <br />             .判断结束<br />             超级列表框1.置标题 (索引, 1, 正则1.取子匹配文本 (N, 2, ))<br />             超级列表框1.置标题 (索引, 2, 正则1.取子匹配文本 (N, 3, ))<br />             超级列表框1.置标题 (索引, 3, 正则1.取子匹配文本 (N, 4, ))<br />             超级列表框1.置标题 (索引, 4, 正则1.取子匹配文本 (N, 5, ))<br />             超级列表框1.现行选中项 ＝ 位置信息<br />             ' ’跳出循环 ()<br />         .计次循环尾 ()<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 取监控xx (组合框1.内容)

xue9613

谢谢分享

fanjim

可以的，学习了

晚放

分析、、、、、、、、、、、

li110

学习下 谢谢楼主

wy19850609

谢谢分享支持一下

308228

谢谢.............

zhoujie123800

牛逼

nj0990

想要啊，下载啊

smy555

支持一下 感谢开源