ASP: leggere e scrivere file

0 Condivisioni

In Asp è possibile leggere il contenuto di un file e scrivere in un file di testo.

L’oggetto che fa al nostro caso è il FileSystemObject: per aprire un file useremo OpenTextFile con 3 diverse modalità: lettura, scrittura, append.

La lettura del file può avvenire o con ReadLine (riga per riga) o con ReadAll (legge tutto il contenuto).

La modalità append si differenzia dalla modalità scrittura in quanto aggiunge del testo ad un documento già aperto accodandolo a quello già presente.

ASP

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
%>

Scrivo il testo nel file (controllare la cartella abbia i permessi di scrittura) e se il file non esiste lo creo: 

<%
filePath = Server.Mappath("file_testo.txt")
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
if not objFileSystem.FileExists(filePath) then
	'se non esiste lo creo
	objFileSystem.CreateTextFile(filePath)
end if
Set objFile = objFileSystem.OpenTextFile(filePath, 2)
'scrivo una riga sul file
' objFileSystem.OpenTextFile(filePath, 2) -> sovrascrivo file
' objFileSystem.OpenTextFile(filePath, 8) -> aggiungo il testo al fondo del file
objFile.WriteLine("nuovo testo file")
objFile.Close
Set objFile=Nothing
Set objFileSystem=Nothing
%>

Se volete seguire i post di www.informarea.it potete iscrivervi al suo feed RSS.


0 Condivisioni

Fabrizio Cannatelli

Fondatore di Informarea.it, è un appassionato di informatica. Ha lavorato per molti anni come Analista Programmatore presso varie aziende utilizzando diversi linguaggi di sviluppo, oggi svolge un lavoro completamente diverso ma la voglia di comunicare e di condividere con il web i suoi studi e le sue curiosità lo hanno spinto a far nascere questo blog non solo per esprimere e mostrare la passione per questo mondo, ma anche per confrontarsi con nuove esperienze di sviluppo.

Fabrizio Cannatelli

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.