[原创]发一个不务正业的lisp程序，放松下

liminnet · 发表于 2009-8-30 11:15:00

提示: 作者被禁止或删除内容自动屏蔽

fl202 · 发表于 2009-12-3 09:31:00

有一点非常不好，不能快速查找到我自己想看的行，比如我之前已经看到500行了，这次运行要看501行，难道要我先回车500次再看到501行吗？翻页的功能是必须的，否则根本不能用，望楼主改进。

fl202 · 发表于 2009-12-3 11:20:00

本帖最后由作者于 2009-12-4 9:29:07 编辑

可以比较快速的到达小说中你想读的行。

(defun c:rd1 ( / ff1 fn i txt1 et )
(setq ff1 (getfiled "选择TXT文件" "" "txt" 2))
(setq olderr *error* *error* dragon)
    (setq cn nil fn (open ff1 "r"))
(if (= cn nil)
    (setq cn (getint "\n 确定起始行数：")) )
   (repeat cn
     (read-line fn)
     )
    (setq et "111" txt1 nil txt1 (read-line fn)) (princ txt1) (print)
(while (/= et "exit")
        (setq txt1 (read-line fn))
        (setq cn (1+ cn))
         (if (and (/= txt1 "") (/= txt1 nil))
           (progn
                  (princ txt1) (print) )
           (progn
               (setq cn (1+ cn))
               (setq txt1 (read-line fn))
               (princ txt1) (print)
         ));end if
    (setq et (getstring ""))
      );end while
(repeat 6     (princ "\n命令： ") )
(princ "\n行数： ") (princ cn)
(princ "\n命令： ")
(setq *error* olderr)

   (princ)
)
(defun dragon (st)
   (repeat 6     (princ "\n命令： ") )
   (princ "\n行数： ") (princ cn)
   (princ "\n命令： ")
(setq cn (1+ cn))
(setq *error* olderr)
(princ)
)

本程序要求输入一个起始行数，方便快速到你读文章的地方，下次再读的时候接着上次的地方读，按exit或者ESC退出，退出的时候把多打几个空命令行，这样别人就看不见命令行的小说内容了。

microe · 发表于 2009-12-19 14:45:00

学习中

zhaozj2002 · 发表于 2010-4-21 00:01:00

好东西！看看先

ccid_x · 发表于 2010-5-15 11:39:00

以前的同事写过一个，但没有问他要源码，兄弟能共享一下吗

tnt123688 · 发表于 2010-5-16 16:01:00

网络小说已经风靡到如此程度了~~~ 强！

ljh19991220 · 发表于 2010-5-16 18:37:00

不错哦。要是能多行显示就更好了

998877abc · 发表于 2010-5-18 20:55:00

谢谢了啊学习学习

qingtao210 · 发表于 2010-9-19 23:38:00

都很牛啊

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

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-8-30 11:15:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