从文本文件中读取行但跳过前两行

Question

我在 Microsoft Office Word 2003 中有这个宏代码，它可以读取文本文件的行。 每行代表一个字符串值，我稍后需要在代码中使用它。

但是，文本文件的前两行包含一些我不需要的内容。 如何修改代码以使其跳过前两行？ 顺便说一句，Word 中的 VBA 编辑器中的“智能感知”很糟糕。

无论如何，代码看起来像这样，

Dim sFileName As String
Dim iFileNum As Integer
Dim sBuf As String
Dim Fields as String

sFileName = "c:\fields.ini"
''//Does the file exist?
If Len(Dir$(sFileName)) = 0 Then
    MsgBox ("Cannot find fields.ini")
End If

iFileNum = FreeFile()
Open sFileName For Input As iFileNum
Do While Not EOF(iFileNum)
    Line Input #iFileNum, Fields

    MsgBox (Fields)

并且此代码当前为我提供了所有行，而我不想要前两行。

Answer 1

整个 Open <文件路径> 对于输入为，事情是so 1990 年代。 它也很慢并且很容易出错。

在 VBA 编辑器中，从“工具”菜单中选择“引用”，然后查找“Microsoft 脚本运行时”(scrrun.dll)，它几乎可以在任何 XP 或 Vista 计算机上使用。 它就在那里，选择它。 现在您可以使用（至少对我来说）更强大的解决方案：

With New Scripting.FileSystemObject
    With .OpenTextFile(sFilename, ForReading)

        If Not .AtEndOfStream Then .SkipLine
        If Not .AtEndOfStream Then .SkipLine

        Do Until .AtEndOfStream
            DoSomethingImportantTo .ReadLine
        Loop

    End With
End With

Answer 2

您可以使用随机访问。

Open "C:\docs\TESTFILE.txt" For Random As #1 

    Position = 3    ' Define record number.
    Get #1, Position, ARecord    ' Read record.

Close #1

Answer 3

Open sFileName For Input As iFileNum

Dim LineNum As Long
LineNum = 0

Do While Not EOF(iFileNum)
  LineNum = LineNum + 1
  Line Input #iFileNum, Fields
  If LineNum > 2 Then
    DoStuffWith(Fields)
  End If
Loop

Answer 4

也许我过于简单化了？

只需添加以下代码：

Open sFileName For Input as iFileNum
Line Input #iFileNum, dummy1
Line Input #iFileNum, dummy2
........

Sundar

Answer 5

Dim sFileName As String
Dim iFileNum As Integer
Dim sBuf As String
Dim Fields as String
Dim TempStr as String

sFileName = "c:\fields.ini"
''//Does the file exist?
If Len(Dir$(sFileName)) = 0 Then
    MsgBox ("Cannot find fields.ini")
End If

iFileNum = FreeFile()
Open sFileName For Input As iFileNum

''//This part skips the first two lines
if not(EOF(iFileNum)) Then Line Input #iFilenum, TempStr
if not(EOF(iFileNum)) Then Line Input #iFilenum, TempStr

Do While Not EOF(iFileNum)
    Line Input #iFileNum, Fields

    MsgBox (Fields)
Loop