readfile_in_asp

ASP에서 텍스트 파일 읽기.

ASP에서 VBScript를 사용하여 서버에서 텍스트 파일을 읽는 방법

모든 프로그래밍 언어에서 가장 중요한 작업 중 하나는 파일을 읽고 쓰는 능력입니다. ASP와 관련된 단계는 다른 많은 언어와 다르지 않습니다.

1. 파일 위치 지정
2. 파일이 존재하는지 확인
3. 파일 핸들 가져오기
4. 내용을 읽어보세요
5. 파일을 닫고 사용된 모든 리소스를 해제합니다.

ASP의 파일 I/O는 FileSystemObject 구성 요소를 사용하여 수행할 수 있습니다. 텍스트 파일을 열 때 간단히 텍스트 스트림으로 열면 이 텍스트 스트림을 사용하여 파일 내용에 액세스할 수 있습니다.

FileSystemObject를 사용하면 모든 파일 및 폴더 처리 작업을 수행할 수 있습니다. 텍스트 스트림으로 열 수 있는 파일을 반환하거나 텍스트 스트림 개체를 직접 반환할 수 있습니다.

다음에서는 두 가지 다른 방법을 제시합니다. 첫 번째 방법은 파일 개체를 가져와 이를 사용하여 텍스트 스트림을 열고, 두 번째 방법은 FileSystemObject 에서 직접 텍스트 스트림을 엽니다.

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

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