readfile_in_asp

Lesen einer Textdatei in ASP.

So lesen Sie eine Textdatei auf einem Server mithilfe von VBScript in ASP

Eine der wichtigsten Aufgaben in jeder Programmiersprache ist die Fähigkeit, Dateien lesen und schreiben zu können. Die Schritte in ASP unterscheiden sich nicht von denen vieler anderer Sprachen:

1. Geben Sie den Speicherort der Datei an
2. Stellen Sie fest, ob die Datei vorhanden ist
3. Rufen Sie ein Handle für die Datei ab
4. Lesen Sie den Inhalt
5. Schließen Sie die Datei und geben Sie alle verwendeten Ressourcen frei

Datei-E/A in ASP kann mithilfe der FileSystemObject -Komponente erfolgen. Wenn Sie eine Textdatei öffnen, öffnen Sie sie einfach als Textstream und verwenden diesen Textstream, um auf den Inhalt der Datei zuzugreifen.

Mit dem FileSystemObject können Sie alle Datei- und Ordnerverwaltungsvorgänge ausführen. Es kann entweder eine Datei zurückgeben, die dann als Textstream geöffnet werden kann, oder es kann direkt ein Textstream-Objekt zurückgeben.

Im Folgenden stelle ich zwei unterschiedliche Methoden vor. Die erste Methode ruft ein Dateiobjekt ab und verwendet dieses, um den Textstream zu öffnen, und die zweite Methode öffnet den Textstream direkt aus dem FileSystemObject .

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

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