[原创] 简单的文本拆分及代码瘦身 (实例源码)

nonsmall 发表于 2009-8-14 17:16:00

本帖最后由 nonsmall 于 2013-5-13 11:00 编辑 为了我那古老的MP4方便阅读书籍,写了一个自动拆分TXT文本的程序.每100行文字一个文件,每9个文件一个文件夹第二个程序和第一个功能一样,是"减肥"后的样子.留给大家参考.

nonsmall 发表于 2009-8-14 17:22:00

能不能直接写成"减肥"后的代码?我引用一句话"不吃饱饭,哪有力气减肥啊"要先完全实现功能,才能一点一点修减程序.这个算是很长时间不发源码的一点补偿吧.

5061220 发表于 2009-8-14 17:38:00

学习

liminnet 发表于 2009-8-14 17:51:00

aicr317 发表于 2009-8-14 19:47:00

liminnet发表于2009-8-14 17:51:00static/image/common/back.gif这个原创份量不磅量

管他天上掉下的是面包还是蛋糕，能吃饱就好！值得庆幸的是。。。。天上还是有东西掉下来的！

aicr317 发表于 2009-8-14 19:48:00

我什么时候也能达到它这种登峰造极的地步就好了！！！估计是要到阎王那里去学LSP了！！！

5061220 发表于 2009-8-14 19:51:00

嘿嘿！通吃啊！

不死猫 发表于 2009-8-14 22:20:00

aicr317发表于2009-8-14 19:48:00static/image/common/back.gif我什么时候也能达到它这种登峰造极的地步就好了！！！估计是要到阎王那里去学LSP了！！！

这倒没关系，每个人都有发挥自己长处的天地，相信你也可以拥有自己的舞台。

不死猫 发表于 2009-8-15 21:16:00

BUG :(<a href="http://www.mjtd.com/object/autolisp/and.htm" target="_black">and</a>
(<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> str (<a href="http://www.mjtd.com/object/autolisp/read-line.htm" target="_black">read-line</a> f))
(<a href="http://www.mjtd.com/object/autolisp/60.htm" target="_black"><</a>
(<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> k (<a href="http://www.mjtd.com/object/autolisp/1+.htm" target="_black">1+</a> k))
100))--->(and (< (setq k (1+ k)) 100)(setq str (read-line f)) )

aicr317 发表于 2009-8-16 05:04:00

提个建议，希望能实现每10个存一个文件夹，这样就可以连续编号了，不用01  02  03....09    11 12  13 当中跳开10，如此一来，到第二个文件夹下复制文件到第一个中，就不连续了，

页: [1] 2

明经CAD社区's Archiver

[原创] 简单的文本拆分及代码瘦身 (实例源码)