如图有三个文字你好我好他好，选择三个文字用+号连接

664571221

文字是举例，不限于这几个文字，如图有三个文字你好我好他好，选择三个文字用+号连接

自贡黄明儒

>>> "%s+%s+%s"%("你好","他好","我好")
'你好+他好+我好'
>>> "{0}+{1}+{2}".format("你好","他好","我好")
'你好+他好+我好'

strcat("你好"+"他好"+"我好")=>'你好+他好+我好'

xyp1964

1. ;; (xyp-strcat '("1" "2" "3") "+") → "1+2+3"
   
2. (defun xyp-strcat (lst str / a)
   
3.   (if (> (length lst) 1)
   
4.     (setq a (car lst)
   
5.           lst (mapcar '(lambda (x) (strcat str x)) (cdr lst))
   
6.           a   (strcat a (apply 'strcat lst))
   
7.     )
   
8.     (car lst)
   
9.   )
   
10. )

;; (xyp-strcat '("1" "2" "3") "+") → "1+2+3"<br /> (defun xyp-strcat (lst str / a)<br />   (if (> (length lst) 1)<br />     (setq a (car lst)<br />           lst (mapcar '(lambda (x) (strcat str x)) (cdr lst))<br />           a   (strcat a (apply 'strcat lst))<br />     )<br />     (car lst)<br />   )<br /> )

lisperado

学习 MP & LM 递归
;方法1
(defun tt (l $ )
  ((lambda (tt l $) (substr (apply 'strcat (tt l $)) 2))
    '((l $)(if l (cons (strcat $ (car l)) (tt (cdr l) $)))) l $
    )
  )

(tt '("A" "B" "C") "+")
"A+B+C"

;方法2
(defun fx (l $)
  (
   '( ( fx ) (apply 'strcat (cdr (apply 'append (fx l $)))))
    '( ( l $ ) (if l (cons (list $ (car l)) (fx (cdr l) $))
       )
      )
    )
  )


(fx '("A" "B" "C") "+")
"A+B+C"

664571221

自贡黄明儒 发表于 2018-9-20 08:30
>>> "%s+%s+%s"%("你好","他好","我好")
'你好+他好+我好'
>>> "{0}+{1}+{2}".format("你好","他好","我 ...

能否来一个完整的，这个看不懂，文字不限于这几个，就是文字用+连接

mikewolf2k

你这个例子太简单了，要说明白按什么顺序合并。

664571221

mikewolf2k 发表于 2018-9-20 10:54
你这个例子太简单了，要说明白按什么顺序合并。

按鼠标选择的顺序，可以框选

自贡黄明儒

664571221 发表于 2018-9-20 10:10
能否来一个完整的，这个看不懂，文字不限于这几个，就是文字用+连接

;;5 一统+ strcat
;;在处理输入时，可能有些用处 自贡黄明儒 2013年8月20日
;;(++ '("a" 5));"a5"
(defun strcat+ (lis / SYMBOL X)
  (if (vl-every 'numberp lis)
    (apply '+ lis)
    (apply 'strcat (mapcar 'vl-princ-to-string lis))
  )
)

start4444

szx025

kkkkkkkkkkk

yoyoho

回覆学习了!!!!!