如何读取一个字符串后面的数字？

tm20038175

一个很有规律的字符串，例如：abcd123，格式固定，前面部分是字母（数量不固定），后面部门是数字（1~3位），现想得到后面的数字，有什么办法吗？

yshf

使用以下函数

2. 
   
3. (defun qmwsz(Xstr / fhz n i)
   
4.         (setq n (strlen Xstr)  i n  fhz nil)
   
5.         (while (<= 1 i n)
   
6.            (setq fhz (substr Xstr i))
   
7.            (if (/= (read fhz) (atof fhz))
   
8.                (setq fhz (substr fhz 2)
   
9.                      i  0
   
10.                )
    
11.                (setq i (1- i))
    
12.            )
    
13.         )
    
14.         (setq fhz fhz)
    
15.      )
    

<br /> (defun qmwsz(Xstr / fhz n i)<br />         (setq n (strlen Xstr)  i n  fhz nil) <br />         (while (<= 1 i n)<br />            (setq fhz (substr Xstr i))<br />            (if (/= (read fhz) (atof fhz))<br />                (setq fhz (substr fhz 2)<br />                      i  0<br />                )<br />                (setq i (1- i))<br />            )<br />         )<br />         (setq fhz fhz)<br />      )<br />

命令: (qmwsz "abcd123")
"123"
命令: (qmwsz "abcd12")
"12"

tm20038175

yshf 发表于 2012-9-24 19:49
使用以下函数命令: (qmwsz "abcd123")
"123"
命令: (qmwsz "abcd12")

这么快呀，谢谢好心人。。。。

faith66

多谢分享，正想学习这个问题，先拿来借鉴了

pxt2001

收藏了，yshf的源码。谢谢。

weiqi

如果有小数点怎么弄