yang686526

判断字符串中字母
www.dimcax.com
判断字符串中字母
(defun judge (string / i table len stratom str-ascii)
(setq i 0
table '()
len (strlen string)
)
(while (< i len)
(setq str-ascii (vl-string-elt string i))
(if (or
(and (>= str-ascii 6) (<= str-ascii 90))
(and (>= str-ascii 97) (<= str-ascii 122))
)
(progn
(setq ascii-str (chr str-ascii))
(setq table (cons ascii-str table))
)
)
(setq i (1+ i))
)
(setq table (reverse table))
table
)
判读输入的字符串中的字母，并将这些字母依次添加到表table中，返回该表
progress every day!!!