Leggere file di testo (era: [File di testo])

[IKON]

Salve ragazzi,
Devo fare un programmino che legge un file di testo. Visto che non ho molt dimestichezza con i file di testo mi chiedevo se qualcuno di voi potrebbe darmi una mano
Il file è così composto

Cod1 Descrizione1 Prezzo1
Cod2 Descrizione2 Prezzo2
.................................................. ................
Cod-n Descrizione-n Prezzo-n

15 caratteri per il codice
35 caratteri per la descrizione
9 caratteri per il prezzo (compreso il separatore decimale)

Mi servirebbe sapere come faccio a leggere i tre campi in tre variabili.
Non dovrebbe essere troppo difficili per chi è abituato a lavorare su questi tipi di file...

Grazie.

[Markho]

dai un occhio alla guida e quardati i comandi

Write #filenumber, [outputlist]
Print #filenumber, [outputlist]
Input #filenumber, varlist

[IKON]

OK ci sono riuscito in parte.

Ho aperto il file in questo modo

Open file For Random As #1 Len = 61

ora vorrei fare un ciclo dal 1° all'ultimo record del file di testo, ma non so come si fa ad indicare il numero di record del mio file.

Dovrei scrivere una cosa del tipo

Do While Pos <= nRecord
Get #1, pos,

Dove a è una stringa di 60 caratteri; nRecord come lo reperisco?

[Mabi]

Se il file di testo che devi leggere l'hai scritto da programma con la Write allora è più facile da gestire:

Dim NomeFile As String

Dim Var1 As String
Dim Var2 As String
Dim Var3 As String

NomeFile = "C:\prova.txt"

Open NomeFile For Input As #1
  Do Until EOF(1)
    Input #1, Var1, Var2, Var3
    Var1 = Trim(Var1)
    Var2 = Trim(Var2)
    Var3 = Trim(Var3)
    MsgBox Var1 & " " & Var2 & " " & Var3
  Loop
Close #1

Se invece il file è scritto in modo diverso devi dividere la singola riga nelle tue variabili:

Dim NomeFile As String

Dim Riga As String
Dim Var1 As String
Dim Var2 As String
Dim Var3 As String

NomeFile = "C:\prova.txt"

Open NomeFile For Input As #1
  Do Until EOF(1)
    Line Input #1, Riga
    Var1 = Trim(Mid(Riga, 1, 15))
    Var2 = Trim(Mid(Riga, 16, 35))
    Var3 = Trim(Mid(Riga, 52, 9))
    MsgBox Var1 & " " & Var2 & " " & Var3
  Loop
Close #1

[jabjoint]

OK ci sono riuscito in parte.

Ho aperto il file in questo modo

Open file For Random As #1 Len = 61

ora vorrei fare un ciclo dal 1° all'ultimo record del file di testo, ma non so come si fa ad indicare il numero di record del mio file.

Dovrei scrivere una cosa del tipo

Do While Pos <= nRecord
Get #1, pos,

Dove a è una stringa di 60 caratteri; nRecord come lo reperisco?

Dim nRecord as String
cosi: String$(nRecord,300)
Get,,nRecord