出错在哪里？Error: 参数类型错误: (or stringp symbolp): nil

yaozidm124 · 发表于 2010-12-30 13:46:31

运行程序后会出现这个错误:Error: 参数类型错误: (or stringp symbolp): nil
文本文件里的内容如下
NO1    *ce
NO2    *aar
....
....

下面是程序:
(defun c:daoru()
(setq n1 (findfile "menuini.txt"))
(setq file1 (open n1 "r"))
(setq loop t)
(while loop
(setq yzh1 (read-line file1))
(setq hang (read->biao yzh1 "*") )
(setq m2  (cadr hang))
(setq m1  (car hang))
;(if (= nil yzh1) (setq loop nil))
(cond
      ((= m2 "ce") (princ "\nTHIS IS CE"))
      ((= m2 "aar") (princ "\nTHIS IS aar"))
)
)
(close file1)
)
;;By Longxin 明经通道 2006.03
;;以字符串为分隔符把行文字读入表中
;;例：(read->biao "jksdi,kkik,oo" ",")
;;返回：("jksdi" "kkik" "oo")
(defun read->biao (str fgf / biao s1 i)
  (setq biao nil)
  (setq i (vl-string-search fgf str))
  (while i
(setq s1 (substr str 1 i))
(setq str (substr str (+ 2 i)))
(setq biao (append biao (list s1)))
(setq i (vl-string-search fgf str))
  )
  (append biao (list str))
)

我想请问怎么样才能不让程序出错，要怎么改？

gzxl · 发表于 2010-12-30 14:58:54

调试了下，好像应该是这样吧？
(defun c:tt( / file1 hang loop m1 m2 n1 yzh1)
  (if (and (setq n1 (getfiled "选择txt文件"
                           ""
                           "txt"
                           4
                  )
         )
         ;(setq n1 (findfile "menuini.txt"))
         (setq file1 (open n1 "r"))
   )
   ;(setq loop t)
   (progn
      (while
         (setq yzh1 (read-line file1))
         (setq hang (read->biao yzh1 "*"))
         (setq m2  (cadr hang))
         (setq m1  (car hang))
         ;(if (= nil yzh1) (setq loop nil))
         (cond
            ((= m2 "ce") (princ "\nTHIS IS CE"))
            ((= m2 "aar") (princ "\nTHIS IS aar"))
         )
      )
      (close file1)
   )
  )
  (princ)
)
;;By Longxin 明经通道 2006.03
;;以字符串为分隔符把行文字读入表中
;;例：(read->biao "jksdi,kkik,oo" ",")
;;返回：("jksdi" "kkik" "oo")
(defun read->biao (fgf str / biao s1 i)
  (setq biao nil)
  (setq i (vl-string-search fgf str))
  (while i
(setq s1 (substr str 1 i))
(setq str (substr str (+ 2 i)))
(setq biao (append biao (list s1)))
(setq i (vl-string-search fgf str))
  )
  (append biao (list str))
)

yaozidm124 · 发表于 2010-12-30 16:51:23

请问是什么原因导致这个错误的了?

ZZXXQQ · 发表于 2010-12-30 22:04:46

在循环中读到文件尾时变量yzh1是nil。这时调用函数出错。

yaozidm124 · 发表于 2010-12-31 17:47:43

估计也是这样，但我没办法解决，不知道你们是怎么解决的？
我用了个蠢办法
在文本最后加一个
"end"
然后判断yzh1是否是end

ZZXXQQ · 发表于 2010-12-31 20:57:02

2楼不是解决了吗。
直接用 (while (setq yzh1 (read-line file1))
判断yzh1的返回值，如果不为nil就没读到文件尾。

yaozidm124 · 发表于 2011-1-4 09:36:46

我开始那样写和2楼也差不多啊！.....

ZZXXQQ · 发表于 2011-1-4 21:02:58

差得多了。

wuli7398 · 发表于 2011-1-14 08:21:43

学习中，新来的

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

[讨论] 出错在哪里？Error: 参数类型错误: (or stringp symbolp): nil