求教一个格式的转换

wgij007

这个是网络的时间，Fri, 04 Feb 2022 13:02:08 GMT，能抽取到这种格式吗，20220204 ，其他不要。感谢

和尚777

(setq e(read(strcat "(" "Fri, 04 Feb 2022 13:02:08 GMT" """)")))
(if(wcmatch "FEB" (vl-prin1-to-string(caddr e)))(setq a "02"))
(if(= 1(length(list(cadr e))))
        (setq b (strcat "0"(vl-prin1-to-string(cadr e))))
        (setq b (vl-prin1-to-string(cadr e)))
)
(strcat(vl-prin1-to-string(cadddr e))a b)

yxp

可以，用 DWX 调用 Windows API

wgij007

和尚777 发表于 2022-2-5 14:45
(setq e(read(strcat "(" "Fri, 04 Feb 2022 13:02:08 GMT" """)")))
(if(wcmatch "FEB" (vl-prin1-to-str ...

有办法，一年里的月份都可以转换吗

aihuyujian

(cond
((wcmatch "JAN" (vl-prin1-to-string (caddr e))) (setq a "01"))
((wcmatch "FEB" (vl-prin1-to-string (caddr e))) (setq a "02"))
...
)
把十二个月份补齐就行

wgij007

aihuyujian 发表于 2022-2-6 18:41
(cond
((wcmatch "JAN" (vl-prin1-to-string (caddr e))) (setq a "01"))
((wcmatch "FEB" (vl-prin1-to- ...

非常感谢多谢。

流氓兔

yxp 发表于 2022-2-4 23:28
可以，用 DWX 调用 Windows API

YXP老大，来个案例

yxp

流氓兔 发表于 2022-2-14 21:43
YXP老大，来个案例

http://bbs.mjtd.com/thread-184770-1-1.html

来了。