[求助][0705]如何取出参考表的对照资料?

xyz518mm

[求助][0705]如何取出参考表的对照资料?
请问如何才能取出这样的参考表资料呢?

参考表资料 如: DATA.txt 排列为:
  20 40 60 80
A 81 65 35 68
B 92 93 25 79
C 75 68 11 95

如要取出 DATA.txt 中的 A 与 40 相交位置的 65 值,
该怎样作呢?
请各位版主及高手可以解答一下~
谢谢~

snoopychen

首先查出40的位置
然后用assoc A来查询，当然，[先要把表变成点对的格式]---这句话写错了，不好意思

(setq a (list (list "A" 3 4 5) (list "B" 3 4 5)))
(assoc '"A" a)

橄榄滋味

(vl-position 40 '(20 40 60 80)) retuns 1
(nth 1 '(81 65 35 68)) retuns 65

tctabc

请教一下
这问题如何将这txt档案内容读入成为
(0 . 20 40 60 80)
(A . 81 65 35 68)
(B . 92 93 25 79)
(C  .75 68 11 95)
形式呢?
烦请各位解答一下~
谢谢~

xyz518mm

[PHP]
;无痕的函数
(defun str2lst (str /)
(read (vl-list->string (apply 'append
(mapcar '(lambda (x)
           (if (= 32 x)
            (list 34 32 34)
            (list x)
           ) ;_ 结束if
           )
  (append (list 40 34)
   (vl-string->list str)
   (list 34 41)))
)))
)
[/PHP]


(setq ffk nil)
(setq kaka nil)
(setq lst nil)
(setq ffk (open "c:\\data.txt" "r"))
(setq kaka (read-line ffk))

(while kaka
(if (= lst1 nil)
(setq lst (list(str2lst kaka)))
(progn
(setq lst1 (list(str2lst kaka)))
(setq  lst (append lst lst1))
)
)
(setq kaka (read-line ffk))
)

请教我得到的是如此的结果

[0] ("0" "20" "40" "60" "80")
[1] ("A" "81" "65" "35" "68")
[2] ("B" "92" "93" "25" "79")
[3] ("C" "75" "68" "11" "95")
如我要得到像这样的 ("A" 3 4 5) 结果
或是 (20 40 60 80))  这样的结果
该怎样编写呢?

烦请各位帮忙一下
谢谢