Debbo creare un buffer su cui scrivere m-volte (all'interno di un primo ciclo) un file preprocessato e da cui leggere n-volte (all'interno di un secondo ciclo), a dire il vero non so come fare, per il momento faccio + o - così:
codice:
Do 'inizio primo ciclo
'____________________________________________________________________________________________________
' creazione del file temporaneo
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set n2 = fs2.CreateTextFile(TempFile, True)
line = algoritmo per la creazione di un file di testo
n2.WriteLine (line) 'scrivo il file temporaneo
n2.Close 'chiudo la scrittura del file temporaneo
' apro il file temporaneo in lettura
Set fs3 = CreateObject("Scripting.FileSystemObject")
Set n3 = fs3.OpenTextFile(TempFile, ForReading, TristateFalse)
' n3 contiene file letto
Do 'inizio ciclo secondario
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'leggo e processo il contenuto
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
loop 'chiudo ciclo secondario
n3.Close 'chiudo la lettura dal file temporaneo
'____________________________________________________________________________________________________
loop 'chiudo primo ciclo
Funziona, ma l'HD deve faticare un pochino ad aprire e chiudere ripetutamente e scrivere e riscrivere il file temporaneo, esiste un modo più semplice che utilizza la ram?
Ciao a tutti