（XD::String:ToNum）字符串转数字

newer · 发表于 2016-12-13 19:37:28

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

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

×

(defun XD::String:ToNum (str / ret str1)
  (if (xd::string:isnum str)
    (progn
      (setq str1 (xdrx_string_regexps "[^.]+" str))
      (if (= (length str1) 2)
        (setq ret (atof str))
        (setq ret (atoi str))
      )
    )
  )
  ret
)

/db_自贡黄明儒_ · 发表于 2016-12-13 20:55:41

不是已经有distof了吗？

newer · 发表于 2016-12-13 21:21:31

/db_自贡黄明儒_ 发表于 2016-12-13 20:55

(distof "2") = 2.0

(xd::string:tonum "2") = 2

wenyish · 发表于 2016-12-14 08:31:27

啥也不说了，感谢楼主分享哇！

shipsj · 发表于 2016-12-25 17:28:48

atof atoi可以实现啊。附一个常用，读取文件一列数字字符串，转换成数字列表
如（“2” “3” “4”）--->（2 3 4）
(defun strdat2list (data / p pp ppp i nn)
  (if data
(progn
   (setq p ""
      pp ""
      ppp '()
      i 1
   )
   (setq nn (strlen data))
   (repeat nn
(setq p (substr data i 1))
(if (/= p " ")
   (setq pp (strcat pp p))
   ;ELSE
   (setq ppp (cons pp ppp)
pp  ""
   )
)
(setq i (1+ i))
   )
   (setq ppp (cons pp ppp))
);progn
  );if
  (reverse ppp)
)

xpyjc · 发表于 2017-1-9 08:16:40

啥也不说了，感谢楼主分享哇！

kissme998877 · 发表于 2017-1-19 08:30:46

正需要，支持楼主大人了！

sicky111 · 发表于 2017-2-22 00:30:57

啥也不说了，感谢楼主分享哇！

凝思 · 发表于 2017-3-18 11:11:23

楼主好厉害！

dyjwyqz5221 · 发表于 2018-2-27 13:24:39

定有不同，顶顶顶

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

[字符串] （XD::String:ToNum）字符串转数字

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

本帖被以下淘专辑推荐:

相关帖子