我要疯了

Question

nNode = 0
Open TheInFileNode For Input As #1
Do While Not EOF(1)
    Line Input #1, LineTemp
    nNode = nNode + 1
Loop
Close (1)ReDim LonNode(1 To nNode), LatNode(1 To nNode), NoNode(1 To nNode)
Open TheInFileNode For Input As #1
For I = 1 To nNode
    Input #1, LatNode(I), LonNode(I), LineTemp
    NoNode(I) = Val(LineTemp)
Next I
Close (1)
谁可以帮我解释一下这段代码阿？？

Answer 1

Input 函数示例
本示例使用 Input 函数来一次读文件中一个字符，并将它显示到立即窗口。本示例假设 TESTFILE 文件内含数行文本数据。Dim MyChar
Open "TESTFILE" For Input As #1   ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   MyChar = Input(1, #1)   ' 读入一个字符。
   Debug.Print MyChar   ' 显示到立即窗口。
Loop
Close #1   ' 关闭文件。
___________________________________________________________________ReDim 语句示例
该示例使用 ReDim 语句为动态数组变量分配和重分配存储空间。假设 Option Base 是 1。Dim MyArray() As Integer   '声明动态数组。
Redim MyArray(5)   '分配 5 个元素。
For I = 1 To 5   '循环 5 次。
   MyArray(I) = I   '初始化数组。
Next I下一条语句重定义该数组的大小，并清除其中的元素。Redim MyArray(10)   '大小重定为 10 个元素。
For I = 1 To 10   '循环 10 次。
   MyArray(I) = I   '初始化数组。
Next I下面的语句重定义该数组的大小，但没有清除其中的元素。Redim Preserve MyArray(15)   '大小重定为 15 个元素。

Answer 2

input #1 语句只有两个参数，你这里写错了吧？？？？

Answer 3

nNode = 0
Open TheInFileNode For Input As #1     '打开文件TheInFileNode 以读取
Do While Not EOF(1)          '如果文件没有读完（即每到末尾）
    Line Input #1, LineTemp  '读取文本的一行字符串到变量LineTemp 中，读取游标移到下行
    nNode = nNode + 1        '已读取的行号累加一
Loop
Close (1)                    '关闭文件