1、创建 FileSystemObject 对象实例；
您现在的位置：
减小字体
增大字体 <% Set fso=Server.CreateObject("Scripting.FileSystemObject") %>2、创建 TextStream 对象实例；
<% txtFile=fso.CreateTextFile(filename[,overwrite[,unicode]]) %>3、使用 TextStream 对象的方法对文件进行写操作。
使用 CreateTextFile 方法创建一个文本文件后，可以使用 TextStream 对象的方法对该文件进行写操作，主要有以下方法：
1）使用 Write 方法向 TextStream 文件写入字符串，语法格式如下：
txtFile.Write(string)其中 txtFile 是必选参数，应为 TextSteam 文件对象的名称。string 是可选参数，指定要写入文件的文本。
2） 使用 WriteLine 方法向 TextStream 文件写入指定字符串和新行字符，语法格式如下：
txtFile.WriteLine(string)其中 txtFile 是必选参数，应为 TextSteam 文件对象的名称。string 是可选参数，指定要写入文件的文本。如果省略，将向文件写入新行字符。
3） 使用 WriteBlankLines 方法在 TextStream 文件中写入指定数目的新行字符，语法格式如下：
txtFile.WriteBlankLines(lines)其中 txtFile 是必选参数，应为 TextSteam 文件对象的名称。Lines 也是必选参数，指定要向文件写入的新行字符数目。
4）使用 Close 方法关闭打开的 TextStream 文件，语法格式如下：
txtFile.Close二、TextStream 对象的属性和方法：
1、TextStream 对象的属性
TextStream 对象的属性| 属 性 | 描 述 |
| AtEndOfLine | 若文件指针位于文件中某一行的尾端，返回 True，否则返回 False。 |
| AtEndOfStream | 若文件指针位于文件的尾端，返回 True ，否则返回 False 。 |
| Column | 返回文件指针位于文件当前行的第几列。 |
| Line | 返回文件指针位于文件当前行的第几行。 |
2、TextStream 对象的方法
TextStream 对象的方法 <表二>
| 方 法 | 描 述 |
| Close | 关闭文件。 |
| Read(Num) | 从文件指针的位置读取后面的Num个字符，然后存放至字符串。 |
| ReadAll | 读取整个文件，然后存放至字符串。 |
| ReadLine | 从文件指针的位置读取一行，然后存放至字符串。 |
| Skip(Num) | 读取文件时跳过 Num 个字符。 |
| SkipLine | 读取文件跳过一行。 |
| Write(Strion) | 将字符串 String 写入文件。 |
| WriteLine(Sring) | 将字符串 String 写入文件，并在字符串的后面加上换行字符 （vbCrLf) ，若没有指定 String ，表示写入一个空行。 |
| WriteBlankLines(Num) | 将Num 个换行字符 （vbCrLf) 写入文件，即写入 Num 个空行。 |
三、实例：本实例说明如何利用 TextStream 对象的属性和方法创建一个文本文件并对其执行写操作。代码如下：
<% @ language="VBScript" %>
<html>
<head><title>创建文件示例</title></head>
<body>
<p>正在写文件......</p>
<%
'创建 FileSystemObject 对象实例
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'创建一个文本文件并返回 TextStream对象
Set txtFile=fso.CreateTextFile(Server.MapPath("poem.htm"),True)
'对文件执行写操作
txtFile.WriteLine "<HTML>"
txtFile.WriteLine "<HEAD>"
txtFile.WriteLine "<TITLE>望庐山瀑布</TITLE>"
txtFile.WriteLine "</HEAD>"
txtFile.WriteLine "<BODY>"
txtFile.WriteLine "<DIV ALIGN=CENTER>"
txtFile.WriteLine "<H3>望庐山瀑布</H3>[庸] 李白"
txtFile.WriteLine "<HR width='50%' COLOR='#CC9999'>"
txtFile.WriteLine "<P>日照香炉生紫烟，遥乍瀑布抂前川。</P>"
txtFile.WriteLine "<p>飞流直下三千尺，疑是银河落九天。</P>"
txtFile.WriteLine "<p><p><A HREF='textStream.asp'>返回上一页</A>"
txtFile.WriteLine "</DIV>"
txtFile.WriteLine "</BODY>"
txtFile.WriteLine "</HTML>"
txtFile.Close
%>
<DIV ALIGN="center">
<P>文件创建成功！请单击下面的链接打开该文件：</P> <!--生成的poem.htm文件存放在创建它的文件 textStream.asp 同目录中。-->
<A HREF="poem.htm" TITLE="望庐山瀑布">查看文件</A> <A HREF="5-5-2.asp">返回上一页</A>
</DIV>
</BODY>
</HTML>当执行这个页面后，将在这页面的同一目录下生成一个名为 poem.htm 的页面，其代码如下：
<HTML>
<HEAD>
<TITLE>望庐山瀑布</TITLE>
</HEAD>
<BODY>
<DIV ALIGN=CENTER>
<H3>望庐山瀑布</H3>[庸] 李白
<HR width='50%' COLOR='#CC9999'>
<P>日照香炉生紫烟，遥乍瀑布抂前川。</P>
<p>飞流直下三千尺，疑是银河落九天。</P>
<p><p><A HREF='textStream.asp'>返回上一页</A>
</DIV>
</BODY>
</HTML>
【中国下载站】【设为主页】【收藏本页】【打印本文】【回到顶部】【关闭此页】
