📅  最后修改于: 2023-12-03 15:13:31.595000             🧑  作者: Mango
ASP TextStream.AtEndOfLine 属性用于检查文本流中当前行的末尾位置。在读取大量数据时,使用此属性可以确保程序不会读取文本流中不存在的数据。
TextStream.AtEndOfLine
无
返回 Boolean。
读取文本文件中的数据,并将其中的每一行输出到页脚。在输出每一行时使用 AtEndOfLine 属性来确定该行是否已经读取完整。
<%
Dim fs, f, ts
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(Server.MapPath("data.txt"))
Set ts = f.OpenAsTextStream(1, -2)
Do Until ts.AtEndOfStream
line = ts.ReadLine
Response.Write line
' Check if the line has been fully read
If ts.AtEndOfLine = False Then
Response.Write "<br>"
End If
Loop
ts.Close
Set ts = Nothing
Set f = Nothing
Set fs = Nothing
%>