RESTORE

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgRestore
• 最后更新: 2017-09-29

---

更改由 Data 语句存储的值的下一个读取位置。

语法

Restore [label]

描述

将下一个待读数据指针设置为标签之后第一条 Data 语句的第一个元素。标签必须与当前执行代码位于同一模块中。Restore 改变了 Data 被 Read 的正常从上到下的顺序，允许重新读取某些 Data 或在单个模块中使用多组 Data。

如果省略标签，则将下一个待读数据指针设置为模块中第一条 Data 语句。

示例

start GeSHi

' 创建2个整数数组和2个字符串来保存数据。
Dim h(4) As Integer
Dim h2(4) As Integer
Dim hs As String
Dim hs2 As String
Dim read_data1 As Integer
Dim read_data2 As Integer

' 将数据读取位置设置为标签 'dat2:'
Restore dat2

' 设置循环5次（对应5个数字……查看数据）
For read_data1 = 0 To 4

  ' 读取一个整数。
  Read h(read_data1)

  ' 显示它。
  Print "Bloc 1, number"; read_data1;" = "; h(read_data1)

Next

' 空行。
Print

' 读取一个字符串。
Read hs

' 打印它。
Print  "Bloc 1 string = " + hs

' 空行。
Print
Print

' 将数据读取位置设置为标签 'dat1:'
Restore dat1

' 设置循环5次（对应5个数字……查看数据）
For read_data2 = 0 To 4

  ' 读取一个整数。
  Read h2(read_data2)

  ' 显示它。
  Print "Bloc 2, number"; read_data2;" = "; h2(read_data2)

Next

' 空行。
Print

' 读取一个字符串。
Read hs2

' 打印它。
Print  "Bloc 2 string = " + hs2

' 等待按键。
Sleep

' 退出程序。
End

' 第一组数据。
dat1:
Data 3, 234, 4354, 23433, 87643, "Bye!"

' 第二组数据。
dat2:
Data 546, 7894, 4589, 64657, 34554, "Hi!"

end GeSHi

与QB的差异

• 无

参见

• Data
• Read
• Labels

返回 目录