basic - 无法从BBC基本工作中获取代码

  440 DEFPROCsave
  450 phonenos=OPENUP("Phonenos")
  470 PRINT
  480 FOR j= 1 TO counter
  490       PRINT#phonenos,contact{(j)}.name$,contact{(j)}.phone$,contact{(j)}.email$
  500   FOR f = 1 TO 10
  510     PRINT#phonenos,contact{(j)}.response%(1,f)
  520   NEXT f
  530
  540 NEXT j
  550 CLOSE#phonenos
  560 PRINT "Data saved."
  570 ENDPROC

用于从数据库保存详细信息的代码我正在尝试将我输入的内容保存到文件中，但是在第490行出现错误通道无效/

最佳答案

如果您的错误在第490行，则可能发生以下两种情况之一。

您的phonenos文件名未打开。

您可能试图从错误的位置访问该文件，该文件可能不存在，或者已被写保护。

您的contact数组引用了无效的索引项。

counter是否超出数组范围？这是基于零(0)或一(1)的数组吗？