FSO使用教程6 -- 如何使用FSO讀取檔案

fso|教程

如何使用FSO讀取檔案-FSO使用教程6

TextStream對象所提供用來讀取檔案的方法有三種：ReadLine、Read及ReadAll。在調用這幾個方法之前，必須注意檔案結尾的問題----當整個檔案的內容都被讀完時，若再調用ReadLine，Read、ReadAll等方法，則會產生“輸入超出檔案結尾”的錯誤（錯誤編碼=62）。

因此比較好的習慣是在調用ReadLine、Read及ReadAll之前，先讀取TextStream對象的atEndOfStream屬性值，以判斷檔案是否已到達結尾的位置，其程式大致如下：

'txt為一TextStream對象
If Not txt.atEndOfStream Then '先確定還沒有到達結尾的位置
    '調用txt.ReadLine、Read、ReadAll等方法
End If

六、如何用FSO讀取檔案：

方法1：ReadLine

調用格式：(從檔案中讀取一行資料)

'txt為一TextStream對象
If Not txt.atEndOfStream Then '先確定還沒有到達結尾的位置
    Line = txt.ReadLine '讀取一行資料
    Response.Write Line & "<br>"
End If

方法2：ReadAll

調用格式：（把檔案所有內容一次讀出）

'txt為一TextStream對象
If Not txt.atEndOfStream Then '先確定還沒有到達結尾的位置
    Content = txt.ReadAll '讀取整個檔案的資料
    Lines = Replace(Content, vbCrlf, "<br>") '將文本內分行字元vbCrlf換成HTML換行標記"<br>"
    Response.Write Lines
End If

方法3：Read(N)

調用格式：（從檔案中讀取N個位元組的資料）

'txt為一TextStream對象
If Not txt.atEndOfStream Then '先確定還沒有到達結尾的位置
    Content = txt.Read(30) '讀取30個位元組的資料
    Response.Write Content
End If

源碼樣本1：(利用ReadAll方法讀取File1.txt內容，並顯示出來)

<%
'==================================================
'作者：阿里西西
'網址：http://www.alixixi.com/
'源碼：FSO讀取檔案全部內容樣本
'時間：2005年12月17日
'==================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
Set txt = fs.OpenTextFile(File)
If Not txt.atEndOfStream Then '先確定還沒有到達結尾的位置
    Content = txt.ReadAll '讀取整個檔案的資料
    Lines = Replace(Content, vbCrlf, "<br>") '將文本內分行字元vbCrlf換成HTML換行標記"<br>"
    Response.Write Lines
End If
%>

源碼樣本2：(利用ReadLine方法讀取File1.txt一行資料內容，並顯示出來)

<%
'================================================
'作者：阿里西西
'網址：http://www.alixixi.com/
'源碼：FSO讀取檔案一行內容樣本
'時間：2005年12月17日
'================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
Set txt = fs.OpenTextFile(File)
If Not txt.atEndOfStream Then '先確定還沒有到達結尾的位置
    Line = txt.ReadLine '讀取一行資料
    Response.Write Line & "<br>"
End If
%>