Oppure

Loading
15/03/08 12:09
gippi
devo importare da una file txt composto da 150 righe solo le righe dalla 49^ alla 54^ e di queste righe solo alcune parole ed importarle in 4 capmpi di un record di access, con l'aiuto di un'altra persona ho scritto questa procedura ma inizia a contare dalla prima riga e non dalla 49^ come posso importare le righe di mio interesse grazie
Private Sub Comando11_Click()
Dim strRiga(0 To 4) As String
Dim riga As String
Dim C As Integer
C = 0
Open "C:\Documents and Settings\pippo\Desktop\file.txt" For Input As #1
Do Until EOF(1) Or C = 54
C = C + 1
If C > 48 And C < 54 Then
Line Input #1, riga
strRiga(C - 49) = riga
End If
If C = 54 Then Exit Do
Loop
' quì hai l'array che puoi gestire come credi...End Sub
Close #1
Test = strRiga(1)
End Sub:-o
aaa