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

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

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

;;[功能] 字符串末尾数字+1
;;http://bbs.mjtd.com/thread-107150-1-1.html中定义xd::string:regexps
;;http://bbs.mjtd.com/forum.php?mod=post&action=edit&fid=3&tid=107420&pid=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

:handshake

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

学习一下，谢谢分享！
页: [1]
查看完整版本: [功能] 字符串末尾数字+1