[求助]：lisp能否按我的要求读取文本文件中的数据?

yjtdkj

真心请教各位大侠，这个问题困扰了我很久了
比如我有这样一个文本文件：
KLX ,      H,                B,               TW,                T1,                T2
KL1,       500 ,          200,           10,                  20,              20
KL3,       600 ,          300,           10,                  20,              20
KL4,       450,           180,           10,                  12,              12
KL5,       300 ,          150,            6,                   10,              10

我的要求是：当LISP程序中变量KK=KL1时，通过读取这个文件使
LISP程序中的变量H、B、TW、T1、T2分别等于500、200、10、20、20
形成对应关系，不知能否实现？

yshf

;请试用以下测试程序：
;Command: cc
;kk=0
;
;Command: cc
;kk=1
;
;H=500  B=200  TW=10  T1=20  T2=20
;H=600  B=300  TW=10  T1=20  T2=20
;H=450  B=180  TW=10  T1=12  T2=12
;H=300  B=150  TW=6  T1=10  T2=10
(defun c:cc()
   (setq kk (getint "\nkk="))
   (if (= kk 1)
      (progn
         (setq ff (open "e:kjl.txt" "r")  fhb nil)
         (while (setq zb (read-line ff))
           (setq zb  (vl-string-translate "," " " zb)
                 fhb (cons (read (strcat "(" zb ")")) fhb)
           )
         )
         (close ff)
         (setq fhb (reverse fhb))
         (foreach zb fhb
            (mapcar 'set '(H B TW T1 T2) (cdr zb))
            (princ "\nH=")(princ H)(princ "  B=")(princ B)(princ "  TW=")(princ TW)
            (princ "  T1=")(princ T1)(princ "  T2=")(princ T2)
        )
     )
   )
   (princ)
)

cy956

如果你用空格来分隔字串，可以直接加括号读成表，程序就更简化。

aeo

http://www.xdcad.net/forum/showthread.php?s=&threadid=456222
用3 或4楼的拆分一下

yjtdkj

最初由 yshf 发布
[B];请试用以下测试程序：
;Command: cc
;kk=0
;
;Command: cc
;kk=1
;
;H=500  B=200  TW=10  T1=20  T2=20
;H=600  B=300  TW=10  T1=20  T2=20
;H=450  B=180  TW=10  T1=12  T2=12
;H=300  B=150  TW=6  ... [/B]

2楼可能对我的要求的理解有点偏差，
我的要求是：当LISP程序中变量KK=KL1时，通过读取这个文件使
LISP程序中的变量H、B、TW、T1、T2分别等于500、200、10、20、20

当LISP程序中变量KK=KL2时，通过读取这个文件使
LISP程序中的变量H、B、TW、T1、T2分别等于600、300、10、20、20

形成对应关系，不知能否实现？
还有一个要求就是能让程序象lsp文件一样不读取“；”后的字符串吗？(或者不读取文件的前面几行)

jyzas

如果数据是固定位置的，可以直接指定，程序就简单多了:)