求助，或取外部文件

hjiea

例如，在我的Ｄ盘下有一个名为Ｒp.txt的记事本，内容如下

;RP.TXT
SIZE  D   B   H
R12   12  17  8
R15   15  20  8
R16   16  21  8
R20   20  25  8
R25   25  30  8
R30   30  35  8


请问我如何能够读取其中一行的数据，条件是通过用户输入SIZE的内容，而得到D B H项所对应的数据

例如输入Ｒ１５　就能得到D 15 , B 20, H 8

请问应如何写程式，能有参考的话更好，

在这先谢了

caoyin

(defun test (size / f lin)
(setq f (open "d:\\Rp.txt" "r") size (strcat Size "*"))
(while (not (wcmatch (setq lin (read-line f)) size)))
(mapcar 'set '(D B H) (cdr (read (strcat "(" lin ")"))))
(close f)
)

(test "R12")

!d

  12

!b

  17

!h

   8

ljttjl

如未解决的话,联系:ljttjl@ tom.com