XD::List:FromFile文件转换为列表

st788796 · 发表于 2013-9-27 09:45:04

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

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

×

本帖最后由 st788796 于 2013-11-11 01:14 编辑

(defun XD::List:FromFile (fn / f l ll)
(if (setq f (open (findfile fn) "r"))
(progn
(while (setq l (read-line f))
(setq ll (cons l ll))
)
(close f)
)
)
(reverse ll)
)

/db_自贡黄明儒_ · 发表于 2013-9-27 11:34:22

你这个不最后 reverse一下？

st788796 · 发表于 2013-9-27 11:50:23

/db_自贡黄明儒_ 发表于 2013-9-27 11:34
你这个不最后 reverse一下？

谢谢指正，已修改

newer · 发表于 2013-9-27 17:57:07

用不用判断下文件是否打开成功？

st788796 · 发表于 2013-9-27 18:51:52

newer 发表于 2013-9-27 17:57
用不用判断下文件是否打开成功？

增加了判断，已修改

newer · 发表于 2013-11-11 00:31:14

st788796 发表于 2013-9-27 18:51
增加了判断，已修改

有 ; 时候出错，修改下。

st788796 · 发表于 2013-11-11 01:17:22

newer 发表于 2013-11-11 00:31
有 ; 时候出错，修改下。

已修改，如果读点表时要再次处理一下

(mapcar '(lambda (x) (read (strcat "(" x" ")"))) (XD::List:Fromflie fl))

Lisphk · 发表于 2014-11-21 11:03:09

今天拿他读一个表格的CSV文件，发现都到一行了

令: (setq a (XD::LIST:FROMFILE "table1.csv"))
(" , , , , " " , , , , " " , , , , " " , , , , " " , , , , " " , , , , " " , ,
, , " " , , , , " " , , , , " " , , , , " " ,\"jj\", , , " " , , , , " " , , ,
, " " , , , , " " , , , , " " , , , , " " , , , , " " , , , , " " , , , , " " ,
, , , " " , , , , " " , , , , " " , , , , " " , , , , " " , , , , " " , , , , "
" , , , , " " , , , , " " , , , , " " , , , , " " , , , , " " , , , , ")

命令: (length a)
32

是不是能每行一个子表？

st788796 · 发表于 2014-11-21 11:08:59

本帖最后由 st788796 于 2014-11-21 11:30 编辑

Lisphk 发表于 2014-11-21 11:03
今天拿他读一个表格的CSV文件，发现都到一行了

令: (setq a (XD:IST:FROMFILE "table1.csv"))

(mapcar '(lambda (x) (read (strcat "(" x ")"))) (xd::list:fromfile fn))

格式不固定，后处理还是单独写吧，这个就是通用读出行内容

nnzj@163.com · 发表于 2015-11-7 02:01:23

这函数很好，可以处理很多数据

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

[表] XD::List:FromFile文件转换为列表

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

评分

相关帖子

点评

点评

点评

点评