.版本 2 .支持库 internet .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 显示时间 () 时钟1.时钟周期 ＝ 1000 .子程序 _时钟1_周期事件 标签1.标题 ＝ 到文本 (取现行时间 ()) 显示时间 () .子程序 取北京时间, 日期时间型, , By:yiqieshuenqiziran .局部变量 局_返回数据, 文本型 局_返回数据 ＝ 到文本 (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) 返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置)) .如果真结束 .如果真结束 返回 (“”)