<p> 一、创建文本文件的步骤如下：</p><p> 1、创建 FileSystemObject 对象实例；</p><code> <% Set fso=Server.CreateObject("Scripting.FileSystemObject") %></code><p> 2、创建 TextStream 对象实例；</p><code> <% txtFile=fso.CreateTextFile(filename[,overwrite[,unicode]]) %></code><p> 3、使用 TextStream 对象的方法对文件进行写操作。</p><p> 使用 CreateTextFile 方法创建一个文本文件后，可以使用 TextStream 对象的方法对该文件进行写操作，主要有以下方法：</p><p> 1）使用 Write 方法向 TextStream 文件写入字符串，语法格式如下：</p><code>txtFile.Write(string)</code><p> 其中 txtFile 是必选参数，应为 TextSteam 文件对象的名称。string 是可选参数，指定要写入文件的文本。</p><p> 2） 使用 WriteLine 方法向 TextStream 文件写入指定字符串和新行字符，语法格式如下：</p><code>txtFile.WriteLine(string)</code><p> 其中 txtFile 是必选参数，应为 TextSteam 文件对象的名称。string 是可选参数，指定要写入文件的文本。如果省略，将向文件写入新行字符。</p><p> 3） 使用 WriteBlankLines 方法在 TextStream 文件中写入指定数目的新行字符，语法格式如下：</p><code>txtFile.WriteBlankLines(lines)</code><p> 其中 txtFile 是必选参数，应为 TextSteam 文件对象的名称。Lines 也是必选参数，指定要向文件写入的新行字符数目。</p><p> 4）使用 Close 方法关闭打开的 TextStream 文件，语法格式如下：</p><code>txtFile.Close</code><p> 二、TextStream 对象的属性和方法：</p><p> 1、TextStream 对象的属性</p>TextStream 对象的属性 <table><tr><td>属 性</td><td>描 述 </td></tr><tr><td>AtEndOfLine</td><td>若文件指针位于文件中某一行的尾端，返回 True，否则返回 False。 </td></tr><tr><td>AtEndOfStream</td><td>若文件指针位于文件的尾端，返回 True ，否则返回 False 。 </td></tr><tr><td>Column</td><td>返回文件指针位于文件当前行的第几列。</td></tr><tr><td>Line</td><td>返回文件指针位于文件当前行的第几行。</td></tr></table> <p> 2、TextStream 对象的方法</p>TextStream 对象的方法 <表二> <p> <table><tr><td>方 法</td><td>描 述 </td></tr><tr><td>Close </td><td>关闭文件。</td></tr><tr><td>Read(Num)</td><td>从文件指针的位置读取后面的Num个字符，然后存放至字符串。</td></tr><tr><td>ReadAll</td><td>读取整个文件，然后存放至字符串。</td></tr><tr><td>ReadLine</td><td>从文件指针的位置读取一行，然后存放至字符串。</td></tr><tr><td>Skip(Num)</td><td>读取文件时跳过 Num 个字符。 </td></tr><tr><td>SkipLine</td><td>读取文件跳过一行。</td></tr><tr><td>Write(Strion)</td><td>将字符串 String 写入文件。</td></tr><tr><td>WriteLine(Sring)</td><td>将字符串 String 写入文件，并在字符串的后面加上换行字符 （vbCrLf) ，若没有指定 String ，表示写入一个空行。 </td></tr><tr><td>WriteBlankLines(Num)</td><td>将Num 个换行字符 （vbCrLf) 写入文件，即写入 Num 个空行。 </td></tr></table></p><p> 三、实例：本实例说明如何利用 TextStream 对象的属性和方法创建一个文本文件并对其执行写操作。代码如下：</p><code><% @ language="VBScript" %><br /><html><br /><head><title>创建文件示例</title></head><br /><body><br /><p>正在写文件......</p><br /><%<br />'创建 FileSystemObject 对象实例<br />Set fso=Server.CreateObject("Scripting.FileSystemObject")<br />'创建一个文本文件并返回 TextStream对象<br />Set txtFile=fso.CreateTextFile(Server.MapPath("poem.htm"),True)<br />'对文件执行写操作<br />txtFile.WriteLine "<HTML>"<br />txtFile.WriteLine "<HEAD>"<br />txtFile.WriteLine "<TITLE>望庐山瀑布</TITLE>"<br />txtFile.WriteLine "</HEAD>"<br />txtFile.WriteLine "<BODY>"<br />txtFile.WriteLine "<DIV ALIGN=CENTER>"<br />txtFile.WriteLine "<H3>望庐山瀑布</H3>[庸] 李白"<br />txtFile.WriteLine "<HR width='50%' COLOR='#CC9999'>"<br />txtFile.WriteLine "<P>日照香炉生紫烟，遥乍瀑布