2024年4月19日发(作者：)
.版本 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.标题 ＝ “系统时间：” ＋ 到文本 (取现行时间 ())
发布者：admin，转转请注明出处：http://www.yc00.com/web/1713459125a2253049.html
评论列表（0条）