nzl1116 发表于 2018-8-21 00:31:04

(read (strcat "(" (vl-string-translate "XYIJ" "    " String) ")"))

流动的清泉 发表于 2024-6-24 16:31:50

这个适用性强点(defun extract-numeric-from-text (text)
(setq str-list (vl-string->list text)) ; 将字符串转换为字符列表
(setq num-list nil) ; 用于存储数字字符
(foreach char str-list
    (if (and (>= char 48) (<= char 57)) ; 48 到 57 是数字 0 到 9 的 ASCII 码值
      (setq num-list (append num-list (list char)))
      (setq num-list (append num-list (list 32)))
    )
)
(setq num-str (vl-list->string num-list)) ; 将数字字符列表转换回字符串
)
页: 1 [2]
查看完整版本: 请问如何提取字符串中的数值？