帮忙修正一下

惜惜2

2.           (setq E1 "2024-10-17")
   
3.           (setq E3 E1)
   
4.           (if E3
   
5.             (progn
   
6.               (setq E3E "\\d{4}-\\d{2}-\\d{2}")
   
7.               (setq E4E "\\d{4}/\\d{2}/\\d{2}")
   
8.               (if (or (not (wcmatch E3 E3E))
   
9.                       (not (wcmatch E3 E4E)))
   
10.                 (setq E4 (strcat (substr E3 2 4)
    
11.                                  "-"
    
12.                                  (substr E3 6 2)
    
13.                                  "-"
    
14.                                  (substr E3 8 2)))
    
15.                 (setq E4 nil)))
    
16.           )

          (setq E1 "2024-10-17")<br />           (setq E3 E1)<br />           (if E3<br />             (progn<br />               (setq E3E "\\d{4}-\\d{2}-\\d{2}")<br />               (setq E4E "\\d{4}/\\d{2}/\\d{2}")<br />               (if (or (not (wcmatch E3 E3E))<br />                       (not (wcmatch E3 E4E)))<br />                 (setq E4 (strcat (substr E3 2 4)<br />                                  "-"<br />                                  (substr E3 6 2)<br />                                  "-"<br />                                  (substr E3 8 2)))<br />                 (setq E4 nil)))<br />           )

正常E4返回的值应该是空才对，前面判定结果应该是相等才对，但是实际运行了后面取值的代码，需求是不等才会运行取值的代码，是不是正则表达式那里有问题？

13605

wcmatch 可以用正则吗？好像是用通配符

统一网名

• (defun c:t6 (/ current-date format1 format2)
•   ;; 获取当前日期
•   (setq current-date "2024-10-17")
•   ;; 定义两种可能的日期格式
•   (setq format1 "????-??-??" )
•   (setq format2 "????/??/??" )
•   ;; 判断当前日期是否符合其中一种格式
•   (if (or (wcmatch current-date format1)(wcmatch current-date format2))
•     (princ "ok")
•     (princ "no")
•   )
• )
  

看一下是否有帮助

惜惜2

13605 发表于 2024-10-17 18:12
wcmatch 可以用正则吗？好像是用通配符

通配符可以  感谢

惜惜2

统一网名 发表于 2024-10-17 19:53

(defun c:t6 (/ current-date format1 format2)

  ;; 获取当前日期

  (setq current-date "20 ...

可以了，感谢，和楼上一样通配符的方法