[求助]读.txt文件时为何老是出现错误??

xiatian

xiatian

xiatian

我 先把我的程序跟要上传的.txt文件发上去..可我调用时每次都出现错误: bad argument type
nil*Cancel*,,表ptr为(("c5" 3000 15) ("c3" 3000 15) ("c2" 2000 10) ("c1" 1000 11)),,我觉得应该是(read-line ff)出了问题,最后为nil,所以不匹配,可我又不知道该如何解决,要想读完文件,(read-line ff)必须是空的啊..

north911

简单改了一下，应该满足要求了

(defun c:rt ()
  (setq datfile (getfiled "展点原始数据：" "F:\\11" "txt" 2)) ;查找文件路径
  (setq ff (open datfile "r"))

  (setq dat T)
  (setq dat (read-line ff))
  (while dat
    (setq data (read (strcat "(" dat ")")))
    (setq ptr (cons data ptr))
    (setq dat (read-line ff))
  )

  (setq b 4)
)

xiatian

多谢north911了,你的着一指点真是帮了我大忙..谢谢了..很好用了

wuxuloveguo

不错!不过现在的展点程序比这个还好用啊!

zml84

http://zml84.blog.sohu.com/86352409.html

(vl-load-com)
;;;==============================================================
;;;      通用函数                                               
;;;功能：读取指定的文本文件，返回文件内容的表                   
;;;参数：FILENAME -----文件名称                                 
;;;返回：文件内容组成表。                                       
;;;日期：zml84 于 2008-04-25                                    
(defun ZML-LX-FILE-TO-LIST (FILENAME / F1 STR LST)
    ;;尝试打开文件
    (if (setq F1 (open FILENAME "r"))
(progn
    (setq LST '())
    ;;逐行读取
    (while (setq STR (read-line F1))
;;; ;;转换为大写
;;; (setq STR (strcase STR))
;;; ;;替换
;;; (setq STR (vl-string-translate "XYZ;" "    " STR))
;;拆分为表
(setq LST (cons (read (strcat "(" STR ")")) LST))
    )
    ;;关闭文件
    (close F1)
    ;;返回
    (reverse LST)
)
    )
)
;;;==============================================================