如何将输入50*3这类乘法数据转换为50+50+50这类的加法？

lxdz443

想了好长时间一直都没明天该具体如何转换，请高手指点指点。

黄翔

1. (defun abc(_str / LM:lst->str LM:str->lst _alst  _xlst )
   
2. (defun LM:lst->str ( lst del )
   
3.     (if (cdr lst)
   
4.         (strcat (car lst) del (LM:lst->str (cdr lst) del))
   
5.         (car lst)
   
6.     )
   
7. )
   
8. (defun LM:str->lst ( str del / pos )
   
9.     (if (setq pos (vl-string-search del str))
   
10.         (cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))
    
11.         (list str)
    
12.     )
    
13. )
    
14. (LM:lst->str
    
15.   (apply 'append
    
16.   (mapcar '(lambda(x)
    
17.     (setq _alst nil)
    
18.     (cond
    
19.       ((wcmatch x "*`**")  
    
20.         (setq _xlst (LM:str->lst x "*"))        
    
21.         ((lambda(y z)(repeat (atoi z) (setq _alst (cons y _alst)))_alst)(car _xlst)(cadr _xlst))      
    
22.       )
    
23.       (t (list x))
    
24.     )
    
25.   )(LM:str->lst _str " "))) " ")
    
26. )

(defun abc(_str / LM:lst->str LM:str->lst _alst  _xlst )<br /> (defun LM:lst->str ( lst del )<br />     (if (cdr lst)<br />         (strcat (car lst) del (LM:lst->str (cdr lst) del))<br />         (car lst)<br />     )<br /> )<br /> (defun LM:str->lst ( str del / pos )<br />     (if (setq pos (vl-string-search del str))<br />         (cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))<br />         (list str)<br />     )<br /> )<br /> (LM:lst->str <br />   (apply 'append<br />   (mapcar '(lambda(x)<br />     (setq _alst nil)<br />     (cond<br />       ((wcmatch x "*`**")  <br />         (setq _xlst (LM:str->lst x "*"))        <br />         ((lambda(y z)(repeat (atoi z) (setq _alst (cons y _alst)))_alst)(car _xlst)(cadr _xlst))      <br />       )<br />       (t (list x))<br />     ) <br />   )(LM:str->lst _str " "))) " ")<br /> )

命令: (abc "50 100*3 200*2 100*1")
"50 100 100 100 200 200 100"

xyp1964

大角牛 发表于 2024-8-17 15:51
我要输入一组数据，怎么转换呢？
如输入50 100*2 200*3后
转换为 50 100 100 200 200 200

1. ;; (abc "50 100*2 200*3") → (50 100 100 200 200 200)
   
2. (defun abc (tx)
   
3.   (defun aa (tx / nn t1 t2 lst)
   
4.     (setq nn (vl-string-search "*" tx)
   
5.           t1 (substr tx 1 nn)
   
6.           t2 (substr tx (+ nn 2))
   
7.     )
   
8.     (if  (and (setq a (atoi t1)) (setq n (atoi t2)))
   
9.       (repeat n (setq lst (cons a lst)))
   
10.     )
    
11.     lst
    
12.   )
    
13.   (apply 'append(mapcar '(lambda (x)(i(vl-string-search "*" x)(aa x)(list (atoi x))))(xyp-StrSpr tx " ")))
    
14. )

;; (abc "50 100*2 200*3") → (50 100 100 200 200 200)<br /> (defun abc (tx)<br />   (defun aa (tx / nn t1 t2 lst)<br />     (setq nn (vl-string-search "*" tx)<br />           t1 (substr tx 1 nn)<br />           t2 (substr tx (+ nn 2))<br />     )<br />     (if  (and (setq a (atoi t1)) (setq n (atoi t2)))<br />       (repeat n (setq lst (cons a lst)))<br />     )<br />     lst<br />   )<br />   (apply 'append(mapcar '(lambda (x)(i(vl-string-search "*" x)(aa x)(list (atoi x))))(xyp-StrSpr tx " ")))<br /> )

1. (defun xyp-StrSpr (str sub / lst n)
   
2.   "以指定分解符分解字符串"
   
3.   (if (/= sub "")
   
4.     (progn
   
5.       (while (setq n (vl-string-search sub str))
   
6.         (setq lst (cons (substr str 1 n) lst)
   
7.               str (substr str (+ n (strlen sub) 1))
   
8.         )
   
9.       )
   
10.       (vl-remove "" (reverse (cons str lst)))
    
11.     )
    
12.   )
    
13. )

