如何一行行地讀取檔案？

dim input(30)

' 定義一個數組,大小可隨時更改.這裡為了顯示方便.

file_path=Server.Mappath("index.html")

Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set file_open=fs.OpenTextFile(file_path)

n=0

Do While Not file_open.AtEndOfStream

n=n+1

fileline=file_open.readline

input(i)=fileline

' 將檔案內容讀入input數組.

Loop

file_open.close

Set fs=Nothing

 

另外，對於位元據，我們也可以用Read()來讀取，如：

file_open.Read(200)

就是讀取file_open中的200個資料。