关于(setq blfh (getstring " \n输入字符串:"))的问题
www.dimcax.com
关于(setq blfh (getstring " \n输入字符串:"))的问题
(setq blfh nil)
(print blfh )
(while (null blfh)
(setq blfh (getstring " \n输入字符串:"))
(print blfh )
(if (null blfh) (print "禁止空输入!" ))
);while
资料上说的如果仅用enter键响应(getstring " \n输入字符串:"))返回nil,我用试了并不打印“nil”是是两个双引号。
第一次用到字符串输入问题,请大家帮忙指点一下,谢谢!
关于getstring 是一个字符窜输入函数
1.回车是""不是nil
2.(setq blfh (getstring 2 "\n输入字符串:" )) 在提示符前有值可输入空格.
3.(setq blfh (getstring "\n输入字符串:" ) 在提示符前无值不可输入空格.
(defun c:tt ()
(setq a 1)
(while a
(setq blfh (getstring a " \n输入字符串:" ))
(if (/= blfh "")(print blfh )(setq a nil))
);while
)
gbg
多谢版主指点,在您的指点下我掌握了它的用法。再次感谢!并祝您在新的一年里,身体健康,心情愉快!