[求助]：怎样读取data.ini文件中的数据

CADABC

怎样读取data.ini文件中的数据
L1x2        1.3
轻[12       2.3
I45              25
HN1X2        12
......
......
格式如上，
现用(setq a (getstring "\n请输入规格:"))
;输入轻[12 ,怎样定义变量b，使变量b等于data.ini文件中2.3
即b=2.3

aidraft

[php]
(defun c:test  (/ f lst)
  (setq f (open "c:\\cadfiles\\data.ini" "r"))
  (while (setq line (read-line f))
    (setq lst (cons (Parse_It line " ") lst))
    )
  (close f)
  (setq a (getstring "\n请输入规格："))
  (setq b (cadr (assoc a lst)))
  (if b (setq b (read b)))
  (princ "\nb = ")
  (princ b)
  (princ)
  )
;The following subr is written by Bill Kramer
(defun Parse_It         (inStr ;Input string to parse
                  Delim ;Delimeter character (or ascii code)
                  / Res ;Result list buffer
                  Inx ;Character location of delim in string
                  InxP ;Previous character location
)
;
; Verify DELIM is of the proper type
;
  (setq        Delim (if (= (type Delim) 'STR)
                (ASCII Delim) ;Convert character to integer
                (if (/= (type Delim) 'INT) ;is it integer?
                  32 ;then use space
                  (if (> 0 Delim 256)
                    Delim
                    32
                    )
                  )
                )
;
; Set up parameters for string search loop
;
        Inx   (VL-String-Position Delim inStr 0)
        InxP  -1
        )
;
  (while (and Inx (< Inx (strlen inStr)))
    (setq Res
               (cons (substr inStr (+ 2 InxP) (- Inx InxP 1))
                     Res
                     )
          InxP Inx
          Inx  (VL-String-Position Delim inStr (1+ InxP))
          )
    )
  (setq Res (cons (substr inStr (+ 2 InxP)) Res))
  (reverse Res)
  )
;
[/php]

CADABC

aidraft  你能不能送佛送到西，再调试一下，我运行老有以下提示。
命令: test ; 错误: 参数类型错误: FILE nil

oyxx_1023

文件为空，估计是文件路径不对吧。补充一下，是指data.ini文件路径不对。(setq f (open "c:\cadfiles\data.ini" "r"))

CADABC

我是按这来定的，应该不会错。
c:\cadfiles\data.ini

oyxx_1023

你把“c:\cadfiles\data.ini”改成c:\\cadfiles\\data.ini试试看。

CADABC

行了，谢谢你oyxx_1023
同时也谢谢aidraft
送两位艳花各一朵