|
楼主 |
发表于 2019-5-31 13:32:18
|
显示全部楼层
辽宁省大连市
变量名 | 类 型 | 静态 | 数组 | 备 注 | t | 双精度小数型 | | | http | WinHttpW | | | 日期文本 | 文本型 | | |
日期文本 = 功能_网页访问 ()返回 (取文本左边 (日期文本, 16 ) + “星期” + 取文本右边 (日期文本, 1 )) 变量名 | 类 型 | 静态 | 数组 | 备 注 | 局_网址 | 文本型 | | | 局_方式 | 整数型 | | | 局_结果 | 字节集 | | | 局_返回 | 文本型 | | | 局_时间数组 | 文本型 | | 0 | 局_i | 整数型 | | | 局_新时间 | 文本型 | | | 局_北京时间 | 文本型 | | | 局_星期数 | 文本型 | | |
局_网址 = “http://time1903.beijing-time.org/time.asp”局_方式 = 0 局_结果 = 网页_访问 (局_网址, 局_方式 )局_返回 = 到文本 (编码_编码转换对象 (局_结果, , , )) 文本_取中间_批量 (局_返回, “=”, “;”, 局_时间数组, , , , , , , )局_i = 2 判断循环首 (取数组成员数 (局_时间数组 ) > 局_i )处理事件 ()判断 (取文本长度 (局_时间数组 [局_i ]) < 2 )局_新时间 = “0” + 到文本 (局_时间数组 [局_i ])局_新时间 = 局_时间数组 [局_i ]判断 (局_i = 2 )局_北京时间 = 局_新时间 判断 (局_i = 5 )局_星期数 = 局_时间数组 [局_i ]局_北京时间 = 局_北京时间 + “-” + 局_新时间 局_i = 局_i + 1判断循环尾 ()返回 (局_北京时间 + “|” + 局_星期数 )变量名 | 类 型 | 静态 | 数组 | 备 注 | http | WinHttpW | | |
http. Auto ()http. Open (“HEAD”, “http://time1903.beijing-time.org/time.asp”)http. Send (, , ) 返回 (http. GetResponseHeader (“Date”)) 变量名 | 类 型 | 静态 | 数组 | 备 注 | 时间 | 文本型 | | | L1 | 整数型 | | | L2 | 整数型 | | |
时间 = 到文本 (HTTP读文件 (“http://quan.suning.com/getSysTime.do”)) 如果真 (时间 = “”)返回 (取现行时间 ()) L1 = 寻找文本 (时间, #引号 + “:” + #引号, , 假) + 3L2 = 寻找文本 (时间, #引号, L1, 假)返回 (到时间 (取文本中间 (时间, L1, L2 - L1 )) )时间字节集 = HTTP读文件 (“http://quan.suning.com/getSysTime.do”)判断 (时间字节集 = { })返回 (“”)返回 (取文本左边 (取文本右边 (到文本 (时间字节集 ), 16 ), 14 ))
墨晨2借用了易友yppy988 提供的网站获取信息。效率都一样了。只能看截取字符串的效率了。用json解析不知道会不会快一些。
|
-
|