excel - 如何重新启动文件输入循环

Question

我在 VBA 中有这个示例代码:

   iFileNum = FreeFile()
   Open fileLocation For Input As #1
   Do While Not EOF(iFileNum)
     Line Input #iFileNum, sText

   Loop

如何重新启动 iFileNum 以返回到文件的开头？

Answer 1

我相信你可以使用它:

    If EOF(fileNum) Then
        Seek fileNum, 1
    End If

Seek 命令将指针移动到文件中的任何位置.. 所以 1 将指针移动到文件的开头。

仍然需要考虑上面的 Ho1 答案。