admin 管理员组

文章数量: 1086019


2024年3月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.标题 ＝ “系统时间：” ＋ 到文本 (取现行时间 ())


本文标签： 时间 文本 时钟 浮点数 实数

版权声明：本文标题：易语言取网络时间源码介绍 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1710862568a576844.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。