tm20038175 发表于 2012-9-24 19:14:58

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

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

yshf 发表于 2012-9-24 19:49:23

使用以下函数
(defun qmwsz(Xstr / fhz n i)
      (setq n (strlen Xstr)i nfhz nil)
      (while (<= 1 i n)
         (setq fhz (substr Xstr i))
         (if (/= (read fhz) (atof fhz))
             (setq fhz (substr fhz 2)
                   i0
             )
               (setq i (1- i))
           )
      )
      (setq fhz fhz)
   )
命令: (qmwsz "abcd123")
"123"
命令: (qmwsz "abcd12")
"12"

tm20038175 发表于 2012-9-24 20:18:35

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


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

faith66 发表于 2012-11-14 08:34:28

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

pxt2001 发表于 2012-11-14 08:47:00

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

weiqi 发表于 2013-4-7 01:24:39

如果有小数点怎么弄
页: [1]
查看完整版本: 如何读取一个字符串后面的数字？