[VBA] Estrarre dati da file di testo (.txt)

[lsd227]

ciao a tutti

vorrei che tramite un form vba sul mio db venga inserito un determinato valore presente su un file txt
premetto che questo file non ha separatori ne tantomeno è a lunghezza fissa
ma prima del dato che mi interessa c'è sempre la stessa parola...
questo file txt che è il report in tempo reale di un logger mi comunica tutta una serie di dati che m interessa inserire sul mio DB io vorrei che ogni volta che questo file viene aggiornato il db controlli cosa è successo e lo importi al suo interno

[alka]

E quindi? Qual è la difficoltà specifica? Dobbiamo scrivere il codice noi?

P.S.: il linguaggio va indicato anche nel titolo.

[lsd227]

Si io ho visto un po in giro e su i forum consigliano di aprire il file txt e con un comando leggere quante parole ci sono corrispondenti al criterio poi riaprire il file e cercare dal numero memorizzato sulla funzione precedente a quel punto pendere la parola successiva .... Ci ho provato ma non ci sono riuscito in piu va consideato chquesta cosa va fatta ogni qual volta viene aggioenato il file txt da cuu si prendeono i dati

[alka]

Originariamente inviato da lsd227
Ci ho provato ma non ci sono riuscito

Posta il codice, così potremo suggerirti come correggerlo o migliorarlo.

[lsd227]

l'unica cosa che hotrovato da cui partire è questa:
---------------------------------------------------------
Private Sub Testo14_Click()

Dim linea As String
Dim linea2 As String
Open ("C:Log1.txt") For Input As #1
Do
Input #1, linea
linea2 = linea2 & linea
Loop Until EOF(1) = True
If InStr(linea2, "testochecerco") Then
MsgBox "la stringa ciao è presente nel file txt"
Else
MsgBox "La stringa non è presente"
End If
End Sub
--------------------------------------------------------

ma già parto malissimo xkè non funziona

poi io ho provato col MSBOX x vedere se andava mai n realtà a me la funzione "InStr" serve solo per sapere da quale punto del file txt partire per fare la ricerca, e da quel punto restituirmi la parola successiva

[alka]

Originariamente inviato da lsd227
ma già parto malissimo xkè non funziona

Cioè? Cosa vuol dire non funziona? Non fa nulla? Da errore?

E' l'ennesimo messaggio di richiesta di informazioni approfondite, che dovrebbero essere specificate all'inizio della discussione, come richiesto peraltro dal Regolamento.

Se hai scritto codice e questo non funziona, devi indicare perché.
Inoltre, assieme a InStr, ci sono tante altre funzioni che effettuano operazioni sulle stringhe. Ti sei documentato a riguardo? Le hai provate? Se sì, che problemi hai avuto se non hai risolto, oppure quali sono le difficoltà specifiche in merito?

[lsd227]

non funziona xkè mi richiede il debug e mi evidenzia il link del file txt

io ho cercato altre funzioni ma in giro su internet consigliavano di usare InStr x cercare l'ultima parola presente nel file e operare da quella..

tu pensi si possa operare in modo differente? magari usando operazioni e funzioni meno complesse.. x evitare anche un rallentamento del DB

grazie mille x l'aiuto

[oregon]

Ma il file dove sta?

E' nella cartella principale?

In quel caso dovresti scrivere

"C:\Log1.txt"

[lsd227]

correzione fatta ma mi rilascia lo stesso errore e mi evidenzia nuovamente la riga con il link

[gibra]

Originariamente inviato da lsd227
correzione fatta ma mi rilascia lo stesso errore e mi evidenzia nuovamente la riga con il link

Ma se non riporti la DESCRIZIONE dell'errore che ricevi, non possiamo mica indovinarlo noi.
Ti pare?

Vi possono essere <n> motivi per cui la riga da errore:
- il file non esiste (nome sbagliato, percorso sbagliato, estensione sbagliata, ...)
- non hai i diritti di accesso a quel percorso
- vatte-la-pesca....

Di norma, prima di aprire un file , è necessario verificare che esista, usando la funzione Dir() :

If Dir(percorso_file) = vbnullstring then
    MsgBox "File non trovato.", vbExclamation
End If