(defun xyp-StrSpr (str sub / lst n)<br />   "以指定分解符分解字符串"<br />   (if (/= sub "")<br />     (progn<br />       (while (setq n (vl-string-search sub str))<br />         (setq lst (cons (substr str 1 n) lst)<br />               str (substr str (+ n (strlen sub) 1))<br />         )<br />       )<br />       (vl-remove "" (reverse (cons str lst)))<br />     )<br />   )<br /> )

vectra

分解出两个数据，一个用于重复数字，一个用于循环次数控制，反复strcat。。。

xyp1964

2. ;; (abc "50*3")
   
3. (defun abc (tx / nn t1 t2 t3)
   
4.   (setq nn (vl-string-search "*" tx)
   
5.         t1 (substr tx 1 nn)
   
6.         t2 (substr tx (+ nn 2))
   
7.   )
   
8.   (if (and (distof t1) (setq n (atoi t2)))
   
9.     (progn
   
10.       (setq t3 "")
    
11.       (repeat (1- n)(setq t3 (strcat t3 t1 "+")))
    
12.       (strcat t3 t1)
    
13.     )
    
14.   )
    
15. )

;; (abc "50*3")<br /> (defun abc (tx / nn t1 t2 t3)<br />   (setq nn (vl-string-search "*" tx)<br />         t1 (substr tx 1 nn)<br />         t2 (substr tx (+ nn 2))<br />   )<br />   (if (and (distof t1) (setq n (atoi t2)))<br />     (progn<br />       (setq t3 "")<br />       (repeat (1- n)(setq t3 (strcat t3 t1 "+")))<br />       (strcat t3 t1)<br />     )<br />   )<br /> )

xyp1964

2. ;; (abc "50*3")→"50+50+50"
   
3. (defun abc (tx / nn t1 t2 t3)
   
4.   (if (and (setq nn (vl-string-search "*" tx))
   
5.            (distof (setq t1 (substr tx 1 nn)))
   
6.            (setq n (atoi (setq t2 (substr tx (+ nn 2)))))
   
7.       )
   
8.     (progn
   
9.       (setq t3 "")
   
10.       (repeat (1- n)
    
11.         (setq t3 (strcat t3 t1 "+"))
    
12.       )
    
13.       (strcat t3 t1)
    
14.     )
    
15.   )
    
16. )

;; (abc "50*3")→"50+50+50"<br /> (defun abc (tx / nn t1 t2 t3)<br />   (if (and (setq nn (vl-string-search "*" tx))<br />            (distof (setq t1 (substr tx 1 nn)))<br />            (setq n (atoi (setq t2 (substr tx (+ nn 2)))))<br />       )<br />     (progn<br />       (setq t3 "")<br />       (repeat (1- n)<br />         (setq t3 (strcat t3 t1 "+"))<br />       )<br />       (strcat t3 t1)<br />     )<br />   )<br /> )

lxdz443

谢谢院长和vectra。等我把理论吃透了，加到我现在工作的插件里面。

lxdz443

想把院长的程序添加到下面这段程序里面，搞了2天没搞定，郁闷。
(defun auto_detext()
        (setq auto_textlen (strlen auto_text))
        (setq text_t "")
        (setq auto_ss nil)
        (while (> auto_textlen 0)
          (setq txet_c (substr auto_text 1 1))
                  (if (/= txet_c "+")
                                (setq text_t (strcat text_t txet_c))
                                (if (/= text_t"")
                                (progn
                                        (setq auto_ss (cons text_t auto_ss))
                                        (setq text_t ""))))
                  (setq auto_text (substr auto_text 2 (- (strlen auto_text) 1)))
                  (if (and (< auto_textlen 2) (/= text_t""))
                        (progn
                           (setq auto_ss (cons text_t auto_ss))
                           (setq text_t "")))
        (setq auto_textlen (1- auto_textlen)))
        (setq auto_ss (reverse auto_ss))
)

lxdz443

添加院长的程序后运行，每次会少一个，如果*3，会只画出2个，*5，会只画出4个。郁闷。

lxdz443

我也不知道是怎么回事，而且我把代码加进去后，直接输入不带乘号的数字，提示错误，无法工作。现在晕死了。
图1和图2的上传顺序反了。

大角牛

xyp1964 发表于 2015-2-16 09:22

我要输入一组数据，怎么转换呢？
如输入50 100*2 200*3后
转换为 50 100 100 200 200 200