我试图在程序末尾获取整个控制台文本并将其保存为字符串变量。然后在我将字符串变量保存为文本文档之后。解决这个障碍的最佳方法是什么?谢谢!
1 回答
2
我认为这个解决方案可能有助于解决您的问题。
下面的 Qbasic 代码需要一个文本文件来读取,它读取并在屏幕上打印文件的前 9 行,然后将前 10 行的内容复制到控制台的后半部分,从屏幕内存中读取字符.
SCREEN 0
INPUT "File name: ", fname$
OPEN fname$ FOR INPUT AS #1
x = 9
WHILE NOT EOF(1) AND x <> 0
INPUT #1, x$
PRINT x$
x = x - 1
WEND
CLOSE #1
PRINT "----------------------------------"
REM HERE THE PROGRAM READS THE SCREEN
LOCATE 12, 1
FOR y = 1 TO 10
FOR x = 1 TO 80
PRINT CHR$(SCREEN(y, x, 0));
NEXT x
NEXT y
于 2020-06-15T18:08:12.853 回答