readfile_in_asp

قراءة ملف نصي في ASP.

كيفية قراءة ملف نصي على خادم باستخدام VBScript في ASP

من أهم المهام في أي لغة برمجة هي القدرة على قراءة الملفات وكتابتها. لا تختلف الخطوات المتبعة في ASP عن العديد من اللغات الأخرى:

1. حدد موقع الملف
2. تحديد ما إذا كان الملف موجودًا
3. الحصول على مقبض للملف
4. اقرأ المحتويات
5. أغلق الملف وحرر أي موارد مستخدمة

يمكن إجراء إدخال/إخراج الملف في ASP باستخدام مكون FileSystemObject . عند فتح ملف نصي، فإنك ببساطة تفتحه كدفق نصي، وهو الدفق النصي الذي تستخدمه للوصول إلى محتويات الملف.

يسمح لك FileSystemObject بتنفيذ جميع عمليات معالجة الملفات والمجلدات. يمكنه إما إرجاع ملف يمكن بعد ذلك فتحه كدفق نص، أو يمكنه إرجاع كائن دفق نص مباشرة.

في ما يلي أقدم طريقتين مختلفتين. تحصل الطريقة الأولى على كائن ملف وتستخدمه لفتح دفق النص، وتفتح الطريقة الثانية دفق النص مباشرةً من FileSystemObject .

الطريقة الأولى:

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 %>" style=";text-align:right;direction:rtl">

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

الطريقة الثانية:

" & Contents & "

---

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

File " & Filename &_ " does not exist

" End If Set FSO = nothing %>" style=";text-align:right;direction:rtl">

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