易语言取网络时间
.版本 2
.支持库 RegEx
.支持库 internet
.程序集 窗口程序集1
.程序集变量 现在时间, 日期时间型
.子程序 获取时间, 日期时间型
.局部变量 ym, 文本型
.局部变量 o
.局部变量 t
.局部变量 time, 文本型
.局部变量 正则表达式, 正则表达式
.局部变量 网络时间, 日期时间型
ym , 到文本 (HTTP读文件 (“;))
正则表达式.创建 (“[0-9]{4}年[0-9]{1,2}月[0-9]{1,2}日”, ) 正则表达式.搜索 (ym, 1, )
处理事件 ()
time , time , 正则表达式.搜索 (ym, 1, ).取匹配文本 (ym, )
o , 寻找文本 (ym, “var hrs = ”, , 假) , 10 t , 寻找文本 (ym, “;”, o, 假)
time , time , 取文本中间 (ym, o, t , o) , “时” o , 寻找文本 (ym, “var min = ”, , 假) , 10 t , 寻找文本 (ym, “;”, o, 假)
time , time , 取文本中间 (ym, o, t , o) , “分” o , 寻找文本 (ym, “var sec = ”, , 假) , 10 t , 寻找文本 (ym, “;”, o, 假)
time , time , 取文本中间 (ym, o, t , o) , “秒” 返回 (到时间 (time))
.子程序 __启动窗口_创建完毕
现在时间 , 获取时间 ()
现在时间 , 增减时间 (现在时间, 8, 1) 时钟1.时钟周期 , 1000
.子程序 _时钟1_周期事件
处理事件 ()
现在时间 , 增减时间 (现在时间, 8, 1)
标签1.标
, “网络时间:” , 到文本 (现在时间)
标签2.标题 , “系统时间:” , 到文本 (取现行时间 ())