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

Lispboy

wowan1314 发表于 2013-8-3 22:59
试试我写的？！

很好，准备用你这个了。

另外：

(setq match1 "[0-9]"
                ret1 (xd::string:regexps match1 str "")
            )


这个是考虑的什么情况？

wowan1314

Lispboy 发表于 2013-8-3 23:22
很好，准备用你这个了。

另外：

得保证里面有个数字。 不然“-.”“+” “-” “.”的情况判断不了.

Lispboy

wowan1314 发表于 2013-8-3 23:32
得保证里面有个数字。 不然“-.”“+” “-” “.”的情况判断不了.

你看看能给组合到一个匹配串里面不？ 要不以后用替换函数，匹配串容易造成误伤了。我开始写的，就是把每个情况给”或“上了，显得长了。

还有，要根据这个，写那个以数字结尾的匹配，你也试试？

wowan1314

Lispboy 发表于 2013-8-3 23:50
你看看能给组合到一个匹配串里面不？ 要不以后用替换函数，匹配串容易造成误伤了。我开始写的，就是把每 ...

嗯。 确实。 以后要继续用这个正则表达式  那么必须得一次写出来。

wowan1314

Lispboy 发表于 2013-8-3 23:50
你看看能给组合到一个匹配串里面不？ 要不以后用替换函数，匹配串容易造成误伤了。我开始写的，就是把每 ...

再试试这样的。。  我大概测了下应该都考虑到了！  你再测试看看. 我的正则都是乱写的。

2. (defun t1 (str / ret)
   
3.   (if (setq match
   
4.     "^[+|-][0-9]+(\.)?[0-9]+$|^[+|-][0-9]*(\.)?[0-9]+$|^[+|-][0-9]+(\.)?[0-9]*$|^[0-9]+(\.)?[0-9]*$|^[0-9]*(\.)?[0-9]+$"
   
5.             ret (yy-str-xxexp match str "")
   
6.       )
   
7.     (list (car ret) match)
   
8.   )
   
9. )

(defun t1 (str / ret)<br />   (if (setq match <br />     "^[+|-][0-9]+(\.)?[0-9]+$|^[+|-][0-9]*(\.)?[0-9]+$|^[+|-][0-9]+(\.)?[0-9]*$|^[0-9]+(\.)?[0-9]*$|^[0-9]*(\.)?[0-9]+$"<br />             ret (yy-str-xxexp match str "")<br />       )<br />     (list (car ret) match)<br />   )<br /> )

wowan1314

正则就是一顿乱写。达到效果就好。 写的也许不够简练。

newer

wowan1314 发表于 2013-8-4 13:29
再试试这样的。。  我大概测了下应该都考虑到了！  你再测试看看. 我的正则都是乱写的。

帮你简化了

1、 ^ $ 只用了一个
2、 +- 的 只用了一个（提出去，后面括号上）
3、 [0-9] 用了 \\d 替换

变成：      "^(([+|-](\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*))|\\d+(\.)?\\d*|\\d*(\.)?\\d+)$"
原来的：  "^[+|-][0-9]+(\.)?[0-9]+$|^[+|-][0-9]*(\.)?[0-9]+$|^[+|-][0-9]+(\.)?[0-9]*$|^[0-9]+(\.)?[0-9]*$|^[0-9]*(\.)?[0-9]+$"

你的逻辑没改变，不知道逻辑是否还可以简化。

你试试上面替换后的是否和你原来的一样。

newer

wowan1314 发表于 2013-8-4 13:39
正则就是一顿乱写。达到效果就好。 写的也许不够简练。

\\d+ 能用\\d*替代不，会丢失哪种情况？

newer

wowan1314 发表于 2013-8-4 13:39
正则就是一顿乱写。达到效果就好。 写的也许不够简练。

貌似还可以再简化：

葛老测测这个



最新的：         "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$"
修改一次的：   "^(([+|-](\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*))|\\d+(\.)?\\d*|\\d*(\.)?\\d+)$"
原来的：          "^[+|-][0-9]+(\.)?[0-9]+$|^[+|-][0-9]*(\.)?[0-9]+$|^[+|-][0-9]+(\.)?[0-9]*$|^[0-9]+(\.)?[0-9]*$|^[0-9]*(\.)?[0-9]+$"

命令: (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "4.5" "")
("4.5")

命令: (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "-4.5" "")
("-4.5")

命令: (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "+4.5" "")
("+4.5")

命令: (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" ".5" "")
(".5")

命令: (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "5." "")
("5.")

命令: (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "-.5" "")
("-.5")

命令: (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "." "")
nil

命令: (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "-." "")
nil

wowan1314

newer 发表于 2013-8-4 15:03
貌似还可以再简化：

葛老测测这个

==。我来测试下。

wowan1314

newer 发表于 2013-8-4 15:03
貌似还可以再简化：

葛老测测这个

你测试下"A0"
好像我原来写的就存在这个情况！！  {:soso_e144:}

命令: (T1 "A0")
("A0" "^[+|-]?(\\d+(.)?\\d+|\\d*(.)?\\d+|\\d+(.)?\\d*)$")

st788796

_$ (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "1e2" "")
("1e2")
_$ (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "1a2" "")
("1a2")
_$ (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "1e-2" "")
nil
_$ (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "a1" "")
("a1")
_$ (xd::string:regexps "^[+|-]?(\\d+(\.)?\\d+|\\d*(\.)?\\d+|\\d+(\.)?\\d*)$" "A1" "")
("A1")
_$

st788796

验证数字：^[0-9]*$
验证n位的数字：^\d{n}$
验证至少n位数字：^\d{n,}$
验证m-n位的数字：^\d{m,n}$
验证零和非零开头的数字：^(0|[1-9][0-9]*)$
验证有两位小数的正实数：^[0-9]+(.[0-9]{2})?$
验证有1-3位小数的正实数：^[0-9]+(.[0-9]{1,3})?$
验证非零的正整数：^\+?[1-9][0-9]*$
验证非零的负整数：^\-[1-9][0-9]*$
验证非负整数（正整数 + 0）  ^\d+$
验证非正整数（负整数 + 0）  ^((-\d+)|(0+))$
整数：^-?\d+$
非负浮点数（正浮点数 + 0）：^\d+(\.\d+)?$
正浮点数   ^(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*))$
非正浮点数（负浮点数 + 0） ^((-\d+(\.\d+)?)|(0+(\.0+)?))$
负浮点数  ^(-(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*)))$
浮点数  ^(-?\d+)(\.\d+)?$

newer

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

单独一个，没问题，奇了怪了啊


命令: (xd::string:regexps "^[0-9]+$" "a0" "")
nil

命令: (xd::string:regexps "^[0-9]+$" "0" "")
("0")

newer

st788796 发表于 2013-8-4 15:56
验证数字：^[0-9]*$
验证n位的数字：^\d{n}$
验证至少n位数字：^\d{n,}$

这个要按上面朋友的严格定义，都有不适合的情况

比如

+.1
-.1
.1
+1.

这些都算数字的。