输入错误的回退问题

CADghost

当在lisp中提示输入后，发现自己上一条输入错了，怎么退回重输呢？


比如：


(setq a (getint "\n请输入一个整数:"))


想输入“1”，却按了“5”。怎么处理？

meflying

这是程序结构设计问题，只能你自己解决，


initget函数可以控制一些输入，如果输入错误，将返回重新输入，但无法区别1和5的

CADghost

是啊，i<EM>nitget只能控制输入是同一类型，但不能区分数啊</EM>


<EM>但是比如说我可不可以输入一个特定的字符就返回到上一次操作呢？</EM>


<EM>比如PLine发现错误后按U就可以取消这一点的输入</EM>

meflying

已经说过了，这是程序结构设计问题，要你自己去做的。。。


就比如按你说的。。。


(setq a (getint "Enter a int:"))


(if (= (strcase (getstring "Right?(y\n)&lt;y&gt;:")) "N") (setq a (getint "Enter a int:")))


等等，你可以设计别的样式，这是学习编程基础的东西（注：不仅仅是指LISP语言，所有的语言，这样的结构设计应该最基本的，学习编程语言，语法不是主要的，程序结构的设计才是最重要的。。。）

无痕

机器怎么会知道你想要的是1而不是5？

wzh

要想减少输入错误，最有效的办法就是使用对话框。

meflying

最主要的还是要搞清楚输入的是什么，对话框只是显示效果好一点，对输入的控制一点作用都没有，所有的控制还是得靠程序控制，


如下，仅能输入1-5之间的整数：


(while (or (&lt; (setq a (getint "输入一个数:")) 1) (&gt; a 5)))

wzh

我指的是当输入较多数据时最容易出错，如果用对话框就可以在按确认键之前随时修改错误，降低错误的几率。当然，用程序控制从理论上讲是最好的，可象1和5这样的错误程序能控制吗？如果你的控制条件为1→4，结果错按了2键，怎么办？总不能一个数一个控制条件吧？

CADghost

确实也不可能每一条输入的函数都用这个控制，看来真得动动脑筋了

mccad

建议：如果不嫌烦的话，就在程序中做个输入确认项，如：

1. 输入数值[1-4]<3>：4
2. 是否确定输入数值为4[是(Y)/否(N)]<是>:

复制代码

呵呵，这样是不是觉得很烦。