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

lionyoyo

yy5heng发表于2008-6-15 22:35:00不错，不错，刚试用了一下，是利用状态栏显示文本的工具，运行后回车或右键或空格都可以换行，厉害！希望更公布源码，其中的关键应该是输入输出的部分。

用参数o可以改为在命令行输出

还有一些参数功能还没有完全完成

xshrimp

有点意思.模仿写了一下.

(defun gps->file-2lst(fn / f line re)   
  (if  (findfile fn)
  (progn
    (setq f (open (findfile fn) "r"))
    (while (setq line (read-line f))
      (setq re (cons line re ))
    )
    (close f)     
  ) 
  )
   (reverse re)
 )
(defun c:rdbk ( / fn i )
  (if (setq fn (getfiled "选择TXT文件" "" "txt" 8))
    (progn
      (princ "\n按任意键继续阅读.鼠标点击退出:")
      (setq lst (gps->file-2lst fn) i 0 len (length lst))
      (while (and (= 2 (car (grread nil 4 3)))  (< i len))   
 (setvar "modemacro" (vl-prin1-to-string (nth i lst) ))
 (setq i (1+ i))
      )
      (princ "\n结束.")
      (setvar "modemacro" "")
    )
  )
)

lionyoyo

xshrimp发表于2008-6-17 12:54:00有点意思.模仿写了一下.(defun gps->file-2lst(fn / f line re)      (if  (findfile fn)  (progn    (setq f (open (findfile fn) \"r\"))&

shlisp作者吧，我和你通过Email啊~

hzj526

果然强银！

zxfnh

哈哈,果然有一套,不知道怎么输出到状态栏的

claotlaot

犯的着这样看吗，这样看的话字好象有点小。。。。

zcsoft

你的程序一去不覆返!

能不能设计成可以上下翻的?!

qianglcq

好有创意啊,自己可以试试,载入到对话框也可以,这样就可以上下翻了

lionyoyo

zcsoft发表于2008-7-24 19:12:00你的程序一去不覆返!能不能设计成可以上下翻的?!

参数O可以选择在命令行输出

400行以内可以回翻

本来设计了跳转至某行和书签函数

但不是太好用