AtEndOfLine() เป็น Properties ที่ใช้อ่านค่าสุดท้ายของบรรทัดนั้น ๆ (End Of Line)
Syntax
<%
TextStreamObject.AtEndOfLine()
%>
ASPTextStreamObjectAtEndOfLine.asp
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP TextStream Object</title>
</head>
<body>
<%
Dim objFSO, objStream,strEndLine,strEndChar
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.OpenTextFile(Server.MapPath("MyFiles/thaicreate.txt"),1,false)
Do While NOT objStream.AtEndOfLine
strEndChar = objStream.Read(1)
Loop
Response.write("The end charector : "&strEndChar)
objStream.Close()
Set objStream = Nothing
Set objFSO = Nothing
%>
</body>
</html>