求改进复制递增 A-009 变 A-0010 改为 A-009 变 A-010

mahuan1279 · 发表于 2020-1-15 09:53:19

669423907 发表于 2020-1-15 09:08
谢谢你的回复，我不会弄，方便帮忙改一下吗，谢谢你啦

算法都说的很详细了啊

x_s_s_1 · 发表于 2020-1-15 10:25:28

本帖最后由 x_s_s_1 于 2020-1-15 10:50 编辑

mahuan1279 发表于 2020-1-14 22:34
仅对字符串处理，如“019”+“1”=“020”，算法如下：
1、确定字符串最长位数，比如三位数；
2、将字 ...

按您的思路写了一个，请指正

;;;带0前缀整数字符串相加
(defun addIstr (str1 str2 / l1 l2 l)
(setq str1 (mapcar 'read (mapcar 'chr (vl-string->list str1)))
str2 (mapcar 'read (mapcar 'chr (vl-string->list str2)))
l1 (length str1)
l2 (length str2)
l (max l1 l2)
)
(if (< l1 l)
(repeat (- l l1) (setq str1 (cons 0 str1)))
(repeat (- l l2) (setq str2 (cons 0 str2)))
)
(setq str1 (reverse (mapcar '+ str1 str2))
str2 nil
l 0
)
(foreach n str1
(setq str2 (cons (rem (setq l (+ l n)) 10) str2)
l (fix (/ l 10.))
)
)
(if (= 1 l)
(apply 'strcat (mapcar 'itoa (cons l str2)))
(apply 'strcat (mapcar 'itoa str2))
)
)

xj6019 · 发表于 2020-1-15 10:51:26

本帖最后由 xj6019 于 2020-1-15 10:54 编辑

669423907 发表于 2020-1-15 09:18
这个最合适我，可以作为公用函数，可以各种调用，实现不同效果

好吧，你赢了！！！！！！！！！！！！！！！！！！！！！！
http://bbs.mjtd.com/thread-180643-1-1.html

3楼的代码你试试效果如何
只不过我想要的属性块的效果还没有人帮忙添加

satan421 · 发表于 2020-1-15 11:28:16

改成你想要的效果了，但是注意，有一个问题，A-999会变成A1000，这样的话还是感觉原来的程序更合理。

mahuan1279 · 发表于 2020-1-15 11:54:11

x_s_s_1 发表于 2020-1-15 10:25
按您的思路写了一个，请指正

为什么要设置两个字符变量？一个不就行了吗？

x_s_s_1 · 发表于 2020-1-15 12:02:01

mahuan1279 发表于 2020-1-15 11:54
为什么要设置两个字符变量？一个不就行了吗？

有时候步长不为1，还可以用来计算大数字

mahuan1279 · 发表于 2020-1-15 12:44:08

x_s_s_1 发表于 2020-1-15 12:02
有时候步长不为1，还可以用来计算大数字

不是加1递增吗？
_$ (defun addone (str)
  (setq n (strlen str))
  (setq nlst (reverse (vl-remove nil (mapcar '(lambda (x) (if (<= 48 x 57) (- x 48) nil)) (vl-string->list str)))))
  (setq str1 (substr str 1 (- n (length nlst))))
  (setq nlst (cons (+ 1 (car nlst)) (cdr nlst)) vlst nil flag t)
  (while  flag
(if (< (car nlst) 10)
      (progn
      (setq vlst (append (reverse vlst) nlst))
   (setq flag nil)
   )
(progn
         (setq vlst (cons (rem (car nlst) 10) vlst))
         (setq nlst (cons (+ (cadr nlst) (/ (car nlst) 10)) (cdr (cdr nlst))))
   )
   )
)
(setq str (strcat  str1 (vl-list->string (mapcar '(lambda (x) (+ 48 x)) (reverse vlst)))))
)
ADDONE
_$  (addone "A-001")
"A-002"
_$ (addone "A-009")
"A-010"
_$ (addone "A-019")
"A-020"
_$  (addone "A-099")
"A-100"
_$  (addone "A-101")
"A-102"
_$

mahuan1279 · 发表于 2020-1-15 13:11:57

_$ (defun add_num (str num)
  (setq n (strlen str))
  (setq nlst (vl-remove nil (mapcar '(lambda (x) (if (<= 48 x 57) (- x 48) nil)) (vl-string->list str))))
  (setq str1 (substr str 1 (- n (length nlst))))
  (setq numstr (itoa num) k (- (length nlst) (strlen numstr)))
  (repeat k (setq numstr (strcat "0" numstr)))
  (setq addnumlst (mapcar '(lambda (x) (- x 48)) (vl-string->list numstr)))
  (setq nlst (reverse (mapcar '+ nlst addnumlst)) vlst nil flag t)
  (while  flag
(if (< (car nlst) 10)
      (progn
      (setq vlst (append (reverse vlst) nlst))
   (setq flag nil)
   )
(progn
         (setq vlst (cons (rem (car nlst) 10) vlst))
         (setq nlst (cons (+ (cadr nlst) (/ (car nlst) 10)) (cdr (cdr nlst))))
   )
   )
)
(setq str (strcat  str1 (vl-list->string (mapcar '(lambda (x) (+ 48 x)) (reverse vlst)))))
)
ADD_NUM
_$ (ADD_NUM "A-019" 1)
"A-020"
_$ (ADD_NUM "A-019" 5)
"A-024"
_$ (ADD_NUM "A-019" 25)
"A-044"
_$ (ADD_NUM "A-139" 45)
"A-184"
_$

669423907 · 发表于 2020-1-15 13:53:38

satan421 发表于 2020-1-15 11:28
改成你想要的效果了，但是注意，有一个问题，A-999会变成A1000，这样的话还是感觉原来的程序更合理。

首先再次感谢大师的回复。我想能否这样：把对象中非数字的部分储存到aa，数字部分储存到bb，处理完bb后，再把对象的内容改为aa+bb，这样是不是就可以解决这个问题呢？

669423907 · 发表于 2020-1-15 13:54:28

mahuan1279 发表于 2020-1-15 13:11
_$ (defun add_num (str num)
(setq n (strlen str))
(setq nlst (vl-remove nil (mapcar '(lambda ( ...

大师，请问这个要怎么用呢？

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

[提问] 求改进复制递增 A-009 变 A-0010 改为 A-009 变 A-010

本帖子中包含更多资源

评分