Scripting Runtime Library(TextStream)

지정한 파일을 열고 그 파일을 읽거나, 쓰거나, 추가하는 데 사용할 수 있는 TextStream 개체를 반환한다.

인수/파라메터
object
필수적인 요소이며, 항상 File 개체의 이름이다.
iomode

선택적인 요소이며, 입출력 모드를 표시한다. 세 가지 상수, 즉 ForReading, ForWriting, ForAppending 중 하나이면 된다. iomode 인수는 다음 설정값을 가질 수 있다.

상수 값 설명
ForReading 1 읽기 전용 모드로 파일을 연다. 이 파일에는 쓸 수 없다.
ForWriting 2 쓰기 모드로 파일을 연다. 같은 이름의 파일이 있으면 기존 내용을 덮어쒸운다.
ForAppending 8 파일을 열고 파일의 끝에 쓴다
format

선택적인 요소이며, 열려있는 파일의 형식을 나타내는 데 사용되는 세 가지 Tristate 값 중 하나이다.
생략하면 파일은 ASCII 형식으로 열린다. format 인수는 아래의 설정값을 가질 수 있다.

상수 값 설명
TristateUseDefault -2 시스템 기본값으로 파일을 연다.
Tristatetrue -1 유니코드 형식으로 파일을 연다.
Tristatefalse 0 ASCII 형식으로 파일을 연다.
반환값

반환값 oVal은 지정한 파일을 열고 그 파일을 읽거나, 쓰거나, 추가하는 데 사용할 수 있는 TextStream 개체이다.

설명

OpenAsTextStream 메서드는 FileSystemObject의 OpenTextFile 메서드와 같은 기능을 제공한다.
또한 OpenAsTextStream 메서드는 파일에 쓰는 데 사용할 수도 있다.

세가지 메서드들은 상호 호완적으로 사용된다.


OpenAsTextStream 메서드 예제

결과 표시창
JScript OpenAsTextStream 메서드 예제
<SCRIPT language=JScript>
function OpenAsTextStreamTest(filePath){
  var fso,fileObj,textObj,str;
  var ForReading=1,ForWriting=2,ForAppending=8;
  var TristateUseDefault=-2,TristateTrue=-1,TristateFalse=0;
  var fso=new ActiveXObject('Scripting.FileSystemObject');
  fileObj=fso.GetFile(filePath);
  textObj=fileObj.OpenAsTextStream(ForWriting,TristateUseDefault);
  textObj.Write( '테스트 작업이다.');
  textObj.Close();
  str='"'+filePath+'"가 기록되었다.<BR>';

  textObj=fileObj.OpenAsTextStream(ForReading,TristateUseDefault);
  str+='내용은<BR>'+textObj.ReadLine();
  textObj.Close();
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showjs.innerHTML=OpenAsTextStreamTest('C:\\JsTest\\CreateText.txt')">
  <SPAN class=ie>JScript</SPAN> <SPAN class=method>OpenAsTextStream</SPAN> 메서드 예제</DIV>
결과 표시창
VBScript OpenAsTextStream 메서드 예제
<SCRIPT language=VBScript>
Function OpenAsTextStreamTestvb(filePath)
  Dim fso,fileObj,textObj
  Const ForReading=1,ForWriting=2,ForAppending=8
  Const TristateUseDefault=-2,TristateTrue=-1,TristateFalse=0
  Set fso=CreateObject("Scripting.FileSystemObject")
  fso.CreateTextFile filePath ' 파일을 만든다.
  Set fileObj=fso.GetFile(filePath)
  Set textObj=fileObj.OpenAsTextStream(ForWriting,TristateUseDefault)
  textObj.Write "테스트 작업이다."
  textObj.Close
  str="'"&filePath&"'가 기록되었다.<BR>"

  Set textObj=fileObj.OpenAsTextStream(ForReading,TristateUseDefault)
  str=str&"내용은<BR>"&textObj.ReadLine
  OpenAsTextStreamTestvb=str
  textObj.Close
End Function
</SCRIPT>

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