简单获取北京时间

ltais · 发表于 2010-11-18 13:57:27

.版本 2
.支持库 RegEx
.支持库 internet
.程序集窗口程序集1
.子程序 __启动窗口_创建完毕
取北京时间 ()
.子程序取北京时间
.局部变量返回数据, 文本型
.局部变量正则表达式, 正则表达式
.局部变量搜索结果, 搜索结果, , "0"
.局部变量临时文本, 文本型
.局部变量分割文本, 文本型, , "0"
.局部变量计次, 整数型
返回数据＝到文本 (HTTP读文件 (“http://www.beijing-time.org/time.asp”))
正则表达式.创建 (“[0-9;]”, )
搜索结果＝正则表达式.搜索全部 (返回数据)
.计次循环首 (取数组成员数 (搜索结果), 计次)
临时文本＝临时文本＋搜索结果 [计次].取匹配文本 (返回数据, )
.计次循环尾 ()
分割文本＝分割文本 (临时文本, “;”, )
信息框 (分割文本 [2] ＋ “年” ＋分割文本 [3] ＋ “月” ＋分割文本 [4] ＋ “日” ＋分割文本 [6] ＋ “时” ＋分割文本 [7] ＋ “分” ＋分割文本 [8] ＋ “秒”, 0, )

天津饭 · 发表于 2010-11-21 10:03:26

很不错，支持了！

漆黑丶丶 · 发表于 2010-12-1 21:45:47

路过回复

qq2278322 · 发表于 2010-12-31 23:47:51

是什么好源码看看额！取外网IP的差不多也是这样

硝烟 · 发表于 2011-2-13 11:09:54

用那个取现行时间不是一样吗

大头佛 · 发表于 2011-8-20 13:02:33

学习，顶下！{:3_232:}

封印 · 发表于 2011-8-21 18:25:09

支持下吧！！

浩瀚sky · 发表于 2011-8-22 12:25:57

楼主辛苦了，十分感谢

易魂 · 发表于 2011-8-23 18:27:40

上来学习一下

		自动登录	找回密码
密码			注册

[易语言软件开源] 简单获取北京时间

评分