hao3ren 发表于 2011-10-11 18:30:39

如何将一个表按一定长度等分为N个表

程序中字符串太长，程序编译不了，如何将其按一定长度等分为N个表，然后将这N各表在串成一个表打包

hao3ren 发表于 2011-10-11 18:32:31

上面说错了，不是等分，应该是比如表中有10500个元素，将其按2000长度分，最后剩余不足的为一个表

cabinsummer 发表于 2011-10-12 07:18:43

本帖最后由 cabinsummer 于 2011-10-12 18:16 编辑

已存在的表为alist，flist为最终输出表，tlist为临时表
(defun devidelist(alist / flist tlist)
(setq tlist nil flist nil n 0)
(repeat (length alist)
    (setq tlist (append tlist (list (nth n alist))))
    (setq n (1+ n))
    (if (= (rem n 2000) 0);余数为0，则将临时表追加到输出表后面，并将临时表重新置空
      (progn
      (setq flist (append flist (list tlist)))
      (setq tlist nil)
      )
    )
)
(if tlist (setq flist (append flist (list tlist))));处理最后一组不够2000个的表
flist
)

yoyoho 发表于 2011-10-12 08:33:05

感谢 cabinsummer 分享函数!

duotu007 发表于 2011-10-12 08:50:54

cabinsummer 发表于 2011-10-12 07:18 static/image/common/back.gif
已存在的表为alist，flist为最终输出表，tlist为临时表

修改下，完美了，呵呵。
;;;alist 待分割表 ; m分格长度 ; flist 返回分完的表
;;;(devidelist '(1 2 3 4 5 6 7 8 9 10 11 12 13) 3)
;;;->((1 2 3) (4 5 6) (7 8 9) (10 11 12) (13))
(defun devidelist ( alist m / flist tlist n )
(setq tlist nil flist nil n 0)
(repeat (length alist)
    (setq tlist (append tlist (list (nth n alist))))
    (setq n (1+ n))
    (if (= (rem n m) 0);余数为0，则将临时表追加到输出表后面，并将临时表重新置空
      (progn
      (setq flist (append flist (list tlist)))
      (setq tlist nil)
      )
    )
)
(setq flist (append flist (list tlist)));处理最后一组不够2000个的表
flist
)

cabinsummer 发表于 2011-10-12 18:10:32

duotu007 发表于 2011-10-12 08:50 static/image/common/back.gif
修改下，完美了，呵呵。
;;;alist 待分割表 ; m分格长度 ; flist 返回分完的表
;;;(devidelist '(1 2 3 ...

其实我写的那个根本就没有测试，感谢duotu007帮忙测试。看来效果还不错

cabinsummer 发表于 2011-10-12 18:12:38

本帖最后由 cabinsummer 于 2011-10-12 18:13 编辑

(defun devidelist ( alist m / flist tlist n )
(setq tlist nil flist nil n 0)
(repeat (length alist)
    (setq tlist (append tlist (list (nth n alist))))
    (setq n (1+ n))
    (if (= (rem n m) 0)
      (progn
      (setq flist (append flist (list tlist)))
      (setq tlist nil)
      )
    )
)
(if tlist (setq flist (append flist (list tlist))))
flist
)

lijiao 发表于 2011-10-13 09:22:38

(defun devidelist (alist m / OUT OUT1)
(repeat (1+ (fix (/ (length alist) m)))
    (setq out1 '())
    (repeat (fix m)
      (setq out1 (cons (car alist) out1)
          alist (cdr alist)))
    (setq out (cons (reverse (vl-remove nil out1)) out))
    )
(reverse (vl-remove nil out))
)
页: [1]
查看完整版本: 如何将一个表按一定长度等分为N个表