Lettura di un semplice File.txt

[fenny]

Ciao a tutti,
premetto che non sono tanto bravo in visual basic quindi cercherò di spiegarmi il meglio possibile.

Io ho un file targhette.txt strutturato in questo modo che devo leggere e caricare i vari valori in variabili:

3
PIAGGIO.c8
B1 M200.X4
B4 CV
B8 750 G/MIN
B10 BERTONE
5
HONDA.x2
B2 NERO
B4 CV
B8 800 G/MIN
B9 DISCO/DISCO
B10 PININFARINA

-il primo valore (es. 3) in grassetto è un numero intero e indica quante volte la serie ad esempio PIAGGIO.c8 deve essere restituita. Come serie che deve essere restituita intendo i valori da PIAGGIO.c8 a B10
-PIAGGIO.c8 è una semplice stringa
-B1/10 sono delle stringhe e io nella variabile devo inserie solo la seconda parte (B1 M200.X4).

Non sò se mi sono spiegato bene...l'unica cosa che sono sicuro è che ho bisogno di un grosso vostro aiuto perchè come già ho accennato prima non sono bravissimo in vb e quindi sono in crisi

Grazie anticipatamente a chi mi aiuta!
Fenny

[darkblOOd]

se il tuo problema è leggere un file di testo intanto usa la ricerca del forum che se n'è parlato milioni di volte. Poi la tecnica da usare per elaborare i dati letti è un altro discorso

[gabcaly]

occorre elaborare una tecnica di estrazione dati, studia un pò le funzioni stringa, tipo INSTR , MID ecc. Poi se ci sono problemi vediamo che si può fare....



ecc. ecc.

[fenny]

si diciamo che l'apertura di un file txt è abbastanza semplice...(credo)

open "tuofile.txt" for input as #1

il problema è come inserire correttamente i valori in variabili e riuscire a restituirle in modo corretto. Sò che il metodo di usare classi e collezioni è la cosa più pulita ma ribadisco che in vb sono abbastanza ignorante
Fenny

[fenny]

Sarò io che cerco male ma non riesco a trovare un esempio che sia simile al mio problema ...per tanto chiedo sempre cortesemente se c'è qualcuno che mi può illustrare o se magari mi può dare un aiuto per questo progettino che dovrei finire entro stasere ^_^"....ehehe
Ciao a tutti
Grazie
Fenny

[allejo]

Una volta aperto il file devi fare il ciclo che arrivi fino alla fine del file.
Non mi ricordo come si fa.
e nel ciclo leggi riga x riga.
Comunque se trovo il codice te lo posto.

[allejo]

Ecco ho tovato il codice

Private Sub Command1_Click()
Dim riga As Integer
Dim record As String
Open "tuo file" For input As #1
While Not EOF(1)
Line Input #1, record
riga = riga + 1
'qui controlli se la riga è numerico
Wend
Close #1
End Sub