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

來源:互聯網
上載者:User
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
%>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。