Buonasera a tutti, sto realizzando un programmino che legge un file ascii con i campi che seguono un tracciato ben preciso, scomposto su più righe: sostanzialmente il file è composto così
1° riga: data registrazione
2° riga: dati di fattura (n°doc, data fatt, cod.cliente, ecc)
...
...
5° riga: vuota. Segna la fine del record, dalla 6° riga si ricomincia daccapo.
Ora, le mie domande sono due: supponiamo che sulla 2° riga, composta da 10 campi, a me interessino i primi 8, letti i quali posso già andare a capo, come faccio?
Domanda 2: arrivato alla 5° riga, come reimposto il ciclo per ricominciare a leggere?

Posto il codice scritto finora:
codice:
Open "c:\ft_fm4.dat" For Input As #1
Dim riga As String

Do
    Line Input #1, linea
    'Estraggo la data registrazione dalla prima linea
    'Inizio Campi Testata
    asteriscotestata = Mid(linea, 1, 6)         'Scartare
    datareg = Mid(linea, 7, 10)                 'Data Registrazione
    contospeseinc = Mid(linea, 17, 9)           'Conto Spese Incasso
    contospesebol = Mid(linea, 26, 9)           'Conto Spese Bolli
    contospesetra = Mid(linea, 35, 9)           'Conto Spese Trasporto
    contospeseimb = Mid(linea, 44, 9)           'Conto Spese Imballo
    contospesevar = Mid(linea, 53, 9)           'Conto Spese Varie
    blanktestata1 = Mid(linea, 62, 45)          'BLANK
    ivaspeseinc = Mid(linea, 107, 2)            'Codice Iva Spese Incasso
    ivaspesebol = Mid(linea, 109, 2)            'Codice Iva Spese Bolli
    ivaspesetra = Mid(linea, 111, 2)            'Codice Iva Spese Trasporto
    ivaspeseimb = Mid(linea, 113, 2)            'Codice Iva Spese Imballo
    ivaspesevar = Mid(linea, 115, 2)            'Codice Iva Spese Varie
    numftiniziale = Mid(linea, 117, 6)          'Da numero fattura
    numftfinale = Mid(linea, 123, 6)            'A numero fattura
    numpartita = Mid(linea, 129, 1)             '"S"=Partita con anno
    blanktestata2 = Mid(linea, 130, 1)          'BLANK
    'Fine Campi Testata
    
    'Inizio Campi Record Fatture
    numfattura = Mid
Loop Until EOF(1)
Grazie a tutti in anticipo per l'aiuto