（XD::String:IsNum）判断一个字符串是否是纯数字

Lispboy · 发表于 2013-8-2 21:34:55

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

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

×

本帖最后由 Lispboy 于 2013-8-3 22:28 编辑

;|
判断字符串是否是纯数字，支持负数
参数：
str --- 字符串
返回值：
表(字符串匹配模式串)
否 NIL
|;
(defun XD::String:IsNum (str / ret)
(if (setq match "^[-|+]?([0-9]+\.[0-9]+)|[-|+]?([0-9]+\.)|[-|+]?(\.[0-9]+)|[-|+]?(\[0-9]+)$"
ret (XD::String:RegExpS match str "")
)
(list (car ret) match)
)
)

newer · 发表于 2013-8-4 16:48:58

本帖最后由 newer 于 2013-8-4 17:54 编辑

wowan1314 发表于 2013-8-4 15:10
你测试下"A0"
好像我原来写的就存在这个情况！！

葛老，我看咱就设定个大多数人都习惯的

不带符号（CAD文字中基本没负数， -做连字符用吧）
有小数点前后都必须有数字，否则按字符处理，比如：A. 句号 A.1 连字符

的规则吧。

这样好像：(xd::string:regexps "^(\\d+)(\.\\d+)?$" "1.2" "") 就可以了。

Free-Lancer · 发表于 2013-8-3 07:28:05

distof不能判断1
e6？来自: Android客户端

Free-Lancer · 发表于 2013-8-3 15:27:45

本帖最后由 Free-Lancer 于 2013-8-3 15:28 编辑

整复杂了
_$ (distof "1e99")
1.0e+099
_$ (distof "1e3")
1000.0
_$ (distof "1e3a")
nil
_$ (distof ".33")
0.33
_$ (distof "a.33")
nil
_$ (distof "1.33")
1.33
_$ (distof "-1.33")
-1.33
_$ (distof "-.33")
-0.33
_$ (distof "1e-1")
0.1
_$

wowan1314 · 发表于 2013-8-3 15:49:31

命令: (XD::String:IsNum "-")
("-" "^[0-9.-]+$")

Lispboy · 发表于 2013-8-3 16:58:46

wowan1314 发表于 2013-8-3 15:49
命令: (XD::String:IsNum "-")
("-" "^[0-9.-]+$")

葛老，试试新的写法，帮测试下

(defun XD::String:IsNum (str / ret)
(if (setq ret (XD::String:RegExpS "^-?([0-9]+\.[0-9]+$)" str ""))
(list (car ret) "^-?([0-9]+\.[0-9]+$)")
(if (setq ret (XD::String:RegExpS "^-?[0-9]+$" str ""))
(list (car ret) "^-?[0-9]+$")
)
)
)

命令: (xd::string:isnum "-")
nil

命令: (xd::string:isnum "2.01")
("2.01" "^-?([0-9]+.[0-9]+$)")

命令: (xd::string:isnum "-2.0")
("-2.0" "^-?([0-9]+.[0-9]+$)")

命令: (xd::string:isnum "-")
nil

命令: (xd::string:isnum "-2.")
nil

Free-Lancer · 发表于 2013-8-3 17:57:54

-2.算数字啊来自: Android客户端

wowan1314 · 发表于 2013-8-3 18:26:41

本帖最后由 wowan1314 于 2013-8-3 18:31 编辑

我觉的distof 来判断就不错啊。这个函数有什么不适用的情况吗？

.5应该得算是数字吧？
命令: (XD::String:IsNum ".5")
nil
命令: (XD::String:IsNum "+2")
nil

牢固 · 发表于 2013-8-3 18:28:39

试试这个：

;;; (gxl-strIsNum str) 确定字符串是否为数字
(defun gxl-strIsNum (str)
(numberp (VL-CATCH-ALL-APPLY
'read
(list (cond
((= "." (substr str 1 1))
(strcat "0" str)
)
((and
(= "-." (substr str 1 2))
(> (strlen str) 2)
)
(strcat "-0" (substr str 2))
)
((and
(= "+." (substr str 1 2))
(> (strlen str) 2)
)
(strcat "+0" (substr str 2))
)
(t
str
)
)
)
)
)
)

wowan1314 · 发表于 2013-8-3 18:37:23

牢固发表于 2013-8-3 18:28
试试这个：

