清风明月名字 发表于 2013-6-22 09:03:08

已有 1 人购买  本主题需向作者支付 1 个明经币 才能浏览 购买主题

流动的清泉 发表于 2024-6-24 11:30:25

本帖最后由 流动的清泉 于 2024-6-24 16:30 编辑

想币 想疯了



(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)) ; 将数字字符列表转换回字符串
)


yealor 发表于 2024-7-5 14:27:16

哈哈哈哈哈哈
页: [1]
查看完整版本: 提取数值