[求助]：能否读取一个含有空格的文件？

闲云

能否读取一个含有空行的文件？

aeo

可以累加
(setq k 0)
(if (= "" (setq line (read-line h))) (setq k(1+ k))(setq k 0)) 就加1
到你设定的行数就说明没下文了.


不知行不行,没试过.

闲云

最初由 闲云 发布
[B]能否读取一个含有空行的文件？ [/B]

完全可行，是我把读出来的内容再CAR了一下，所以碰到空行出错。
(while
             (setq it (read-line fil))         
             (setq list_b (cons  it list_b))
             (setq list_a (cons (car (read it)) list_a))           
  );while

ll_j

这不是read-line的问题，而是你处理的方法不当，当read-line读空行时返回空字符（""），当使用read时返回nil，当然不能进行car操作了，即使不是空行，即使(read it)返回正确结果，如果不是表，仍然不能进行car操作。你的代码中list_b是正确的方法，list_a只有在读取不是空行并且行中文字是“(abc ab..)”格式时才是正确的。
建议读取文件的方法是将文件中内容依次读出，构成一个表（list_b），依次判别，如不为空字符（""）则使用“(read (strcat "(" it ")")”构成一个子表，然后按要求取用。

另：文本文件的结束符是ascii码的26（1A、^Z），read-line只有在读到这个字符或文件结束时才会自动停止。

闲云

受益非浅！