[LISP函数]：判断字符串全是数字（或字母）的函数

tengteb

(defun IsNumeric (str / tmp)
  (setq tmp (vl-string->list str))
  (vl-every '(lambda (x) (and (<= 48 x) (<= x 57))) tmp)
)

(defun IsAlphabetic (str / tmp)
  (setq tmp (vl-string->list (strcase str)))
  (vl-every '(lambda (x) (and (<= 65 x) (<= x 90))) tmp)
)

434939575

这个好用。

yxianfo

判断字符串全是数字（或字母）的函数
有待试试看。

newer

论坛提供过的使用正则表达式的更方便和高效。

langke52

(wcmatch txt_zd "*@*" )  T  含字母
(wcmatch txt_zd "*#*" )  T  含数字
(wcmatch txt_zd "*.*" )  T   含非字母或数字

三个联合判断  T NIL NIL 纯字母

WhoCanSay

判断全是数字
(apply 'and (mapcar 'distof '("A" "2.3")))

newer

WhoCanSay 发表于 2016-6-28 08:17
判断全是数字
(apply 'and (mapcar 'distof '("A" "2.3")))

改下vl-some更高效些

WhoCanSay

newer 发表于 2016-6-28 11:48
改下vl-some更高效些

好像不同呀，这个函数倒是不错

Command: (vl-some 'distof '("3.2" "5"))
3.2

Command: (vl-some 'distof '("3.2" "5A"))
3.2

Command: (vl-some 'distof '("3.2A" "5"))
5.0

Command: (vl-some 'distof '("3.2A" "5A"))
nil

newer

WhoCanSay 发表于 2016-6-28 14:28
好像不同呀，这个函数倒是不错

Command: (vl-some 'distof '("3.2" "5"))

你要是对表操作， 这个函数遇到第一个满足条件的就退出了，不继续了，所以效率要高。