[LISP程序]：刚写的一个批量将文字数字加（剪）一个相同数值。

llhok · 发表于 2006-4-24 17:15:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在论坛上找了半天，找到一个网友的，但是发现他的程序有问题，我改了一下。能够区分是否为纯数值的文字。

雨箭风刀 · 发表于 2006-4-24 21:54:39

区分纯数字文本：
(DISTOF "数字文字")
(DISTOF "12.6")
(DISTOF "1e5")

llhok · 发表于 2006-4-25 10:37:11

那请问楼上的有没有函数读取纯数字的精度？

雨箭风刀 · 发表于 2006-4-25 14:36:29

[php]
;; txtfizz ＝求数字文本精度--ok!-by l雨箭风刀.2006.4
;; (mapcar 'txtnofizz '("4651.15360" "4165." "564890" "486.1509000")) ;;->返回: (5 0 0 7)
(defun txtfizz (str / k n)
  (setq str (vl-string-right-trim "." str ))
  (while (and (not k) (/= "" str))
(if (= "." (substr str 1 1))
   (setq k T)
   (setq str (substr str 2))
)
  )
  (setq n (1- (strlen str)))
  (if (> 0 n)0 n)
)

[/php]

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

[LISP程序]：刚写的一个批量将文字数字加（剪）一个相同数值。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子