有没有一种方法可以在读取特定字符后停止继续读取字符

Question

我只是想知道，当接受用户输入时，你得到了某个字符，有没有办法阻止read char读取输入中的其余字符。

出现这个问题是因为这是一个循环，我只需要读取第一个字符，然后移动并提示到一个新的输入。

如果有任何帮助，我们将不胜感激？

Answer 1

read char只会从特定端口读取一个字符。所以问题出在程序控制流中。如果没有任何源代码，就不可能真正确定问题可能在哪里

读取某个字符的一种方法是：

;; this function reads characters from port
;; until the character k is reached
;; all characters before k will be returned as one string
(define (read-until-k port)
(let loop ((current-chr (read-char port))
(output-string ""))
(cond
((eof-object? current-chr) output-string)
((eq? current-chr #k) output-string)
(else
(loop (read-char port)
(string-append output-string 
(string current-chr)))))))