qbasic - 如何知道QBasic中最后打印的文本

Question

我想知道如何获取QBasic中最后打印的文本。就像如果程序打印了几行，那么如何打印最后一行。

像这样-

Print "aaaaaaa"
Print "bbbbbbb"

然后程序将获得最后打印的行，即bbbbbbbb

Answer 1

也许是这样的？

str$ = "aaaaaaa"
PRINT str$
str$ = "bbbbbbb"
PRINT str$
PRINT "last printed line:"; str$

或者，如 explained here ，您可以通过在 &HB800 段使用 PEEK 从屏幕内存中检索字符，所以像这样

DEF SEG = &HB800
mychar = PEEK(1) 'etc

您必须跟踪最后打印的行，才能知道您到底需要 PEEK 的位置，因此这可能很快就会变得非常复杂......

出于这个原因，我建议您重新思考您到底想在这里完成什么，因为像这样的“屏幕抓取”通常只是一个坏主意。