KoXo 자바스크립트 - 메서드(method)

TextStream 파일 전체를 읽고 결과로 나오는 문자열을 반환한다.

적용	TextStream 개체

참조	Write 메서드	WriteLine 메서드	WriteBlankLines 메서드	Skip 메서드
	Read 메서드	ReadLine 메서드	ReadAll 메서드	SkipLine 메서드

ReadAll 메서드 예제

결과 표시창

JScript ReadAll 메서드 예제

<SCRIPT language=JScript>
function ReadAllTest(filePath){
  var fso,fileObj,str='';
  var ForReading=1,ForWriting=2;
  fso=new ActiveXObject('Scripting.FileSystemObject');
  if (fso.FileExists(filePath)) fso.DeleteFile(filePath);
  fileObj=fso.OpenTextFile(filePath,ForWriting,true);
  fileObj.WriteLine('예제를 위한 파일이다.');
  fileObj.WriteLine('1234567890987654321');
  fileObj.WriteLine('ABCDEFGHIJKLMNOPQRSTUVWXYZ');
  fileObj.Close();
  str+='예제를 위한  '+filePath+' 파일을 생성하였다.<BR><BR>';

  fileObj=fso.OpenTextFile(filePath,ForReading);
  str+='fileObj.Read(10)='+fileObj.Read(10)+'<BR>';
  str+='fileObj.ReadLine()='+fileObj.ReadLine()+'<BR>';
  str+='fileObj.ReadAll='+fileObj.ReadAll()+'<BR><BR>';

  fileObj=fso.OpenTextFile(filePath,ForReading);
  str+='fileObj.ReadAll='+fileObj.ReadAll();
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="id=showjs.innerHTML=ReadAllTest('C:\\JsTest\\CreateText.txt')">
  <SPAN class=ie>JScript</SPAN> <SPAN class=method>ReadAll</SPAN> 메서드 예제</DIV>

결과 표시창

VBScript ReadAll 메서드 예제

<SCRIPT language=VBScript>
Function ReadAllTestvb(filePath)
  Const ForReading=1,ForWriting=2,ForAppending=8
  Dim fso,fileObj,str
  Set fso=CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(filePath) Then
    fso.DeleteFile(filePath)
  End If

  Set fileObj=fso.OpenTextFile(filePath,ForWriting,True)
  fileObj.WriteLine "예제를 위한 파일이다."
  fileObj.WriteLine "1234567890987654321"
  fileObj.WriteLine "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  fileObj.Close
  str=str&"예제를 위한  "&filePath&" 파일을 생성하였다.<BR><BR>"

  Set fileObj=fso.OpenTextFile(filePath,ForReading)
  str=str&"fileObj.Read(10)="&fileObj.Read(10)&"<BR>"
  str=str&"fileObj.ReadLine="&fileObj.ReadLine&"<BR>"
  str=str&"fileObj.ReadAll="&fileObj.ReadAll()&"<BR><BR>"

  Set fileObj=fso.OpenTextFile(filePath,ForReading)
  str=str&"fileObj.ReadAll="&fileObj.ReadAll()
  ReadAllTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=ReadAllTestvb('C:\\JsTest\\CreateText.txt')">
  <SPAN class=ie>VBScript</SPAN> <SPAN class=method>ReadAll</SPAN> 메서드 예제</DIV>