PDA

Visualizza la versione completa : File di testo come database


Willy99
12-11-2002, 15:54
Ciao a tutti,

ho un problemino con questo programma che sto scrivendo:

ho due file TXT chiamati uno.txt e due.txt

il file uno.txt contiene un elenco di dati con delimitatore ; cosė
uno;verde;1999
uno;verde;1998
due;giallo;200
due;giallo;201

Ora io desidero che il programma apra questo file (uno.txt) trovi partendo dall'inizio le righe che COMINICIANO con uno e copi tutta la riga nel file due.txt

Che comando devo usare per dire di leggere di ogni riga solo i primi tre (o pių caratteri?)
Posto il codice scritto fino ad ora, funziona ma solo se metto tutto il contenuto della riga, di conseguenza mi copia solo una riga che comincia con uno poichč le altre non le riconosce.

Mi consigliate che fare??


Private Sub Command3_Click()
Dim riga As String

Open "uno.txt" For Input As #1 'Apre il file

Do While Not EOF(1) 'Ripete fino alla fine del file

Line Input #1, riga

If riga = "uno" Then
Open "due.txt" For Append As #2 'Apre il file
Print #2, riga
Close #2
End If
Debug.Print riga
Loop
Close #1

End Sub

:cry: :cry:

ddies
12-11-2002, 16:00
If Ucase(left(riga,3)) = "UNO" Then
Open "due.txt" For Append As #2 'Apre il file
Print #2, riga
Close #2
End If
Debug.Print riga
Loop
Close #1

Willy99
12-11-2002, 16:22
Grazie mille, funziona

:quote: :quote: :quote:

Loading