时间戳

首页 > 解决方案 > 我可以把整个控制台保存为字符串变量吗？

basic - 我可以把整个控制台保存为字符串变量吗？

问题描述

我试图在程序末尾获取整个控制台文本并将其保存为字符串变量。然后在我将字符串变量保存为文本文档之后。解决这个障碍的最佳方法是什么？谢谢！

标签： basicqb64

解决方案

我认为这个解决方案可能有助于解决您的问题。

下面的 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

推荐阅读