Read lines from a text file but skip the first two lines

Question

I ve got this macro code in Microsoft Office Word 2003 which reads the lines of a text file  The lines each represent a string value that I need to use later in the code   However  the first two lines of the text file contains some stuff that I don t need   How can I modify the code so that it skips the two first lines  The  Intellisense  within the VBA editor in Word sucks hard btw    Anyway  the code looks something like this  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    And this code currently gives me all of the lines  and I don t want the first two

User · Answer

You can use random access   Open  C  docs TESTFILE txt  For Random As  1       Position   3      Define record number      Get  1  Position  ARecord      Read record   Close  1

User · Answer

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

User · Answer

May be I am oversimplifying   Just add the following code   Open sFileName For Input as iFileNum Line Input  iFileNum  dummy1 Line Input  iFileNum  dummy2            Sundar

User · Answer

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  gt  2 Then     DoStuffWith Fields    End If Loop

User · Answer

That whole Open  lt file path gt  For Input As  lt some number gt  thing is so 1990s  It s also slow and very error-prone   In your VBA editor  Select References from the Tools menu and look for  Microsoft Scripting Runtime   scrrun dll  which should be available on pretty much any XP or Vista machine  It it s there  select it  Now you have access to a  to me at least  rather more robust solution   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

[vba] Read lines from a text file but skip the first two lines

Examples related to vba

Examples related to excel

Examples related to ms-word

Examples related to text-files