如何使用FSO讀取文本

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