读取txt文件中的数据赋值给一个数组

zwf100

大神们，txt文件中有一列数据，(ˇˍˇ） 想通过lisp语句读取并赋值到数组a()中，不知如何实现，请大神赐教。
如txt文件中有：
1.4
3.5
2.7
5.3
....

鱼与熊掌

2. ;读取文件夹里面的字符串生成表
   
3. (defun cx-read (txt_str / str_lst ff data)
   
4.   (setq str_lst nil)
   
5.   (if (setq ff (open txt_str "r"))
   
6.     (progn
   
7.       (while (setq data (read-line ff))
   
8.                                 (setq str_lst (cons data str_lst))
   
9.       )
   
10.       (close ff)
    
11.     )
    
12.   )
    
13.   str_lst
    
14. )

;读取文件夹里面的字符串生成表<br /> (defun cx-read (txt_str / str_lst ff data)<br />   (setq str_lst nil)<br />   (if (setq ff (open txt_str "r"))<br />     (progn<br />       (while (setq data (read-line ff))<br />                                 (setq str_lst (cons data str_lst))<br />       )<br />       (close ff)<br />     )<br />   )<br />   str_lst<br /> )

zwf100

鱼与熊掌 发表于 2015-4-25 21:52

data  数组中 第i个数 是不是表示为 data(i)

Andyhon

请参阅 Nth / Car Cadr Caddr ... 函数

飞天鱼Tommy

初初接触list，跟着学习了

heaven陌上花开

如果是多维数组的矩阵怎么处理呢？？