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