判断字符串是否不包含数字

marting

1. (defun HasNoNumber-p (str)
   
2.   (not
   
3.     (vl-some '(lambda (no) (< 47 no 57)) (vl-string->list str))
   
4.   )
   
5. )
   
6. 
   

(defun HasNoNumber-p (str)<br />   (not<br />     (vl-some '(lambda (no) (< 47 no 57)) (vl-string->list str))<br />   )<br /> )<br /> <br />

命令: (HASNONUMBER-P "faf")
T

命令: (HASNONUMBER-P "3faf")
nil

命令: (HASNONUMBER-P ".faf")
T

命令: (HASNONUMBER-P "3.4faf")
nil

炫翔

直接用 distof 好像也可行

炫翔

distof  判断是否数字