syntax-error - Qbasic : illegal file number in *line number*

Question

我正在用GW-BASIC编写程序。由于某些原因，我出现以下错误:

"Numéro de fichier illégal en 4712"

可以翻译成英文，

" illegal file number in 4712"

这是我的代码的一部分:

51 Chemin$ = "T:\Basic\Calculs\" + NF$

52 ON ERROR GOTO 60
53 MKDIR Chemin$
54 END

... ( a lot of code not important to solve this problem :) )

4711 CHDIR Chemin$
4712 OPEN "Intdrcrc.doc" FOR APPEND AS #3
4712 PRINT #3,       "*---------------------------------------------------------------------------------------------------------------*"
4713 PRINT #3, USING "* Centre ##### \        \#######.### #######.### Intersect Droite Cercler                                       *";IC,NC$,XC#,YC#
4714 PRINT #3, USING "* Point  ##### \        \#######.### #######.### R=#######.###                                                  *";IP,NP$,XP#,YP#,R#
4715 PRINT #3, USING "* 1er Intersection  M1                                            #####  \        \ #######.###   #######.###   *";I1,N1$,XM1#,YM1#
4716 PRINT #3, USING "* 2e  Intersection  M2                                            #####  \        \ #######.###   #######.###   *";I2,N2$,XM2#,YM2#
4717 PRINT #3,       "*---------------------------------------------------------------------------------------------------------------*"
4718 CLOSE #3
4719 CHDIR "T:\Basic"

我在前几行中遇到了同样的问题，所以我更改了 # after "APPEND"，但是在这里，在 line 4712上，更改＃不能解决问题。

我希望我足够清楚

非常感谢您的建议!

:)

Answer 1

似乎Intdrcrc.doc文件不存在(尽管如果不查看其余代码，我无法确定这一点)。

您可以尝试的是

用OPEN "Intdrcrc.doc" FOR APPEND AS #3替换OPEN "Intdrcrc.doc" FOR OUTPUT AS 3并尝试是否给出错误。当然这只是为了测试。您稍后应恢复为APPEND。我们想看看OUTPUT是否消除了错误。如果是这样，则可能意味着该文件不存在，正如您期望的那样。

其次，您需要在 OPEN命令之后实现一些 错误处理。

你可以做的就是这样

 4710 ...
 4711 SHARED errorflag
 4712 OPEN "Intdrcrc.doc" FOR APPEND AS 1
 4713 IF errorflag <> 0 THEN
 4714   errorflag = 0
 4715   CLOSE
 4716   PRINT "File not found - press return to continue."
 4717   INPUT "", a$
 4718   EXIT SUB
 4719 END IF
4720 PRINT #3,       "*------------------------------------------*"
4721 ...

以便我们知道，如果发生错误，还有更多信息。