파일 포인터가 TextStream 파일의 끝에 왔는가를 부울값으로 반환한다.

objectName.AtEndOfStream

인수

TextStream : (개체)

object는 항상 TextStream 개체의 이름이다.

: (속성 부울값)

속성값은 파일 포인터가 TextStream 파일의 끝에 왔는가를 나타내는 부울값이다.

false	파일 포인터가 TextStream 파일의 끝에 오지 않았다.
true	파일 포인터가 TextStream 파일의 끝에 왔다.

이 속성은 읽기전용이며 디폴트값은 없다.

특기

AtEndOfStream 속성은 열려있는 TextStream 파일에만 적용된다.
그렇지 않으면 오류가 발생한다.

AtEndOfStream 속성 예제

<SCRIPT language=JScript>
function AtEndOfStreamTest(filePath){
  var fso,fileObj,ForReading,str='';
  ForReading=1;
  ForWriting=2;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  fileObj=fso.OpenTextFile(filePath,ForWriting,true);
  fileObj.WriteLine('첫째 줄 문장 ');
  fileObj.WriteLine('둘째 줄 문장 ');
  fileObj.WriteLine('세째 줄 문장 ');
  fileObj.WriteLine('네째 줄 문장 ');
  fileObj.Close();

  fileObj=fso.OpenTextFile(filePath,ForReading,false);
  line=1;
  str+='line#'+line+') ';
  while (!fileObj.AtEndOfStream){
    if (fileObj.AtEndOfLine){
      str+='<BR>';
      line++;
      str+='line#'+line+') ';
    }
    str+=fileObj.Read(1);
  }
  fileObj.Close();
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showjs.innerHTML=AtEndOfStreamTest('C:\\JsTest\\expSample.txt')">
  <SPAN class=ie>VBScript</SPAN> <SPAN class=property>AtEndOfStream</SPAN> 예제</DIV>

<SCRIPT language=VBScript>
Function AtEndOfStreamTestvb(filePath)
  Dim fso,fileObj,str,line
  Const ForReading=1,ForWriting=2
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set fileObj=fso.OpenTextFile(filePath,ForWriting,true)
  fileObj.WriteLine "첫째 줄 문장 "
  fileObj.WriteLine "둘째 줄 문장 "
  fileObj.WriteLine "세째 줄 문장 "
  fileObj.WriteLine "네째 줄 문장 "
  fileObj.Close

  Set fileObj=fso.OpenTextFile(filePath,ForReading,False)
  line=0
  Do While fileObj.AtEndOfStream <> true
    If (fileObj.AtEndOfLine) Then
      str=str&"<BR>"
      line=line+1
      str=str&"line#"&line&") "
    End If
    str=str&fileObj.Read(1)
  Loop
  fileObj.Close
  AtEndOfStreamTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showvb.innerHTML=AtEndOfStreamTestvb('C:\\JsTest\\expSample.txt')">
  <SPAN class=ie>VBScript</SPAN> <SPAN class=property>AtEndOfStream</SPAN> 예제</DIV>