字串断开，字串列表根据指定字串断开，支持交叉重复

dcl1214 · 发表于 2021-8-7 23:39:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 dcl1214 于 2021-8-8 07:01 编辑

(defun $strs-fen-duan$ (strs dk-str lst / fds i FD BJW SS)
;高效分段，多列合并，遇到字串断开，一般用来将excel表格多列数据合并成一列的时候有用
(SETQ fds NIL)
(SETQ FD NIL)
(SETQ BJW NIL)
(SETQ SS NIL)
(setq i nil)
(mapcar (function
(lambda (a i)
(if (= a dk-str)
(progn
(if bjw
(progn (set 'fds (cons (reverse fd) fds))
(set 'fd nil)
(set 'bjw nil)
)
)
(set 'fd (cons i fd))
(set 'bjw t)
)
(progn (if bjw
(set 'fd (cons i fd))
)
(if (= (1+ i) (length STRS))
(progn (set 'fds (cons (reverse fd) fds))
(set 'fd nil)
(setq bjw nil)
)
)
)
)
)
)
STRS
(progn (setq i 0)
(while (< i (length STRS))
(setq ss (cons i ss))
(setq i (1+ i))
)
(reverse ss)
)
)
(reverse fds)
);示例
($strs-fen-duan$ (LIST "A" "B" "C" "D" "F" "E" "A" "C" "D" "E" "F" "A" "E" "C" "V" "F" "B" "D" "3") "A" nil)

(defun $strs-fen-duan$ (strs dk-str lst / fds i FD BJW SS) 
          ;高效分段，多列合并，遇到字串断开，一般用来将excel表格多列数据合并成一列的时候有用 
  (SETQ fds NIL) 
  (SETQ FD NIL) 
  (SETQ BJW NIL) 
  (SETQ SS NIL) 
  (setq i nil) 
  (mapcar (function 
      (lambda (a i) 
        (if (= a dk-str) 
    (progn 
      (if bjw 
        (progn (set 'fds (cons (reverse fd) fds)) 
         (set 'fd nil) 
         (set 'bjw nil) 
        ) 
      ) 
      (set 'fd (cons i fd)) 
      (set 'bjw t) 
    ) 
    (progn (if bjw 
       (set 'fd (cons i fd)) 
           ) 
           (if (= (1+ i) (length STRS)) 
       (progn  (set 'fds (cons (reverse fd) fds)) 
        (set 'fd nil) 
        (setq bjw nil) 
       ) 
           ) 
    ) 
        ) 
      ) 
    ) 
    STRS 
    (progn (setq i 0) 
     (while  (
       (setq ss (cons i ss)) 
       (setq i (1+ i)) 
     ) 
     (reverse ss) 
    ) 
  ) 
  (reverse fds) 
);示例 
($strs-fen-duan$ (LIST  "A" "B"  "C" "D"  "F" "E" "A"  "C" "D"  "E" "F"  "A" "E"  "C" "V" "F" "B"  "D" "3")  "A" nil)

qqqincccken · 发表于 2021-8-8 00:10:46

谢谢提供收藏了

tryhi · 发表于 2021-8-8 10:31:27

(defun tt (strs dk-str / a i ret te)
(setq i -1)
(while (setq a(car strs))
(setq strs(cdr strs)
i(1+ i)
)
(if (/= a dk-str)
(setq te(cons i te))
(setq ret(cons (reverse te)ret)
te (list i)
)
)
)
(setq ret(cons (reverse te)ret))
(cdr(reverse ret))
)

速度比你快差不多一倍吧

dcl1214 · 发表于 2021-8-8 10:36:16

大海提供了更快的方法：
(defun $strs-fen-duan$ (strs dk-str LST / a i ret te)
  (setq i -1)
  (while (setq a (car strs))
(setq strs (cdr strs))
(setq i (1+ i))
(if (/= a dk-str)
   (setq te (cons i te))
   (progn (and te (setq ret (cons (reverse te) ret)))
      (setq te (list i)
      )
   )
)
  )
  (and te (setq ret (cons (reverse te) ret)))
  (reverse ret)
)

downhh · 发表于 2021-8-8 17:42:55

谢谢分享，又学到了~

hh_lj007 · 发表于 2021-8-9 08:50:17

谢谢分享源码！

aisong220 · 发表于 2021-8-10 00:02:51

yangjian001 · 发表于 2021-8-10 09:04:45

做一个热心并受欢迎的人！

aisong220 · 发表于 2021-8-11 00:02:46

tzfcn · 发表于 2021-8-11 08:14:56

提出问题-解决问题-更好的解决问题………………

yangjian001 · 发表于 2021-8-12 21:23:32

做一个热心并受欢迎的人

coverne · 发表于 2021-8-14 19:22:53

挺实用的，开心

账号		自动登录	找回密码
密码			立即注册

[源码] 字串断开，字串列表根据指定字串断开，支持交叉重复

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。