Scripting Runtime Library(TextStream)

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

인수
TextStream : (개체)

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

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

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

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

특기

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



AtEndOfLine 속성 예제

결과 표시창
JScript AtEndOfLine 예제
<SCRIPT language=JScript>
function AtEndOfLineTest(filePath){
  var fso,fileObj,ForReading,str='';
  ForReading=1;
  ForWriting=2;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  fileObj=fso.OpenTextFile(filePath,ForWriting,true);
  fileObj.Write('첫째 문단 ');
  fileObj.Write('둘째 문단 ');
  fileObj.Write('세째 문단 ');
  fileObj.Write('네째 문단 ');
  fileObj.Close();

  fileObj=fso.OpenTextFile(filePath,ForReading,false);
  while (!fileObj.AtEndOfLine) str+=fileObj.Read(1);
  fileObj.Close();
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show
  onClick="showjs.innerHTML=AtEndOfLineTest('C:\\JsTest\\expSample.txt')">
  <SPAN class=ie>JScript</SPAN> <SPAN class=property>AtEndOfLine</SPAN> 예제</DIV>
결과 표시창
VBScript AtEndOfLine 예제
<SCRIPT language=VBScript>
Function ReadEntireFilevb(filePath)
  Const ForReading=1,ForWriting=2
  Dim fso,fileObj
  str=""
  Set fso=CreateObject("Scripting.FileSystemObject")
  Set fileObj=fso.OpenTextFile(filePath,ForWriting,true)
  fileObj.Write "첫째 문단 "
  fileObj.Write "둘째 문단 "
  fileObj.Write "세째 문단 "
  fileObj.Write "네째 문단 "
  fileObj.Close

  Set fileObj=fso.OpenTextFile(filePath,ForReading,False)
  Do While fileObj.AtEndOfLine<>true
    str=str&fileObj.Read(1)
  Loop
  fileObj.Close
  ReadEntireFilevb=str
End Function
</SCRIPT>

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