Con questo script leggiamo il contenuto del file tutto In una volta: <% filePath = Server.Mappath("file_testo.txt") Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject") if objFileSystem.FileExists(filePath ) then 'apro file in lettura Set objFile = objFileSystem.OpenTextFile(filePath, 1) 'scrivo a video contenuto file Response.Write objFile.ReadAll 'oppure lo inserisco in una variabile contenuto_testo=objFile.ReadAll objFile.Close Set objFile=Nothing end if Set objFileSystem=Nothing %> Con questo script leggiamo il file riga per riga <% filePath = Server.Mappath("file_testo.txt") Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject") if objFileSystem.FileExists(filePath ) then Set objFile = objFileSystem.OpenTextFile(filePath, 1) 'leggo file riga per riga fino alla fine del file Do While Not objFile.AtEndofStream Response.Write objFile.ReadLine & "<br>" Loop objFile.Close Set objFile=Nothing end if Set objFileSystem=Nothing %> |