[求助]：while循环的问题

lichunling

这是一段循环嵌套语句，内循环能执行，但是读入字符串C 的外循环语句不能循环，请高手指教。
(defun c:zz1()
  (setq p (getpoint "请输入明细表插入点:"))
  (setq bk "mxb")   ;插入明细表表头
  (command "insert" bk p 1 1 0)
  (setq p1 (list (car p) (+ (cadr p) 10)))  
  (setq f1 "mxb1.txt") ;输入明细表顺序文件
  (setq f1 (findfile f1))
  (setq f1 (open f1 "r"))
  (setq f (open (findfile "选型结果2.txt") "r"))
  (setq n 1)
  (while (setq c (read-line f1)) ;循环读入明细表顺序内容，从选型结果中搜索匹配内容  
      (setq c (strcat "*" c "*"))         
      (while (setq a (read-line f))  
        (while (wcmatch a c)
          (setq a (strcat "(" a ")"))
          (setq a (read a))
          (setq a (cons (itoa n) a))   
          (mxb a)
          (setq p1 (list (car p1) (+ 8 (cadr p1))))            
                             
        )  ;end while
         
        
        
      ); end while  
     (setq n (+ n 1))
    (setq c (read-line f1))
   );end while

   (close f1)  
   (close f)  ;关闭数据库文件
   (PRINC)
)

雨箭风刀

(setq f (open (findfile "选型结果2.txt") "r"))
放到第一个while里面

tsdx

这个程序做什么用的呢?