提取数值

清风明月名字 · 发表于 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

哈哈哈哈哈哈

账号		自动登录	找回密码
密码			注册

清风明月名字清风明月名字当前离线积分 3803 明经币个注册时间 2010-8-26 在线时间小时威望金钱个贡献激情	发表于 2013-6-22 09:03:08 \| 显示全部楼层 \|阅读模式购买主题已有 1 人购买本主题需向作者支付 1 个明经币才能浏览
	相关帖子 • 关于部分电脑无法使用正则表达式的解决方法 • 怎么把cad里面提取的字符串值写到EXCEL指定单元格中去 • 求助，获取用户在命令行输入的字符串 • 如何取行 <图元名: 7ef7db18>后面的“7ef7db18”字符串？ • ; ;提取两个x到x后面的y之间的内容 • mirror命令调用’cal函数中的mee出错 • 南方CASS点号提取展点号坐标
	回复使用道具举报置顶卡变色卡显身卡

提取数值

相关帖子