【K:GetWebTime】获取网络时间并格式化

kucha007

函数来自此贴，仅作优化：http://bbs.mjtd.com/forum.php?mo ... %CD%F8%C2%E7&page=1

2. ;获取网页URL的网络时间,如果不成功返回Nil
   
3. ;(K:GetWebTime "https://www.baidu.com" "Date")
   
4. (defun K:GetWebTime (URL Headers / obj RtnVar)
   
5.   (if (setq obj (vlax-create-object "winhttp.winhttprequest.5.1"))
   
6.       (progn
   
7.         (setq RtnVar (vl-catch-all-apply
   
8.                       '(lambda ()
   
9.                           (vlax-invoke-method obj "open" "head" URL :vlax-false)
   
10.                           (vlax-invoke obj "send")
    
11.                           (if (= 200 (vlax-get-property obj "status"))
    
12.                               (mapcar
    
13.                                 '(lambda (h / r)
    
14.                                   (setq r (vl-catch-all-apply 'vlax-invoke-method (list obj "getresponseheader" h)))
    
15.                                   (cons h (if (not (vl-catch-all-error-p r)) (progn r)))
    
16.                                 )
    
17.                                 (list Headers)
    
18.                               )
    
19.                           )
    
20.                       )
    
21.                     )
    
22.         )
    
23.         (vlax-release-object obj)
    
24.         (if (and RtnVar (not (vl-catch-all-error-p RtnVar))) ;不是错误
    
25.             (cdar RtnVar)
    
26.         )
    
27.       )
    
28.   )
    
29. )
    
30. ;根据分隔符拆分字符串@LeeMac
    
31. (defun K:STR->Lst (STR Del / len Lst pos)
    
32.   (setq len (1+ (strlen Del)))
    
33.   (while (setq pos (vl-string-search Del STR))
    
34.     (setq Lst (cons (substr STR 1 pos) Lst)
    
35.           STR (substr STR (+ pos len))
    
36.     )
    
37.   )
    
38.   (reverse (cons STR Lst))
    
39. )
    
40. ;格式化获取到的网络时间OriSTR
    
41. (defun K:FmtWebTime (OriSTR / STRLst Wek Date Moth Year CurTim)
    
42.   (if (and OriSTR (setq STRLst (K:STR->Lst OriSTR " ")))
    
43.       (progn
    
44.         (setq Wek (strcase (substr (nth 0 STRLst) 1 3)));只要前三个字母
    
45.         (setq Date (nth 1 STRLst)
    
46.               Moth (strcase (nth 2 STRLst))
    
47.               Year (nth 3 STRLst)
    
48.         )
    
49.         (setq CurTim (nth 4 STRLst));当前时间
    
50.         (setq Moth
    
51.           (cdr
    
52.             (assoc Moth
    
53.                 (list
    
54.                   (cons "JAN" "01")
    
55.                   (cons "FEB" "02")
    
56.                   (cons "MAR" "03")
    
57.                   (cons "APR" "04")
    
58.                   (cons "MAY" "05")
    
59.                   (cons "JUN" "06")
    
60.                   (cons "JUL" "07")
    
61.                   (cons "AUG" "08")
    
62.                   (cons "SEP" "09")
    
63.                   (cons "OCT" "10")
    
64.                   (cons "NOV" "11")
    
65.                   (cons "DEC" "12")
    
66.                 )
    
67.             )
    
68.           )
    
69.         );几月份
    
70.         (setq Wek
    
71.             (cdr
    
72.               (assoc Wek
    
73.                 (list (cons "MON" "01")
    
74.                       (cons "TUE" "02")
    
75.                       (cons "WED" "03")
    
76.                       (cons "THU" "04")
    
77.                       (cons "FRI" "05")
    
78.                       (cons "SAT" "06")
    
79.                       (cons "SUN" "07")
    
80.                 )
    
81.               )
    
82.             )
    
83.         );周几
    
84.       )
    
85.   )
    
86.   (if OriSTR (progn (strcat Year Moth Date)));输出年月日
    
87. )

