删除字符串中的阿拉伯数字

cz7873559

想删除文字中的阿拉伯数字。如：张三12 => 张三。

QiaoCheng

一刀屠文:lol

cz7873559

还是不容易啊！哈哈

ll_j

1. (defun rnum (str)
   
2.   (vl-list->string
   
3.     (vl-remove-if
   
4.       '(lambda (x) (and (< x 58) (> x 47)))
   
5.       (vl-string->list str)
   
6.     )
   
7.   )
   
8. )

(defun rnum (str)<br />   (vl-list->string<br />     (vl-remove-if<br />       '(lambda (x) (and (< x 58) (> x 47)))<br />       (vl-string->list str)<br />     )<br />   )<br /> )

cz7873559

谢谢，提示参数少了

ll_j

cz7873559 发表于 2013-6-21 15:37
谢谢，提示参数少了

(rnum "张三12")，返回"张三"

cz7873559

我想删除包含数字的字符中的数字。

yoyoho

感谢 ll_j 分享程序
学习了!

cz7873559

ll_j  你好。我还是不能实现吧文字中的数字删除只留下汉字。麻烦你再给我指点指点。非常感谢。

zyhandw

的确可以删除其中的数，感谢ll_j的分享

cz7873559

10楼的仁兄。能否给我完善下代码吗？

st788796

ll_j 发表于 2013-6-21 15:32

在论坛学到这样用法

1. '(lambda (x) (< 47 x 58))

'(lambda (x) (< 47 x 58))

炫翔

cz7873559 发表于 2013-6-21 17:27
10楼的仁兄。能否给我完善下代码吗？

笨的方法:既然得到了删除后的字符，就可以用完整的字符减去其即可

cz7873559

字符串处理看似简单，实际上可以把我们新手搞晕。如果相减是不是写起更麻烦？

ll_j

st788796 发表于 2013-6-21 17:46
在论坛学到这样用法

看了一下帮助，这样的确是对的，只是以前都没太在意。
谢谢。