[VB6] escludere righe da un file txt in lettura

[sintax_error]

Ciao

Open apply & "menu\pics\fx.001" For Input As 1
Dim cnt4, iRows
Cnt = 0
Do While Not EOF(1)
   Line Input #1, stringa
   Textmain.Text = Textmain.Text & stringa & vbCrLf
   cnt4 = cnt4 + 1
   If cnt4 = 19 Then Exit Do
Loop
Close #1

questo codice mi legge un file txt ,io ho bisogno di escludere le prime 2 righe e ultima riga.

come se fa?

[Mabi]

Prova così:

Dim FileName As String
Dim Riga As String
Dim Cont1 As Long
Dim Cont2 As Long

FileName = "C:\DOC.TXT"
Open FileName For Input As #1
  Do Until EOF(1)
    Line Input #1, Riga
    Cont1 = (Cont1 + 1&)
    Cont2 = (Cont2 + Len(Riga) + 2&)
    If (Cont1 > 2&) Then
      '...esclude le prime 2 righe
      If (Cont2 <> (FileLen(FileName) + 2&)) Then
        '...esclude l'ultima riga
        MsgBox Riga
      End If
    End If
  Loop
Close #1