疫情监控软件+实时更新

HackDark · 发表于 2020-2-8 16:11:32

疫情实时监控软件，不是原创是看着大神到源码做了点细节优化而已。。。添加了个实时更新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.内容)