TextStream對象
讀文件
本例演示如何使用FileSystemObject的OpenTextFile方法來創建一個TextStream對象。TextStream對象的ReadAll方法會從已打開的文本文件中取得內容。
本示例代碼如下：
<html>
<body>
<p>這就是文本文件中的文本：</p>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("/example/aspe/testread.txt"), 1)
Response.Write(f.ReadAll)
f.Close
Set f=Nothing
Set fs=Nothing
%>
</body>
</html>
本實例運行結果如下：
這就是文本文件中的文本：
Hello! How are you today?
讀文本文件中的一個部分
本例演示如何僅僅讀取一個文本流文件的部分內容。
本示例代碼如下：
<html>
<body>
<p>這是從文本文件中讀取的前 5 個字符：</p>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
Response.Write(f.Read(5))
f.Close
Set f=Nothing
Set fs=Nothing
%>
</body>
</html>
本實例運行結果如下：
這是從文本文件中讀取的前 5 個字符：
Hello
讀文本文件中的一行
本例演示如何從一個文本流文件中讀取一行內容。
本示例代碼如下：
<html>
<body>
<p>這是從文本文件中讀取的第一行：</p>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
Response.Write(f.ReadLine)
f.Close
Set f=Nothing
Set fs=Nothing
%>
</body>
</html>
本實例運行結果如下：
這是從文本文件中讀取的第一行：
Hello!
讀取文本文件的所有行
本例演示如何從文本流文件中讀取所有的行。
本示例代碼如下：
<html>
<body>
<p>這是從文本文件中讀取的所有行：</p>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
do while f.AtEndOfStream = false
Response.Write(f.ReadLine)
Response.Write("<br>")
loop
f.Close
Set f=Nothing
Set fs=Nothing
%>
</body>
</html>
本實例運行結果如下：
這是從文本文件中讀取的所有行：
Hello!
How are you today?
略過文本文件的一部分
本例演示如何在讀取文本流文件時跳過指定的字符數。
本示例代碼如下：
<html>
<body>
<p>文本文件中的前 4 個字符被略掉了：</p>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
f.Skip(4)
Response.Write(f.ReadAll)
f.Close
Set f=Nothing
Set fs=Nothing
%>
</body>
</html>
本實例運行結果如下：
文本文件中的前 4 個字符被略掉了：
o! How are you today?
略過文本文件的一行
本例演示如何在讀取文本流文件時跳過一行。
本示例代碼如下：
<html>
<body>
<p>文本文件中的第一行被略掉了：</p>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
f.SkipLine
Response.Write(f.ReadAll)
f.Close
Set f=Nothing
Set fs=Nothing
%>
</body>
</html>
本實例運行結果如下：
文本文件中的第一行被略掉了：
How are you today?
返回行數
本例演示如何返回在文本流文件中的當前行號。
本示例代碼如下：
<html>
<body>
<p>這是文本文件中的所有行（帶有行號）：</p>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
do while f.AtEndOfStream = false
Response.Write("Line:" & f.Line & " ")
Response.Write(f.ReadLine)
Response.Write("<br>")
loop
f.Close
Set f=Nothing
Set fs=Nothing
%>
</body>
</html>
本實例運行結果如下：
這是文本文件中的所有行（帶有行號）：
Line:1 Hello!
Line:2 How are you today?
取得列數
本例演示如何取得在文件中當前字符的列號。
本示例代碼如下：
<html>
新聞熱點
疑難解答
