caoyin大哥，帮我看看可以吗？

caoyin

;;不是不愿帮你。有点搞不清，糊涂...

;;好好体会一下，基础知识先搞清楚！！

(defun m-findfile-for-extendname(d MEXT MODE / EXTlis hhh EXT aa  i)
   (setq EXTlis (koyote->strSplit MEXT ";"))
   (setq hhh (vl-list-length EXTlis))
   (setq i 0)
   (repeat hhh
              (setq EXT (car EXTlis))
           (setq aa (s-findfile-for-extendname d EXT MODE))
           (setq bb (append aa bb)) ;;bb为什么不清0
           (setq EXTlis (cdr EXTlis))
     (setq i (1+ i));;已经告诉你了i 的累计没有任何意义
   )
  (setq bb (relst bb));;relst是什么函数
  bb;;多余，有跟没有一样
)

.

caoyin

不要再说你上面的程序了。

你把你的所有要求说出来，重新阐述，清楚一点。帮你重新写