对应数据提取的问题

霸道的温柔

有如下的两个TXT文件 (在英文字母与数字间有一个空格)


1.文件名为A.txt





ABB 11


ABC 12


ACB 13


......


2.文件名为C.txt


CCB 14


CBA 16


...


在LSP中怎么样才能最简便的输入ABC,然后返回Ａ.txt文件中与之对应的数值12


输入ＣＣＢ然后返回c.txt中与之对应的１４呢?

meflying

要保证两个文件在搜索路径里面（如AUTOCAD的安装目录）

2. (defun c:test( / f str)
3.    (setq str (getstring "输入字母:"))
4.    (setq f (open (strcat (substr str 1 1) ".txt") "r"))
5.    (setq str (strcase str))
6.    (while (and (setq rl (read-line f)) (/= (read rl) (read str))))
7.    (close f)
8.    (if rl
9.        (princ (cadr (read (strcat "(" rl ")"))))
10.        (princ "找不到!")
11.    )
12.    (princ)
13. )

(defun c:test( / f str)    (setq str (getstring "输入字母:"))    (setq f (open (strcat (substr str 1 1) ".txt") "r"))    (setq str (strcase str))    (while (and (setq rl (read-line f)) (/= (read rl) (read str))))    (close f)    (if rl        (princ (cadr (read (strcat "(" rl ")"))))        (princ "找不到!")    )    (princ) )

霸道的温柔

谢谢你,MEFLYING


请问怎么可以新建一个TXT文件而不返回任何提示呢?