[LISP程序]：请问如何判断一字符串是否为纯数字字符串？

llhok · 发表于 2006-4-24 15:00:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如提

xiao_longxin · 发表于 2006-4-24 15:05:22

检测每个字符的ASC码在数字区间内

xyp1964 · 发表于 2006-4-24 16:50:27

distof

xiao_longxin · 发表于 2006-4-24 17:37:54

最初由 xyp1964 发布
[B]distof [/B]

楼主所说的并不是类型转换

王咣生 · 发表于 2006-4-24 18:24:42

(defun myerr (s)
  (princ)
)

(defun c:test ( / $orr str)
  (setq $orr *error* *error* myerr)
  (initget 7)
  (setq str (getstring "\n输入字符串:"))

  (setq i 1 bc t)
  (while (/= (setq ch (substr str i 1)) "")
(if (not (and (>= (ascii ch) 48)(<= (ascii ch) 57)))
   (setq bc nil)
)
(setq i (1+ i))
  );while

  (if bc
(alert "是纯数字字符串")
(alert "包含非数字字符")
  )

  (setq *error* $orr)
  (princ)
)

xyp1964 · 发表于 2006-4-24 20:56:49

最初由 xiao_longxin 发布
[B]

楼主所说的并不是类型转换 [/B]

123.456是否属于纯数字字符串？

雪山飞狐(lzh) · 发表于 2006-4-24 20:59:06

先转化为数字，再转化为字符，如果相等就是

xyp1964 · 发表于 2006-4-24 21:08:11

最初由王咣生发布
[B](defun myerr (s)
  (princ)
)

(defun c:test ( / $orr str)
  (setq $orr *error* *error* myerr)
  (initget 7)
  (setq str (getstring "\n输入字符串:"))

  (setq i 1 bc t)
  (while (/= (setq ch ... [/B]

[FONT=courier new](defun c:test ()
(initget 7)
(setq str (getstring "\n输入字符串:"))
(if (and (distof str)
(= (strlen str)
(strlen (rtos (distof str) 2 0))
)
)
(alert "是纯数字字符串")
(alert "包含非数字字符")
)
(princ)
)[/FONT]

Underway · 发表于 2006-4-25 11:09:27

(defun ?strAllNump (str)
  (setq nums (vl-string->list ".0123456789"))
  ;; (setq nums (vl-string->list "0123456789"))  ; if removes "."
  (not
(vl-remove-if
   '(lambda (x) (member x nums))
   (vl-string->list Str)
)
  )
)

Command: (?strAllNump "A123.456")
nil

Command: (?strAllNump "123M.456")
nil

Command: (?strAllNump "123.456Z")
nil

Command: (?strAllNump "123.456")
T

雨箭风刀 · 发表于 2006-4-25 14:13:00

楼上的试试 "124.23.23"

Underway · 发表于 2006-4-25 14:49:14

如果您有这类字串
相信您会有办法的

xyp1964 · 发表于 2006-4-25 16:19:37

为什么不用 distof 判断？！

雨箭风刀 · 发表于 2006-4-26 00:22:21

同意楼上，用distof就可以了

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：请问如何判断一字符串是否为纯数字字符串？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子