错误的文件名或号码（vb.net）

Question

我不知道我在做什么错，我的文件名“ example1.txt”遵循规则，但是我不断收到错误52：“文件名或数字错误”，我不确定做错了。

Imports System
Imports System.IO

Module Program
    Sub Main()
        Dim name() As String = {}
        Dim i As Integer = 0
        FileOpen(1, "example1.txt", OpenMode.Input)
        While Not EOF(1)
            name(i) = LineInput(i)
            Console.WriteLine(name(i))
            i += 1
        End While
        FileClose(1)
        Console.ReadLine()

    End Sub
End Module

Answer 1

这里的特定问题是，打开文件时指定文件号为1：

FileOpen(1, "example1.txt", OpenMode.Input)

但是读取行时使用不同的文件编号：

name(i) = LineInput(i)

您不是在告诉LineInput读取特定行。您要告诉它从特定文件中读取下一行。应该是：

name(i) = LineInput(1)

这是为什么您不应该在代码中使用幻数的示例。弄乱他们太容易了。如果出于相同的原因要在多个位置使用相同的值，请将其分配给变量或常量，然后每次都使用该值：

Dim fileNumber = 1

FileOpen(fileNumber, "example1.txt", OpenMode.Input)

While Not EOF(1)
    name(i) = LineInput(fileNumber)