(XD::String:IsNumEnd)判断字符串是否数字结尾

Lispboy · 发表于 2013-8-2 21:40:42

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

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

×

本帖最后由 Lispboy 于 2013-8-2 22:03 编辑

;|
判断字符串是否数字结尾
参数：
str --- 字符串
返回值：
是表（数值匹配串)
否 NIL
|;
(defun XD::String:IsNumEnd (str / ret)
(setq ret (XD::String:RegExpS "[0-9.]+$" str ""))
(if ret
(list (car ret) "[0-9.]+$")
)
)

Lispboy · 发表于 2013-8-2 21:50:26

一个应用，把数字结尾的字符串，末尾数字+1

命令: (setq str "A-1")
"A-1"
命令: (setq str1 (XD::String:IsNumEnd str))
("1" "[0-9.]+$")
命令: (setq match (cadr str1))
"[0-9.]+$"
命令: (setq str1 (car str1))
"1"
命令: (XD::String:RegexpR match str (itoa (+ 1 (atoi str1))) "")
"A-2"

Free-Lancer · 发表于 2013-8-3 07:25:38

不用正则的话，vl-string->list后reverse,用ascii判断也可，转回去wcmatch亦可，进一步可以用list循环取出最后的数字来自: Android客户端

Free-Lancer · 发表于 2013-8-3 15:42:06

还可以这样

(defun !lastnum (str / nl l num)
(if (distof str)
str
(progn
(setq nl '(48 49 50 51 52 53 54 55 56 57)
l (reverse (vl-string->list str))
)
(while (vl-position (car l) nl)
(setq num (cons (car l) num)
l (cdr l)
)
)
(cond
((and num l)
(list (vl-list->string (reverse l)) (vl-list->string num))
)
(num
(list (vl-list->string num))
)
(t str)
)
)
)
)

wowan1314 · 发表于 2013-8-3 15:54:19

本帖最后由 wowan1314 于 2013-8-3 15:56 编辑

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

我原来写的也不能完全处理。有些比如 “A--”也被认为是数字。

; 得到带数字后缀的字符串的 (文字前缀、数字后缀、小数点位数)
(defun t11 (txt1 / nums lop a1 txt len a2)
(setq nums '(49 50 51 52 53 54 55 56 57 48 43 45 46)
lop t
a1 0
txt (reverse(vl-string->list txt1))
)
(while lop
(if (member (car txt) nums)
(progn
(if (= (car txt) 46) (setq a2 a1))
(setq a1 (1+ a1) txt (cdr txt))
)
(setq lop nil)
)
)
(if (/= a1 0)
(progn
(setq len (- (strlen txt1) a1))
(list (substr txt1 1 len) (substr txt1 (1+ len)) a2)
)
)
)

newer · 发表于 2013-8-3 15:56:04

使用正则，很多字符串的操作都简化了。

newer · 发表于 2013-8-3 15:59:01

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

实际上这个函数只判断是否是正整数结尾就够了，CAD里面很少有 AA-2.0这样的存在。
这样匹配串这样写就行了 "[0-9]+$"

wowan1314 · 发表于 2013-8-3 16:00:34

再贴个狂刀的吧。还是用distof处理好些。

(defun strbrk (str / i st1 n)
(setq i 0)
(while (not(or(= "" (setq st1(substr str(setq i(1+ i)))))(setq n(distof st1)))))
(list (substr str 1 (1- i)) (if n n 0) str)
)

newer · 发表于 2013-8-3 16:00:35

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

正则肯定能解决，-号后必须跟数字的匹配。.后必须跟数字的匹配。

newer · 发表于 2013-8-3 16:05:09

给LISPBOY找些匹配串，根据需要修改下函数即可

"^\d+$ "　　//非负整数（正整数 + 0）

"^[0-9]*[1-9][0-9]*$ "　　//正整数

"^((-\d+)|(0+))$ "　　//非正整数（负整数 + 0）

"^-[0-9]*[1-9][0-9]*$ "　　//负整数

"^-?\d+$ "　　　　//整数

"^\d+(\.\d+)?$ "　　//非负浮点数（正浮点数 + 0） ^([1-9]\d*|\d+\.\d+)$

^(([1-9]+)|([0-9]+/.[0-9]{1,2}))$ //非负数小数点后保留两位

"^(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*))$ "　　//正浮点数

"^((-\d+(\.\d+)?)|(0+(\.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+)?$ "　　//浮点数

"^[A-Za-z]+$ "　　//由26个英文字母组成的字符串

"^[A-Z]+$ "　　//由26个英文字母的大写组成的字符串

"^[a-z]+$ "　　//由26个英文字母的小写组成的字符串

"^[A-Za-z0-9]+$ "　　//由数字和26个英文字母组成的字符串

"^\w+$ "　　//由数字、26个英文字母或者下划线组成的字符串

newer · 发表于 2013-8-3 16:13:11

wowan1314 发表于 2013-8-3 16:00
再贴个狂刀的吧。还是用distof处理好些。

正则表达式的优点不在于查找，而是在于替换。所以深入研究是值得的。匹配串找到，修改字符串非常容易，代码也很短。

Lispboy · 发表于 2013-8-3 17:01:56

本帖最后由 Lispboy 于 2013-8-3 17:03 编辑

wowan1314 发表于 2013-8-3 16:00
再贴个狂刀的吧。还是用distof处理好些。

你总点评，这样别人没法回复你。

newer说的， A-2.0这样的不用匹配，只找 A-2这样的。你认为这样做好吗？

Lispboy · 发表于 2013-8-3 17:04:25

我会根据大家的意见完善函数的，希望大家多提意见。

newer · 发表于 2013-8-3 17:13:19

wowan1314 发表于 2013-8-3 16:00
再贴个狂刀的吧。还是用distof处理好些。

我说的 "[0-9]+$" 是说对字符串结尾是整数的A-1,A-22这样的啊，不是说的纯数字的那个，那个要另外的模式串。

Free-Lancer · 发表于 2013-8-3 18:05:43

以前有个中西拆分函数，再找找来自: Android客户端

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

[字符串] (XD::String:IsNumEnd)判断字符串是否数字结尾

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

相关帖子

点评

点评

点评

点评

点评

点评

浏览过的版块