明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1897|回复: 7

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

[复制链接]
发表于 2011-10-11 18:30 | 显示全部楼层 |阅读模式
程序中字符串太长,程序编译不了,如何将其按一定长度等分为N个表,然后将这N各表在串成一个表打包
"觉得好,就打赏"
还没有人打赏,支持一下
 楼主| 发表于 2011-10-11 18:32 | 显示全部楼层
上面说错了,不是等分,应该是比如表中有10500个元素,将其按2000长度分,最后剩余不足的为一个表
发表于 2011-10-12 07:18 | 显示全部楼层
本帖最后由 cabinsummer 于 2011-10-12 18:16 编辑

已存在的表为alist,flist为最终输出表,tlist为临时表
  1. (defun devidelist(alist / flist tlist)
  2.   (setq tlist nil flist nil n 0)
  3.   (repeat (length alist)
  4.     (setq tlist (append tlist (list (nth n alist))))
  5.     (setq n (1+ n))
  6.     (if (= (rem n 2000) 0);余数为0,则将临时表追加到输出表后面,并将临时表重新置空
  7.       (progn
  8.         (setq flist (append flist (list tlist)))
  9.         (setq tlist nil)
  10.       )
  11.     )
  12.   )
  13.   (if tlist (setq flist (append flist (list tlist))));处理最后一组不够2000个的表
  14.   flist
  15. )

发表于 2011-10-12 08:33 | 显示全部楼层
感谢 cabinsummer 分享函数!
发表于 2011-10-12 08:50 | 显示全部楼层
cabinsummer 发表于 2011-10-12 07:18
已存在的表为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
)
发表于 2011-10-12 18:10 | 显示全部楼层
duotu007 发表于 2011-10-12 08:50
修改下,完美了,呵呵。
;;;alist 待分割表 ; m分格长度 ; flist 返回分完的表
;;;(devidelist '(1 2 3 ...

其实我写的那个根本就没有测试,感谢duotu007帮忙测试。看来效果还不错
发表于 2011-10-12 18:12 | 显示全部楼层
本帖最后由 cabinsummer 于 2011-10-12 18:13 编辑

  1. (defun devidelist ( alist m / flist tlist n )
  2.   (setq tlist nil flist nil n 0)
  3.   (repeat (length alist)
  4.     (setq tlist (append tlist (list (nth n alist))))
  5.     (setq n (1+ n))
  6.     (if (= (rem n m) 0)
  7.       (progn
  8.         (setq flist (append flist (list tlist)))
  9.         (setq tlist nil)
  10.       )
  11.     )
  12.   )
  13.   (if tlist (setq flist (append flist (list tlist))))
  14.   flist
  15. )
发表于 2011-10-13 09:22 | 显示全部楼层
  1. (defun devidelist (alist m / OUT OUT1)
  2.   (repeat (1+ (fix (/ (length alist) m)))
  3.     (setq out1 '())
  4.     (repeat (fix m)
  5.       (setq out1 (cons (car alist) out1)
  6.             alist (cdr alist)))
  7.     (setq out (cons (reverse (vl-remove nil out1)) out))
  8.     )
  9.   (reverse (vl-remove nil out))
  10.   )
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 22:21 , Processed in 0.185614 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表