Scripting Runtime Library(TextStream)
ÁöÁ¤ÇÑ ÆÄÀÏÀ» ¿°í ±× ÆÄÀÏÀ» Àаųª, ¾²°Å³ª, Ãß°¡ÇÏ´Â µ¥ »ç¿ëÇÒ ¼ö ÀÖ´Â TextStream °³Ã¼¸¦ ¹ÝȯÇÑ´Ù.
iomode Àμö´Â ¾Æ·¡ ¼³Á¤°ªÀ» °¡Áú ¼ö ÀÖ´Ù:
»ó¼ö | °ª | ¼³¸í |
---|---|---|
ForReading | 1 | Àбâ Àü¿ë ¸ðµå·Î ÆÄÀÏÀ» ¿¬´Ù. ÀÌ ÆÄÀÏ¿¡´Â ¾µ ¼ö ¾ø´Ù. |
ForWriting | 2 | ¾²±â ¸ðµå·Î ÆÄÀÏÀ» ¿¬´Ù. |
ForAppending | 8 | ÆÄÀÏÀ» ¿°í ÆÄÀÏÀÇ ³¡¿¡ ¾µ ¼ö ÀÖ´Ù. |
¼±ÅÃÀûÀÎ ¿ä¼ÒÀ̸ç, ¿·ÁÀÖ´Â ÆÄÀÏÀÇ Çü½ÄÀ» ³ªÅ¸³»±â À§ÇØ »ç¿ëµÇ´Â ¼¼ °¡Áö Tristate °ª Áß ÇϳªÀÌ´Ù.
format Àμö´Â ¾Æ·¡ ¼³Á¤°ªÀ» °¡Áú ¼ö ÀÖ´Ù. »ý·«Çϸé ÆÄÀÏÀº ASCII Çü½ÄÀ¸·Î ¿¸°´Ù.
°ª | °ª | ¼³¸í |
---|---|---|
Tristatefalse | 0 | ASCII Çü½ÄÀ¸·Î ÆÄÀÏÀ» ¿¬´Ù. |
Tristatetrue | -1 | À¯´ÏÄÚµå Çü½ÄÀ¸·Î ÆÄÀÏÀ» ¿¬´Ù. |
TristateUseDefault | -2 | ½Ã½ºÅÛ ±âº»°ªÀ¸·Î ÆÄÀÏÀ» ¿¬´Ù. |
¹Ýȯ°ª oValÀº ÁöÁ¤ÇÑ ÆÄÀÏÀ» ¿°í ±× ÆÄÀÏÀ» Àаųª, ¾²°Å³ª, Ãß°¡ÇÏ´Â µ¥ »ç¿ëÇÒ ¼ö ÀÖ´Â TextStream °³Ã¼ÀÌ´Ù.
OpenTextFile ¸Þ¼µå´Â File °³Ã¼ÀÇ OpenAsTextStream ¸Þ¼µå¿Í °°Àº ±â´ÉÀ» Á¦°øÇÑ´Ù.
¶ÇÇÑ OpenTextFile ¸Þ¼µåµµ ÆÄÀÏ¿¡ ¾²´Â µ¥ »ç¿ëÇÒ ¼öµµ ÀÖ´Ù.
¼¼°¡Áö ¸Þ¼µåµéÀº »óÈ£ È£¿ÏÀûÀ¸·Î »ç¿ëµÈ´Ù.
<SCRIPT language=JScript> function OpenTextFileTest(filePath){ var fso,fileObj,ForAppending; ForAppending=8; var fso=new ActiveXObject('Scripting.FileSystemObject'); fileObj=fso.OpenTextFile(filePath,ForAppending,false); fileObj.WriteLine('Å×½ºÆ® Ãß°¡ÀÌ´Ù.'); fileObj.Close(); str='"'+filePath+'"¿¡ Ãß°¡µÇ¾ú´Ù.'; return(str); } </SCRIPT> <DIV id=showjs class=show alt="°á°ú">°á°ú Ç¥½Ãâ</DIV> <DIV class=show onClick="showjs.innerHTML=OpenTextFileTest('C:\\JsTest\\CreateText.txt')"> <SPAN class=ie>JScript</SPAN> <SPAN class=method>OpenTextFile</SPAN> ¸Þ¼µå ¿¹Á¦</DIV>
<SCRIPT language=VBScript> Function OpenTextFileTestvb(filePath) Const ForReading=1,ForWriting=2,ForAppending=8 Dim fso,fileObj,str Set fso=CreateObject("Scripting.FileSystemObject") Set fileObj=fso.OpenTextFile(filePath,ForAppending,True) fileObj.Write "Å×½ºÆ® Ãß°¡ÀÌ´Ù." fileObj.Close str="'"&filePath&"'¿¡ Ãß°¡µÇ¾ú´Ù." OpenTextFileTestvb=str End Function </SCRIPT> <DIV id=showvb class=show alt="°á°ú">°á°ú Ç¥½Ãâ</DIV> <DIV class=show onClick="showvb.innerHTML=OpenTextFileTestvb('C:\\JsTest\\CreateText.txt')"> <SPAN class=ie>VBScript</SPAN> <SPAN class=method>OpenTextFile</SPAN> ¸Þ¼µå ¿¹Á¦</DIV>