Scripting Runtime Library(TextStream)

TextStream 파일에 지정한 문자열과 줄 바꿈 문자를 쓴다

인수/파라메터
object
필수적인 요소이며, 항상 TextStream 개체의 이름이다.
string
선택적인 요소이며, 파일에 쓸 텍스트이다. 생략하면 줄 바꿈 문자를 파일에 쓴다
반환값

반환값은 없다.

설명

TextStream 파일에 지정한 문자열과 줄 바꿈 문자를 쓴다


WriteLine 메서드 예제

결과 표시창
JScript WriteLine 메서드 예제
<SCRIPT language=JScript>
function WriteLineTest(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('1234567890\n987654321');
  fileObj.WriteLine('ABCDEFGHIJKLMNOPQRSTUVWXYZ');
  fileObj.Close();
  str+='예제를 위한  '+filePath+' 파일을 생성하였다.<BR><BR>';

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

  fileObj=fso.OpenTextFile(filePath,ForReading);
  str+='fileObj.Read(5)='+fileObj.Read(5)+'<BR>';
  str+='fileObj.Skip(5)<BR>';fileObj.Skip(5);
  str+='fileObj.Read(5)='+fileObj.Read(5)+'<BR>';
  str+='fileObj.SkipLine()<BR>';fileObj.SkipLIne();
  str+='fileObj.Skip(5)<BR>';fileObj.Skip(5);
  str+='fileObj.ReadLine()='+fileObj.ReadLine()+'<BR>';
  str+='fileObj.Read(5)='+fileObj.Read(5)+'<BR>';
  str+='fileObj.Skip(5)<BR>';fileObj.Skip(5);
  str+='fileObj.Read(5)='+fileObj.Read(5)+'<BR>';
  str+='fileObj.ReadAll()='+fileObj.ReadAll()+'<BR>';
  return(str);
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="id=showjs.innerHTML=WriteLineTest('C:\\JsTest\\CreateText.txt')">
  <SPAN class=ie>JScript</SPAN> <SPAN class=method>WriteLine</SPAN> 메서드 예제</DIV>
결과 표시창
VBScript WriteLine 메서드 예제
<SCRIPT language=VBScript>
Function WriteLineTestvb(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 "1234567890"
  fileObj.WriteLine "987654321"
  fileObj.WriteLine "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  fileObj.Close
  str=str&"예제를 위한  "&filePath&" 파일을 생성하였다.<BR><BR>"

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

  Set fileObj=fso.OpenTextFile(filePath,ForReading)
  str=str&"fileObj.Read(5)="&fileObj.Read(5)&"<BR>"
  str=str&"fileObj.Skip(5)<BR>"
  fileObj.Skip(5)
  str=str&"fileObj.Read(5)="&fileObj.Read(5)&"<BR>"
  str=str&"fileObj.SkipLine<BR>"
  fileObj.SkipLIne
  str=str&"fileObj.Skip(5)<BR>"
  fileObj.Skip(5)
  str=str&"fileObj.ReadLine="&fileObj.ReadLine()&"<BR>"
  str=str&"fileObj.Read(5)="&fileObj.Read(5)&"<BR>"
  str=str&"fileObj.Skip(5)<BR>"
  fileObj.Skip(5)
  str=str&"fileObj.Read(5)="&fileObj.Read(5)&"<BR>"
  str=str&"fileObj.ReadAll="&fileObj.ReadAll&"<BR>"
  WriteLineTestvb=str
End Function
</SCRIPT>

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