estrarre dato da file txt

Hai un problema con Excel?

Nuova discussione

estrarre dato da file txt
di Rita (utente non iscritto) data: 28/02/2014 10:28:39
Ciao a tutti ho bisogno del vostro aiuto
l'esempio qui sotto riporta in maniera banale quello che vorrei fare su un file txt molto piu' complesso
ossia tornando all'esempio
ho un dato da cercare nelle stringhe di un file txt
una volta trovato il dato mi inserisce nella cella a1 il nome che ho cercato
il problema nasce quando una volta trovato il dato nella cella b1 dovrei inserire un numero che si trova nella stringa successiva ( ossia il file e' composto da una stringa contenente un cognome ed altri dati e la stringa successiva dei valori numerici e cosi' via , premesso che nell'esempio qui sotto so dove estrarre il valore numerico dalla stringa vedi "numero") ma non che istruzione utilizzare
qualche idea

DATO = "PIPPO"
Open "C:PROVA.TXT" For Input As #1
Do Until EOF(1)
Line Input #1, DATA
'NUMERO = Mid(DATA, 8, 15)
TROVA = InStr(1, DATA, DATO)
If TROVA <> 0 Then
Range("A1").Value = DATO
GoTo 26
End If
Loop
26 Close #1
end sub

di patel data: 28/02/2014 10:43:44
allega un file excel con la macro ed il risultato desiderato ed anche il file di testo
di Rita (utente non iscritto) data: 28/02/2014 16:28:37
Ciao, non posso inserire il file perche' contiene dati sensibili

di Vecchio Frac data: 28/02/2014 21:13:22
Quando hai trovato il dato, rileggi con Line Input la riga successiva.
Per favore, elimina tutti e qualsiasi GOTO dal tuo codice ^_^

DATO = "PIPPO"
Open "C:PROVA.TXT" For Input As #1
Do Until EOF(1)
Do Until EOF(1)
Line Input #1, DATA
'NUMERO = Mid(DATA, 8, 15)
TROVA = InStr(1, DATA, DATO)
If TROVA <> 0 Then
Range("A1").Value = DATO
line input #1, riga_successiva
range("b1") = riga_successiva
exit do     '<<<<<<
End If
Loop
26 Close #1
end sub

di Zer0Kelvin data: 28/02/2014 22:45:56
Per favore, elimina tutti e qualsiasi GOTO dal tuo codice ^_^
___________________________________________________

Mi associo; i Goto sono come le armi di distruzione di massa!
di Rita (utente non iscritto) data: 03/03/2014 09:21:42
Grazie Vecchio frac adattandolo funziona e fa quello che voglio
....provero' ad non usare i goto anche se mi riesce difficile

Vuoi Approfondire?