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

admin

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

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

复制代码