[求助]：怎样定义，才能输入空格

CADABC

用(setq GG(getstring "\n规格:"))
怎样才能输入空格.如输入：机 257

ll_j

这样：
(setq GG(getstring t "\n规格："))

CADABC

谢谢，ll_j
我还个问题：
当我用规格来，读取data.dat文件内数据时，如果不带空格我就能读出来，如：机257 1 2.587,将得的我要的数据，2.587。带了空格就不能读了，如：机 257 2.587，就不到我的数据2.587。
请指点一下思路。

ll_j

使用 read-line 可以读取一整行，读出的结果是字符串，如果有多项，可以使用以下语法处理成表：

1. (read (strcat "(" 字符串 ")"))

复制代码

不过表中除数字串外，其他项均为符号SYM，不再是字符串，好再使用VLisp函数 vl-prin1-to-string 可以转换，如：

2. 命令: (strcat (car (read "(机 23 454)")) "as")
   
3. ; 错误: 参数类型错误: stringp 机
   
4. 命令: (strcat (vl-prin1-to-string (car (read "(机 23 454)"))) "as")
   
5. "机as"

命令: (strcat (car (read "(机 23 454)")) "as")<br /> ; 错误: 参数类型错误: stringp 机<br /> 命令: (strcat (vl-prin1-to-string (car (read "(机 23 454)"))) "as")<br /> "机as"

CADABC

(defun C:test (/ ff a line)
  (setq data nil)
  (setq ff (open "c:\\data.ini" "r"))
  (setq a (strcase (getstring t "\n请输入规格:")))
  (while (setq line (read-line ff))
    (if        (= (read line) (read a))
      (progn
        (setq data (read (read-line ff)))
      )
    )
  )
  (close f)
  (princ data)
  (princ)
)

以上我是试编的程序,不知错在什么地方.请指点.
我的data.ini格式为:
机 258
2.587
机 259
3
机 260
5.68

如我输入规格为:机 258
data=2.587

ll_j

用 read-line 和 getstring 得到的都是字符串，不需要 read 即可进行比较，所以“(if (= (read line) (read a))”一句可以直接使用“(if (= line a)”试试。
对包含空格的字符串，如果不是表达为“表”的形式（如"(a b c)"），直接使用 read 只保留最前面的一项，后面都截除，所以无法判断。

CADABC

ll_j,按你说的改成(if(= (read a))还是不行.
如果在(setq data (read (read-line ff)))后加入(setq b  (read data))，提示; 错误: 参数类型错误: stringp 0.889
我用(numberp data),返回T,不是字串。

ll_j

是“(if (= line a)”，不是“(if(= (read a))”，这里 Line 是字符串，read 以后当然不是字符串。

CADABC

行了,再三谢谢你的指点,和学习你的仔细.