ecco l'algoritmo attuale:
codice:
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("testfile.txt", True)

Dim record As String
Open "bv0103.txt" For Input As #1
Do While Not EOF(1)
   If Left(record, 3) <> "500" Then
      Line Input #1, record
   End If
   If Left(record, 3) = "500" Then
      cont = cont + 1
      Label1.Caption = cont
      a.writeline (Trim(Mid(record, 43, 19)) & vbTab & Trim(Mid(record, 16, 25)))
      Line Input #1, record
      Do While Not Left(record, 3) = "500"
         If Left(record, 3) = "515" Or Left(record, 3) = "534" Or Left(record, 3) = "505" Or Left(record, 3) = "532" Then
            a.writeline (" - " & record)
         End If
         Line Input #1, record
      Loop
   End If
Loop
Close #1
a.Close
Alla fine però mi va in errore su l'ultimo comando line imput...perchè è finito il file txt.
Come posso risolvere questo problema??
(Penso che i line imput possano essere scritti in altro modo ma non lo riesco a vedere, magari un occhio esterno....)