设置系统与淘宝时间同步易语言源码

设置系统与淘宝时间同步易语言源码

@热水哥

.版本 2
.支持库 internet

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

显示时间 ()
时钟1.时钟周期 ＝ 1000

.子程序 _时钟1_周期事件

标签1.标题 ＝ 到文本 (取现行时间 ())
显示时间 ()

.子程序 取北京时间, 日期时间型, , By:yiqieshuenqiziran
.局部变量 局_返回数据, 文本型

局_返回数据 ＝ 到文本 (HTTP读文件 (“http://api.m.taobao.com/rest/api3.do?api=mtop.common.getTimestamp”))
返回 (增减时间 ([1970年1月1日8时], #秒, 到数值 (文本_取出中间文本 (局_返回数据, #常量1, #常量2, , )) ÷ 1000))

.子程序 显示时间

编辑框1.内容 ＝ 到文本 (取北京时间 ())
编辑框2.内容 ＝ 到文本 (取现行时间 ())

.子程序 _按钮1_被单击

置现行时间 (取北京时间 ())
显示时间 ()

.子程序 文本_取出中间文本, 文本型, 公开, 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”，
.参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345
.参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："<font color="#引号red#引号">"
.参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："<font color="#引号red#引号">"
.参数 起始搜寻位置, 整数型, 可空, 可空,这里是指搜寻 参数二 前面文本 的开始位置
.参数 是否不区分大小写, 逻辑型, 可空, 为真不区分大小写，为假区分。
.局部变量 局_前面文本位置, 整数型
.局部变量 局_后面文本位置, 整数型
.局部变量 局_前面文本, 文本型
.局部变量 局_后面文本, 文本型

局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
局_前面文本位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写)
.如果真 (局_前面文本位置 ≠ -1)
    局_前面文本位置 ＝ 局_前面文本位置 ＋ 取文本长度 (局_前面文本)
    局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)
    .如果真 (局_后面文本位置 ≠ -1)
        返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))
    .如果真结束

.如果真结束
返回 (“”)