readfile_in_asp

Lectura de un archivo de texto en ASP.

Cómo leer un archivo de texto en un servidor usando VBScript en ASP

Una de las tareas más importantes en cualquier lenguaje de programación es la capacidad de leer y escribir archivos. Los pasos involucrados en ASP no son diferentes a los de muchos otros lenguajes:

1. Especificar la ubicación del archivo.
2. Determinar si el archivo existe
3. Obtener un identificador del archivo
4. Leer el contenido
5. Cierre el archivo y libere los recursos utilizados.

La E/S de archivos en ASP se puede realizar utilizando el componente FileSystemObject . Al abrir un archivo de texto, simplemente lo abre como una secuencia de texto, y es esta secuencia de texto la que utiliza para acceder al contenido del archivo.

FileSystemObject le permite realizar todas las operaciones de manejo de archivos y carpetas. Puede devolver un archivo que luego se puede abrir como una secuencia de texto o puede devolver un objeto de secuencia de texto directamente.

A continuación presento dos métodos diferentes. El primer método obtiene un objeto de archivo y lo usa para abrir la secuencia de texto, y el segundo método abre la secuencia de texto directamente desde FileSystemObject .

Método 1:

File: " & Filename & " (size " & FileSize &_ " bytes)

---

" Response.Write "

"

    ' Open the file
    Dim TextStream
    Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)

    ' Read the file line by line
    Do While Not TextStream.AtEndOfStream
        Dim Line
        Line = TextStream.readline
    
        ' Do something with "Line"
        Line = Line & vbCRLF
    
        Response.write Line 
    Loop

    Response.Write "

---

" Set TextStream = nothing Else Response.Write "

File " & Filename &_ " does not exist

" End If Set FSO = nothing %>">

 <% Option Explicit

Const Filename = " /readme.txt "    ' file to read
Const ForReading = 1 , ForWriting = 2 , ForAppending = 3
Const TristateUseDefault = - 2 , TristateTrue = - 1 , TristateFalse = 0

' Create a filesystem object
Dim FSO
set FSO = server . createObject ( " Scripting.FileSystemObject " )

' Map the logical path to the physical system path
Dim Filepath
Filepath = Server . MapPath (Filename)

if FSO.FileExists(Filepath) Then

    ' Get a handle to the file
    Dim file    
    set file = FSO.GetFile(Filepath)

    ' Get some info about the file
    Dim FileSize
    FileSize = file.Size

    Response . Write " 
File: " & Filename & " (size " & FileSize  & _
                   " bytes)
 "
    Response . Write " 
 "

    ' Open the file
    Dim TextStream
    Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)

    ' Read the file line by line
    Do While Not TextStream.AtEndOfStream
        Dim Line
        Line = TextStream.readline
    
        ' Do something with "Line"
        Line = Line & vbCRLF
    
        Response . write Line 
    Loop

    Response . Write " 
 "

    Set TextStream = nothing
    
Else

    Response . Write " 
 File " & Filename & _
                       " does not exist
 "

End If

Set FSO = nothing
%>

Método 2:

" & Contents & "

---

" TextStream.Close Set TextStream = nothing Else Response.Write "

File " & Filename &_ " does not exist

" End If Set FSO = nothing %>">

 <% Option Explicit

Const Filename = " /readme.txt "    ' file to read
Const ForReading = 1 , ForWriting = 2 , ForAppending = 3
Const TristateUseDefault = - 2 , TristateTrue = - 1 , TristateFalse = 0

' Create a filesystem object
Dim FSO
set FSO = server . createObject ( " Scripting.FileSystemObject " )

' Map the logical path to the physical system path
Dim Filepath
Filepath = Server . MapPath (Filename)

if FSO.FileExists(Filepath) Then

    Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False , TristateUseDefault)

    ' Read file in one hit
    Dim Contents
    Contents = TextStream.ReadAll
    Response . write " 
 " & Contents & " 
 "
    TextStream.Close
    Set TextStream = nothing
    
Else

    Response . Write " 
 File " & Filename & _
                   " does not exist
 "

End If

Set FSO = nothing
%>