求个数值提取程序

zhelindaxues

把一串字符串里的数值提取出来，例如 345abc，提取出345。实际的应用是手动选择一个记事本把里面的数值逐行提取，希望谁能给个程序 感激不尽。

ZZXXQQ

从哪儿提到哪儿？输出格式是什么样的？

zhelindaxues

顶到有人回答

zhelindaxues

有人回答不

caoyin

建议楼主把记事本中的内容贴出来，不然问题很难回答

zhelindaxues

直接从记事本里提取啊，就是去文本。例如第一行里是 345abc，我所需要的就是把abc去掉，把345当成数值提取出来。

mccad

(atoi "345abc")  ->345

zhelindaxues

感谢楼上的回答，但是如果345前面有字符呢？例如 abc345abc 那又该怎么办呢。有没有办法把第中间的数值提取出来呢？

caoyin

(setq str "asdfg123454ghjkg678")
(read (strcat "("
              (vl-list->string
                (mapcar '(lambda (X) (if (< 47 X 58) X 32))
                        (vl-string->list str)
                )
              )
              ")"
     )
)

zhelindaxues

感谢楼上的，再问一下如果我还要小数点呢，例如abc345.5cde 该怎么处理呢。