Vb estrarre dati da un file .txt

[quartutek]

Ciao

è da un po che non lo uso più ma so che c'è un modo per estrarre i dati da un file txt in cui i campi vengono separati da ; . Io devo aggiornare una tabella access estraendo i dati da un file txt.

[Pieruccio]

Dim myfile As String
Dim Contenuto As String
Dim f, i As Integer
Dim strArr() As String

f = FreeFile
myfile = "C:\Test.TXT"
Open myfile For Input As f
Do While Not EOF(f)
Line Input #f, Contenuto
strArr = Split(Contenuto, ";")
For i = LBound(strArray) To UBound(strArray)
'qui inserisci il codice per gestire l'array
:gren:
Next i
Loop
Close #f

[Gigi84]

se il fileè corto OK..
se è grosso, per velocizzare puoi usare il driver ODBC per i file di testo! e poi tratti il file come se fosse una tabella!