命令: (gxl-strIsNum "12 A")
T

牢固 · 发表于 2013-8-3 21:14:52

wowan1314 发表于 2013-8-3 18:37
命令: (gxl-strIsNum "12 A")
T

改了下，将空格例外掉：

(defun gxl-strIsNum (str)
(and (not (VL-STRING-SEARCH " " str))
(numberp (VL-CATCH-ALL-APPLY
'read
(list (cond
((= "." (substr str 1 1))
(strcat "0" str)
)
((and
(= "-." (substr str 1 2))
(> (strlen str) 2)
)
(strcat "-0" (substr str 2))
)
((and
(= "+." (substr str 1 2))
(> (strlen str) 2)
)
(strcat "+0" (substr str 2))
)
(t
str
)
)
)
)
)
)
)

wowan1314 · 发表于 2013-8-3 21:28:21

牢固发表于 2013-8-3 21:14
改了下，将空格例外掉：

命令: (gxl-strIsNum "12\na")
T

Lispboy · 发表于 2013-8-3 22:29:16

wowan1314 发表于 2013-8-3 21:28
命令: (gxl-strIsNum "12\na")
T

修改了匹配串，看下一楼的函数，看看还有没考虑到的情况没?
命令: (xd::string:isnum "2.")
("2." "^[-|+]?([0-9]+.[0-9]+)|[-|+]?([0-9]+.)|[-|+]?(.[0-9]+)|[-|+]?([0-9]+)$")

命令: (xd::string:isnum ".2")
(".2" "^[-|+]?([0-9]+.[0-9]+)|[-|+]?([0-9]+.)|[-|+]?(.[0-9]+)|[-|+]?([0-9]+)$")

命令: (xd::string:isnum "+2")
("+2" "^[-|+]?([0-9]+.[0-9]+)|[-|+]?([0-9]+.)|[-|+]?(.[0-9]+)|[-|+]?([0-9]+)$")

命令: (xd::string:isnum "-2.")
("-2." "^[-|+]?([0-9]+.[0-9]+)|[-|+]?([0-9]+.)|[-|+]?(.[0-9]+)|[-|+]?([0-9]+)$")

命令: (xd::string:isnum "-")
nil

命令: (xd::string:isnum "+")
nil

命令: (xd::string:isnum "+1.")
("+1." "^[-|+]?([0-9]+.[0-9]+)|[-|+]?([0-9]+.)|[-|+]?(.[0-9]+)|[-|+]?([0-9]+)$")

wowan1314 · 发表于 2013-8-3 22:45:16

Lispboy 发表于 2013-8-3 22:29
修改了匹配串，看下一楼的函数，看看还有没考虑到的情况没?
命令: (xd::string:isnum "2.")
("2." "^[- ...

命令: (t4 ".2.")
(".2" "^[-|+]?([0-9]+.[0-9]+)|[-|+]?([0-9]+.)|[-|+]?(.[0-9]+)|[-|+]?([0-9]+)$")

楼主为何不采用distof函数呢？？

wowan1314 · 发表于 2013-8-3 22:59:56

Lispboy 发表于 2013-8-3 22:29
修改了匹配串，看下一楼的函数，看看还有没考虑到的情况没?
命令: (xd::string:isnum "2.")
("2." "^[- ...

试试我写的？！

(defun t4 (str / ret match ret1 match1)
(if
(and
(setq match "^[+|-]?[0-9]*(\.)?[0-9]*$"
ret (xd::string:regexps match str "")
)
(setq match1 "[0-9]"
ret1 (xd::string:regexps match1 str "")
)
)
t nil
)
)

Lispboy · 发表于 2013-8-3 23:11:58

wowan1314 发表于 2013-8-3 22:45
命令: (t4 ".2.")
(".2" "^[-|+]?([0-9]+.[0-9]+)|[-|+]?([0-9]+.)|[-|+]?(.[0-9]+)|[-|+]?([0-9]+)$")
...

这个是个基础，用哪个其实达到目的就行，主要是用这个匹配串去做别的，比如组合文字的替换什么的，正则的替换是强大的。distof只是一个判断。

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

[字符串] （XD::String:IsNum）判断一个字符串是否是纯数字

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

相关帖子

点评

点评

点评

评分

点评

点评

点评

点评

点评