[功能] 字符串末尾数字+1

自贡黄明儒 · 发表于 2013-10-9 13:52:07

本帖最后由自贡黄明儒于 2013-10-9 13:53 编辑

;;[功能] 字符串末尾数字+1
;;http://bbs.mjtd.com/thread-107150-1-1.html中定义xd::string:regexps
;;http://bbs.mjtd.com/forum.php?mo ... d=608841&page=2中定义XD::String:Replace
;;示例(HH:EndNumberAdd "a3.02");返回"a3.03"
(defun HH:EndNumberAdd (str / I STR1 STR2)
  (if (setq str1 (car (xd::string:regexps "\\d+$" str "")))
(progn (setq str2 (itoa (1+ (atoi str1))))    ;提取的尾数+1
   (setq i (- (strlen str1) (strlen str2)))
   (if (> i 0)
      (repeat i (setq str2 (strcat "0" str2)))
   )
   (XD::String:Replace "\\d+$" str str2 "")
)
(strcat str "1")
  )
)

vlisp2012 · 发表于 2013-10-9 15:23:24

多谢分享啊！

xhq1954425 · 发表于 2013-10-9 17:02:26

学习，谢谢分享

逍遥无声 · 发表于 2022-7-22 02:02:54

ziyouwzb · 发表于 2023-10-22 19:40:29

学习一下，谢谢分享！

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

[函数] [功能] 字符串末尾数字+1

本帖被以下淘专辑推荐:

相关帖子