Vb elaborazione file TXT

[heroes3]

Ciao a tutti ho un piccolo problema
premetto che sono un principiante

il problema è il seguente:
devo estrarre da dei file log tutta la riga contenente una determinata frase, chiamiamola pippo,e metterla in un nuovo file
questa routine l'ho creata e funziona alla perfezione nel momento in cui ho dei file di dimensioni piccole e modeste ma nel momento in cui gli do in pasto il vero file log (circa 300 Mega) lui lavora ma non so a che punto è e se la mia ruotine continua a funzionare
come posso fare???
vi posto qui sotto il Loop interessato
--------------------------------------
Open Sorgente.Text For Input As #1

Riga = 0
Do While Not EOF(1)
Open Destinazione.Text For Output As #2
DoEvents
Riga = Riga + 1
Nriga.Caption = Riga
Line Input #1, Testo
DoEvents
If InStr(1, Testo, stringa.Text, vbTextCompare) > 0 Then
Print #2, Testo
End If
DoEvents
Close #2
Loop

Mi consigliate di utilizzare lo stram magari è più veloce???

non so + dove battere il cranio!!!!

Grazie a tutti

[heroes3]

devo dedurre che nessuno di voi mi sa dare una mano???????

[GudFella]

inserisci fra le istruzioni della routine
debug.print

Riga = 0
Do While Not EOF(1)
Open Destinazione.Text For Output As #2
DoEvents
Riga = Riga + 1
Nriga.Caption = Riga

debug.print riga

Line Input #1, Testo
DoEvents
If InStr(1, Testo, stringa.Text, vbTextCompare) > 0 Then
Print #2, Testo
End If
DoEvents
Close #2
Loop

ad ogni giro ti stamperà a video il numero della riga che sta lavorando
(con cntrl+pause puoi fermare l'esecuzione del programma sull'ultima riga letta)

[heroes3]

grazie gud sei l'unico che mi ha dato una risposta!!!!!

e per velocizzare un po l'applicazione visto che devo elaborarte 300 mb di file alla volta non mi sai essere d'aiuto???

grazie ancora

[GudFella]

se devi elaborare più volte gli stessi dati
puoi caricarli in un array

le operazioni di lettura scrittura (open for input / output) non possono essere velocizzate,

inserisci una progress bar e l'attesa sembrerà minore ...

[heroes3]

Ti ringrazio per i preziosi consigli che mi hai dato
cmq ho aggirato l'ostacolo importando i dati in + db e lavorandoli successivamente con ADO e cicli FOR diciamo che se tutto va bene i miei 32 milioni di record entro sera dovrebbero essere lavorati tutti

Grazie Mille

[GudFella]

Originariamente inviato da heroes3
... i miei 32 milioni di record ...

lavori all'anagrafe?

[heroes3]

no in un provider
sono giusto i logs di tutte le connessioni degli ultimi 5 anni di tutti i miei utenti

:sexpulp:

[heroes3]

per la precisione 5,5 Gbyte di database !!!!!

uno piccolo



grazie ancora