;获取网页URL的网络时间,如果不成功返回Nil<br /> ;(K:GetWebTime "https://www.baidu.com" "Date")<br /> (defun K:GetWebTime (URL Headers / obj RtnVar) <br />   (if (setq obj (vlax-create-object "winhttp.winhttprequest.5.1"))<br />       (progn <br />         (setq RtnVar (vl-catch-all-apply <br />                       '(lambda () <br />                           (vlax-invoke-method obj "open" "head" URL :vlax-false)<br />                           (vlax-invoke obj "send")<br />                           (if (= 200 (vlax-get-property obj "status"))<br />                               (mapcar <br />                                 '(lambda (h / r) <br />                                   (setq r (vl-catch-all-apply 'vlax-invoke-method (list obj "getresponseheader" h)))<br />                                   (cons h (if (not (vl-catch-all-error-p r)) (progn r)))<br />                                 )<br />                                 (list Headers)<br />                               )<br />                           )<br />                       )<br />                     )<br />         )<br />         (vlax-release-object obj)<br />         (if (and RtnVar (not (vl-catch-all-error-p RtnVar))) ;不是错误<br />             (cdar RtnVar)<br />         )<br />       )<br />   )<br /> )<br /> ;根据分隔符拆分字符串@LeeMac<br /> (defun K:STR->Lst (STR Del / len Lst pos) <br />   (setq len (1+ (strlen Del)))<br />   (while (setq pos (vl-string-search Del STR)) <br />     (setq Lst (cons (substr STR 1 pos) Lst)<br />           STR (substr STR (+ pos len))<br />     )<br />   )<br />   (reverse (cons STR Lst))<br /> )<br /> ;格式化获取到的网络时间OriSTR<br /> (defun K:FmtWebTime (OriSTR / STRLst Wek Date Moth Year CurTim) <br />   (if (and OriSTR (setq STRLst (K:STR->Lst OriSTR " ")))<br />       (progn <br />         (setq Wek (strcase (substr (nth 0 STRLst) 1 3)));只要前三个字母<br />         (setq Date (nth 1 STRLst)<br />               Moth (strcase (nth 2 STRLst))<br />               Year (nth 3 STRLst)<br />         )<br />         (setq CurTim (nth 4 STRLst));当前时间<br />         (setq Moth<br />           (cdr <br />             (assoc Moth<br />                 (list <br />                   (cons "JAN" "01")<br />                   (cons "FEB" "02")<br />                   (cons "MAR" "03")<br />                   (cons "APR" "04")<br />                   (cons "MAY" "05")<br />                   (cons "JUN" "06")<br />                   (cons "JUL" "07")<br />                   (cons "AUG" "08")<br />                   (cons "SEP" "09")<br />                   (cons "OCT" "10")<br />                   (cons "NOV" "11")<br />                   (cons "DEC" "12")<br />                 )<br />             )<br />           )<br />         );几月份<br />         (setq Wek<br />             (cdr <br />               (assoc Wek<br />                 (list (cons "MON" "01")<br />                       (cons "TUE" "02")<br />                       (cons "WED" "03")<br />                       (cons "THU" "04")<br />                       (cons "FRI" "05")<br />                       (cons "SAT" "06")<br />                       (cons "SUN" "07")<br />                 )<br />               )<br />             )<br />         );周几<br />       )<br />   )<br />   (if OriSTR (progn (strcat Year Moth Date)));输出年月日<br /> )

用法：

1. (K:FmtWebTime (K:GetWebTime "https://www.baidu.com" "Date"))

(K:FmtWebTime (K:GetWebTime "https://www.baidu.com" "Date"))

magicheno

感谢大佬分享

kzd2004

怎么用啊？

aws

插件加密的一种方式

z312144636

感谢大佬分享