[LISP程序]：无聊：一个LISP的文件分割程序

ahill

因为喜欢在手机和MP4上看长篇章回小说，但是因为网上下的小说经常是一个长文件，打开的时候很慢，需要分割成小的文件，但是网上能找到的文件分割器基本上都是分割成等长的小说，而俺比较喜欢以章回体的方式进行分割，由于俺基本上只会一点点儿LISP编程了，所以就用这个LISP编了一个文件分割程序，基本思路是要用到分割标志，P话少说，先看一下源码：
[php]
(defun c:wf (/ fout id_in id_name put_name putf_i putf_is putfile str-id
                           str-put txt_mum txt_name
                        )
        (setvar "cmdecho" 1)
        (setq ID_Name (getfiled "请选择分割标志文件" "d:/" "txt" 0))
        (setq TXT_Name (getfiled "请选择源文本文件" "d:/" "txt" 0))
        (setq Put_Name (substr TXT_Name 1 (- (strlen TXT_Name) 4)))
        ; 获取源文本文件名，去掉了后缀名
        (if (/= nil (AND
                                        ID_Name
                                        TXT_Name
                                )
                ); Start If 0
                (progn        ; Start　Progn  1
                        (setq ID_in (open ID_Name "r"))
                        (setq TXT_mum (open TXT_Name "r"))
                        (setq PutF_I 1); 分割序列文件名编号初始值
                        (setq str-ID (read-line ID_in))        ; 从标志文件中读一行
                        (setq str-put (read-line TXT_mum)) ; 从源文件中读一行
                        (while (/= nil str-ID);         ---While C Start!
                                (if (< PutF_I 10)
                                        (setq PutF_IS (strcat "0" (itoa PutF_I)))
                                        (setq PutF_IS (itoa PutF_I))
                                ); 分割序列文件编号位数统一成两位,不足以0补
                                (setq PutFile (strcat Put_Name PutF_IS ".txt"))
                                        ; 将输出文件与源文件放到同一个目录。
                                (setq fout (open PutFile "a")) ; 以ADD模式打开put文件
                                (while (/= str-id str-put) ; 如ID行不等于PUT行，则写
                                                                           ; 入到put文件，循环。
                                        (write-line str-put fout)
                                        (setq str-put (read-line TXT_mum))
                                )
                                (close fout) ; 关闭输出的分割文件
                                (setq PutF_I (1+ PutF_I)) ; 分割文件编号递增。
                                (setq str-ID (read-line ID_in))
                        ) ;         ---While C End!
                        (if (AND
                                        (= nil str-ID)
                                        (/= nil str-Put)
                                ) ; 处理最后一个章节        Start If 1
                                (progn
                                        (if (< PutF_I 10)
                                                (setq PutF_IS (strcat "0" (itoa PutF_I)))
                                                (setq PutF_IS (itoa PutF_I))
                                        )
                                        (setq PutFile (strcat Put_Name PutF_IS ".txt"))
                                        (setq fout (open PutFile "a"))
                                        (while (/= nil str-put)
                                                (write-line str-put fout)
                                                (setq str-put (read-line TXT_mum))
                                        )
                                        (close fout)
                                )
                        )
                        (close ID_in)
                        (close TXT_mum)
                ); END　Progn  1
                (alert "文件未发现！")
        ); END If 0
        (alert (strcat "\n文件" TXT_mum "已被分割成" (itoa PutF_I) "个文件！"))
        (setvar "cmdecho" 1)
        (princ)
)
(prompt "\n文件分割程序: WF; Design by Ahill!")

[/php]

附件中是一个样本文件和一个分割标志文件，请仔细分析这种模式。

有兴趣的像俺一样的入门者可以看一下其中的几个文件相关函数的运用。

jyzas

支持下楼主

hardthinking

能解决自己问题的程序就是好程序，愿我lisp水平也能像楼主一样啊~~~

w379106181

厉害了  谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享