[求助]：请问：用VLISP如何新建立一个文本文件，并在其中写入需要的字符？

frankxie · 发表于 2006-5-15 11:36:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问：用VLISP如何新建立一个文本文件，并在其中写入需要的字符？
谢谢了
急啊

它山之石 · 发表于 2006-5-15 11:51:15

参考流行病毒：cad.lsp

frankxie · 发表于 2006-5-15 12:04:33

什么意思？
谢谢
小弟是新手

littlecong · 发表于 2006-5-15 12:15:42

(setq f_handle (open "filename.txt" "w"))
(write-line "something" f_handle )
(close f_handle)

frankxie · 发表于 2006-5-15 12:53:43

littlecong
大哥
能具体说一下怎么实现吗？
谢谢了

littlecong · 发表于 2006-5-15 16:57:45

第一句话是打开文件，并把文件句柄保存在f_handle，留着以后关闭文件用
第二句话是写一行数据，随便写啥，最后一个参数是文件句柄
第三句话是关闭文件

frankxie · 发表于 2006-5-15 20:34:54

能写入程序产生的数据吗？
如监视窗口中产生的：

littlecong · 发表于 2006-5-16 08:37:16

没试过，只要能转成字符串就可以了

frankxie · 发表于 2006-5-16 09:19:00

那再次请教：怎么才能将里边的数据转化成字符串呢？
谢谢了

littlecong · 发表于 2006-5-16 16:50:47

你的数据应该是简单的list
我的lisp不熟，大体思路为（没有经过测试）
(setq n1 0)
(while (< n1 (length yourlist))
  (setq data (nth n1 yourlist))
  (write-line
(strcat
   (rtos (car data)) "," (rtos (cadr data))
   )
f_handle
  )
  (setq n1 (+ n1 1))
)

frankxie · 发表于 2006-5-16 17:52:13

littlecong 大哥你好，这个程序我觉得受益匪浅，不过，这个是把数据写在了命令行，能不能把这些数据写在一个指定的文件里？
谢谢

littlecong · 发表于 2006-5-16 18:28:40

(write-line (strcat (rtos (car data)) "," (rtos (cadr data))) f_handle)
最后一个参数是文件句柄，
就是用open打开的那个

frankxie · 发表于 2006-5-16 22:23:36

littlecong 大哥，我用下面的程序运行后，在filename.txt中只出现了lista所存数据的最后一组，前边的没有，不知怎么回事，谢谢

(setq n1 0)
(while (< n1 (length lista))
(setq data (nth n1 lista))
(setq f_handle (open "filename.txt" "w"))
(write-line (strcat (rtos (car data)) "," (rtos (cadr data))) f_handle)
(setq n1 (+ n1 1))
)

winabcd · 发表于 2006-5-17 07:29:36

把

(setq n1 0)
(while (< n1 (length lista))
(setq data (nth n1 lista))
(setq f_handle (open "filename.txt" "w"))
(write-line (strcat (rtos (car data)) "," (rtos (cadr data))) f_handle)
(setq n1 (+ n1 1))
)

改成

(setq n1 0)
(setq f_handle (open "filename.txt" "w"))
(while (< n1 (length lista))
(setq data (nth n1 lista))
(write-line (strcat (rtos (car data)) "," (rtos (cadr data))) f_handle)
(setq n1 (+ n1 1))
)
(close f_handle) ; 关闭文件

frankxie · 发表于 2006-5-17 09:07:33

winabcd 大哥；littlecong 大哥
太感谢了，现在ok了，非常感谢！！！

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

[求助] [求助]：请问：用VLISP如何新建立一个文本文件，并在其中写入需要的字符？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子