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