Leer y escribir archivos en ASP

Quien soy
Joel Fulleda
@joelfulleda
Autor y referencias

In Áspid es posible leer el contenido de un filete e escribir en un archivo de texto.

El objeto adecuado para nosotros es FileSystemObject: para abrir un archivo usaremos OpenTextFile con 3 modos diferentes: leer, escribir, agregar.

El archivo se puede leer con ReadLine (línea por línea) o con Lee todo (lee todo el contenido).

El modo anexar difiere del modo cero ya que agrega texto a un documento ya abierto y lo agrega al que ya está presente.



Leer y escribir archivos en ASP

Con este script leemos el contenido del archivo de una vez:

<%
filePath = Server.Mappath ("file_testo.txt")
Establecer objFileSystem = Server.CreateObject ("Scripting.FileSystemObject")
si objFileSystem.FileExists (filePath) entonces
'Abro archivo para leer
Establecer objFile = objFileSystem.OpenTextFile (filePath, 1)
'Escribo en el contenido del archivo de video
Response.Write objFile.ReadAll
'o lo puse en una variable text_content = objFile.ReadAll
objFile.Close
Establecer objFile = Nada
end if
Establecer objFileSystem = Nada
%>

Con este script leemos el archivo línea por línea:
<%
filePath = Server.Mappath ("file_testo.txt")
Establecer objFileSystem = Server.CreateObject ("Scripting.FileSystemObject")
si objFileSystem.FileExists (filePath) entonces
Establecer objFile = objFileSystem.OpenTextFile (filePath, 1)
'Leo el archivo línea por línea hasta el final del archivo
Hacer mientras no objFile.AtEndofStream
Response.Write objFile.ReadLine & “ "
Red ISTE Loop
objFile.Close
Establecer objFile = Nada
end if
Establecer objFileSystem = Nada
%>

Escribo el texto en el archivo (verifico que la carpeta tenga permisos de escritura) y si el archivo no existe lo creo: 


<%
filePath = Server.Mappath ("file_testo.txt")
Establecer objFileSystem = Server.CreateObject ("Scripting.FileSystemObject")
si no es objFileSystem.FileExists (filePath) entonces
'si no existe creo que si
objFileSystem.CreateTextFile (filePath)
end if
Establecer objFile = objFileSystem.OpenTextFile (filePath, 2)
'Escribo una línea en el archivo
'objFileSystem.OpenTextFile (filePath, 2) -> archivo sovrascrivo
'objFileSystem.OpenTextFile (filePath, 8) -> agrega el texto al final del archivo
objFile.WriteLine ("texto de archivo nuevo")
objFile.Close
Establecer objFile = Nada
Establecer objFileSystem = Nada
%>



Añade un comentario de Leer y escribir archivos en ASP
¡Comentario enviado con éxito! Lo revisaremos en las próximas horas.