仅删除字母字符

Lee Mac · 发表于 2022-7-6 00:29:20

这当然为OP提供了另一条考虑的途径。

尽管如此，我并不完全确定期望的结果，即OP是希望只保留整数，还是同时保留连字符和句点，从而也保留小数。

不错的一个pBe

这里有一个递归替代方案：

(defun numbers ( s / c )
   (cond
       (   (wcmatch s "~*#*") "")
       (   (zerop (setq c (ascii s))) s)
       (   (< 47 c 58) (strcat (chr c) (numbers (substr s 2))))
       (   (numbers (substr s 2)))
   )
)

我不明白你为什么在这里用mapcar？
这似乎是多余的，因为您似乎只是为了在代码中使用mapcar来构建一个列表，然后mapcar将返回一个列表而不是字符串。。。

Tharwat · 发表于 2022-7-6 00:32:53

因为（list）的返回（vl remove if….将是一个列表，我知道它有点长，所以我们可以将其缩短为这个，当然，与前一个一样，没有括号。

copy


(vl-list->string
 (vl-remove-if
   '(lambda (u)
      (not (member u '(48 49 50 51 52 53 54 55 56 57))
      )
    )
   (vl-string->list "Abcd12345X7789wZ")
 )
)