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

黄翔

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"

大角牛

黄翔 发表于 2024-8-19 00:41
命令: (abc "50 100*3 200*2 100*1")
"50 100 100 100 200 200 100"

感谢感谢感谢

大角牛

xyp1964 发表于 2024-8-18 22:27

感谢，这个需要下载工具箱才能运行吧