memoria esaurita in lettura .txt

[emerson74]

ciao a tutti, ho fatto questo codice che deve aggiungere in tutte le pagine web di un sito il riferimento ad un foglio si style, ma comunque, per chi non mastica bene i linguaggi web oriented, poco importa, nella mia text che ho sulla form inserisco la stringa che mi interessa, poi faccio un ciclo per raccogliere il resto delfile.
una volta avuto tutto il file all'intero della mia text lo risalvo e così la modifica dovrebbe risultare fatta.

invece no perchè durante la lettura del file, mi appare un mesaggio di errore, più precisamente:

errore di run-time 7
memoria esaurita

ho controlato e smette di leggere alla 220.ma riga quando dovrebbe leggerne almeno 600.

qualcuno mi può aiutare'

Grazie!!

' metto in nomefile il nome del file che mi interessa modificare
nomefile = "dept_200.html"

' scrivo la prima riga che è quella che inserirò nel file, poi...
Text1.Text = "<link rel='stylesheet' type='text/css' href='style.css' />"

' ...apro il file che dovrà contenere anche la prima riga
' sopra descritta e sbatto tutto nella text ma nel ciclo si ferma
' ed alla 220.ma riga da errore di memoria esaurita

Open nomefile For Input As #1

i = 1
Do While Not EOF(1)
i = i + 1
Line Input #1, linea
Text1.Text = Text1.Text & vbCrLf & linea
MsgBox i
Loop

Close #1


' dovrei salvare il file ma fin qui non arrivo
Open nomefile For Output As #1
Print #1, Text1.Text
Close #1

[optime]

puoi evitare di caricare text1.text in append, e scrivere direttamente il file di output

[emerson74]

grassie optime, come posso farlo?

non ne ho la più pallida idea......

perchè se faccio così ho paura che mi cancella tutto il file lasciandomi solo ciò che ho aggiunto


nomefile = "dept_200.html"

Text1.Text = "<link rel='stylesheet' type='text/css' href='style.css' />"

Open nomefile For Output As #1
Print #1, Text1.Text
Close #1

help me

[optime]

prima di provare, fatti un backup del file!!!

inFile = "dept_200.html"
outFile =  = "dept_200.tmp"

Open inFile For Input As #1 
Open outFile For Output As #2 

linea = "<link rel='stylesheet' type='text/css' href='style.css' />" 
Print #2, linea

Do While Not EOF(1) 
Line Input #1, linea 
MsgBox Linea
Print #2, linea
Loop 

Close #1 
Close #2

Kill inFile
Name outFile As inFile

[emerson74]

grazie optime, funziona a meraviglia!!

[optime]

optime!