求个把多行文字中比如30+30+30自动改写为3*30这种写法的插件，求大神出手，救救孩！

xxxcondor

satan421

你描述的太不清楚了，是只有形如30+30+30这种的吗？有没有30+30+45的？有没有30+30+30*2的？诸如此类。传个样图或者截图，别人也好理解。

xxxcondor

satan421 发表于 2019-9-5 08:26
你描述的太不清楚了，是只有形如30+30+30这种的吗？有没有30+30+45的？有没有30+30+30*2的？诸如此类。传个 ...

只把多行文字中相同的数字用乘式的形式表示C:\Users\Administrator\Desktop\1.jpg

xxxcondor

自己顶一下了，没人来了，沉了么？

xxxcondor

顶起来呀，顶起来

sharetow

1. (defun c:tt(/ text lst aa e1 b)
   
2.   (setq text "pm=30+30+30+44+44+44+44"
   
3.     lst '()
   
4.   )
   
5.   (if (vl-string-position (ascii "=") text)
   
6.     (progn
   
7.       (setq  e1 (vl-string-position (ascii "=") text))
   
8.       (setq  dx (strcat (substr text 1 e1) "="))
   
9.       (setq  aa (substr text (+ e1 2)))
   
10.     )
    
11.   )
    
12.   (while
    
13.     (vl-string-position (ascii "+") aa)
    
14.     (setq  e1 (vl-string-position (ascii "+") aa))
    
15.     (setq  b (substr aa 1 e1))
    
16.     (setq lst (cons b lst))
    
17.     (setq  aa (substr aa (+ e1 2)))
    
18.   )
    
19.   (setq lst (cons aa lst))
    
20.   (while
    
21.     (/= lst nil)
    
22.     (setq aa (nth 0 lst)
    
23.       lst1 lst
    
24.     )
    
25.     (setq lst(vl-remove aa lst))
    
26.     (setq dx (strcat dx (itoa (- (length lst1)(length lst))) "*" aa "+"))
    
27.   )
    
28. )

(defun c:tt(/ text lst aa e1 b)<br />   (setq text "pm=30+30+30+44+44+44+44"<br />     lst '()<br />   )<br />   (if (vl-string-position (ascii "=") text)<br />     (progn<br />       (setq  e1 (vl-string-position (ascii "=") text))<br />       (setq  dx (strcat (substr text 1 e1) "="))<br />       (setq  aa (substr text (+ e1 2)))<br />     )<br />   )<br />   (while<br />     (vl-string-position (ascii "+") aa)<br />     (setq  e1 (vl-string-position (ascii "+") aa))<br />     (setq  b (substr aa 1 e1))<br />     (setq lst (cons b lst))<br />     (setq  aa (substr aa (+ e1 2)))<br />   )<br />   (setq lst (cons aa lst))<br />   (while<br />     (/= lst nil)<br />     (setq aa (nth 0 lst)<br />       lst1 lst<br />     )<br />     (setq lst(vl-remove aa lst))<br />     (setq dx (strcat dx (itoa (- (length lst1)(length lst))) "*" aa "+"))<br />   )<br /> )

xxxcondor

sharetow 发表于 2019-12-11 23:28

谢谢您的回复，我想要的是所有类似情况的数字都自动改写为乘式的形式，您这个好像是只有特定的数字才能改为乘式

sharetow

xxxcondor 发表于 2019-12-16 09:04
谢谢您的回复，我想要的是所有类似情况的数字都自动改写为乘式的形式，您这个好像是只有特定的数字才能改 ...

。。。。那你提问题要给所有可能发生的情况都说明

s305040093

哈哈。这需求太简单。你你把这5个币给我吧。我给场景，你看是否相同：首先按照=分割字符串，然后在每个分割后的字符串中再使用+分割字符串，然后按照数字大小排序，再合并相同的数字。最后再拼回原字符串，是否就是你要的效果？

ninja37

多行文字中相同的数字用乘式的形式表示  这个有什么用啊