输入错误的回退问题

CADghost · 发表于 2004-6-14 08:36:00

当在lisp中提示输入后，发现自己上一条输入错了，怎么退回重输呢？
比如：
(setq a (getint "\n请输入一个整数:"))
想输入“1”，却按了“5”。怎么处理？

meflying · 发表于 2004-6-14 13:33:00

这是程序结构设计问题，只能你自己解决，
initget函数可以控制一些输入，如果输入错误，将返回重新输入，但无法区别1和5的

CADghost · 发表于 2004-6-14 14:47:00

是啊，initget只能控制输入是同一类型，但不能区分数啊
但是比如说我可不可以输入一个特定的字符就返回到上一次操作呢？
比如PLine发现错误后按U就可以取消这一点的输入

meflying · 发表于 2004-6-14 16:07:00

已经说过了，这是程序结构设计问题，要你自己去做的。。。
就比如按你说的。。。
(setq a (getint "Enter a int:"))
(if (= (strcase (getstring "Right?(y\n):")) "N") (setq a (getint "Enter a int:")))
等等，你可以设计别的样式，这是学习编程基础的东西（注：不仅仅是指LISP语言，所有的语言，这样的结构设计应该最基本的，学习编程语言，语法不是主要的，程序结构的设计才是最重要的。。。）