在一个文件中读写数据

这部分介绍如何读写一个文本文件。这对文本文件有很多用处，包括下面这些。

■

一个常用的日志，利用文本文件记录访问者的活动以供日后参考。你可以记录诸如访问者IP地址，浏览器类型等等你能得到而且想要了解的东西。

■

Form中的数据，你可以将用户在Form的文本框中填写的东西记入文本文件，尽管使用数据库会更加有效。

■

每日新闻，将每日的新消息记录到文本文件，然后可以在很多文件中读出来显示

对文本文件的写操作

要创建并且写入一个文本文件，你应当使用FileSystemObject和TextStream对象。首先，你需要创建一个FileSystemObject对象的事例，然后，再利用CreateTextFile()以该事例创建一个TextStream对象的事例，最后利用TextStream对象的WriteLine()方法来写入文件。下面是这个例子：

<%

Set MyFileObject=Server.CreateObject(

“Scripting.FileSystemObject”)

Set MyTextFile=MyFileObject.CreateTextFile(

“c:\mydir\test.txt”)

MyTextFile.WriteLine(

“欢迎进入迈至科网络ASP教程文件操作示例！”

MytextFile.Close

%>

这个例子创建了一个名字为test.txt的文件，该文件位于c:\mydir\，WriteLine()方法被用来将那一句话写入该文件。最后，这个TextStream对象的事例关闭并且释放所有资源，下面部分将对每一个步骤进行仔细解释。

注意

如果你需要虚拟路径转化为真实路径（这样操作使得站点具有更强的可移植性），可以用Server.MapPath()方法，例如下面这个例子：

PhysicalPath=Server.MapPath(

“/private/test.txt”)

假设虚拟路径/private对应于真实路径c:\net\private，那么这个PhysicalPath的值将是c:\net\private\test.txt

CreateTextFile()方法用来创建一个新的文本文件，当这个方法被调用，那么就返回一个TextStream对象，这个方法有一个必须的参数和两个可选的参数。

■

FileSpecifier,限定要创建的文件及路径，如果没有这个参数，显然是要报错的。

■

Overwrite,这个参数是可选的，默认为TRUE，如果存在同名的文件，依据这个参数判断是否进行覆盖操作，如果赋为FALSE，那么存在同名文件时会返回错误信息。

■

Unicode,这个参数可选，默认为False，指示该文件是否用ASC码形式进行创建和保存。如果选择TRUE，将以Unicode方式创建。

再利用CreateTextFile()方法创建了文本文件后，你就可以使用TextStream对象来对文件进行读写，在写操作时，有如下的方法：

■

Write(String).这个方法将一个字段写入文本文件。

■

WriteLine(String)，这个方法是在文件中添加字串和一个分行符，这里面的string参数可选，如果没有的话，则添加一个分行符。

■

WriteBlankLines(lines)，顾名思义，这是允许用户在文件中指定数目个分行符。

■

close.这个方法就是关闭一个打开的TextStream文件并释放其占用的资源。

下面是一个连续在文件中输出32行同样字符串的例子脚本：

<%

Set MyFileObject=Server.CreateObject(

“Scripting.FileSystemObject”)

Set MyTextFile=MyFileObject.CreateTextFile(

“c:\mydir\test.txt”)

For i=1 to 32

MyTextFile.WriteLine(

“Hello World!”)

Next

MyTextFile.Close

%>

在文本文件中读取和追加数据

这里，首先要做的依然是创建一个FileSystemObject对象的事例，然后，利用OpenTextFile()方法来创建一个TextStream对象的事例，最后，你就可以用TextStream对象的ReadLine方法来对文件读取，下面是个例子：

<%

Set MyFileObject=Server.CreateObject(

“Scripting.FileSystemObject”)

Set MyTextFile=MyFileObject.OpenTextFile(

“c:\mydir\test.txt”)

While not MyTextFile.AtEndOfStream

Response.Write(MyTextFile.ReadLine)

Wend

MyTextFile.Close

%>

这个脚本将文本文件Test.txt文件中所有的内容读出来并且显示在浏览器上。如果文件不存在，回显示相应错误信息（在下一个部分，你会学到怎样检测一个文件是否存在）

其中While

…Wend循环是将文件内容一行一行的循环读取，其中如果没有到达文件末尾，那么AtEndOfStream属性就会是False，直到末尾时变为True。

下面是读取文件时可能会用到的属性：

■

AtEndOfLine。这个属性判断是否到了文件中一个特定行的末尾，如果不是，则为False，反之为True

■

AtEndOfStream。就是这个例子中用到的，判断是否到了该文件的结尾并依此返回True和False

■

Column。这个属性判断当前字符在该行的位置，返回一个整数值。

■

Line。这个属性判断当前行在文件中的行数，返回一个整数值

除了使用ReadLine方法以外，你当然还可以使用Read()方法。Read()方法会从指定打开的文本文件中返回指定数目个字符。下面是用这个方法的示例：

<%

Set MyFileObject=Server.CreateObject(

“Scripting.FileSystemObject”)

Set MyTextFile=MyFileObject.OpenTextFile(

“c:\mydir\test.txt”)

While NOT MyTextFile.AtEndOfLine

Response.Write(MyTextFile.Read(1))

WEND

MyTextFile.Close

%>

这个脚本从文本文件中接受第一行，每次接受显示一个字符，利用AtEndOfLine属性一直到行尾截止，由Read(1)一个一个读取。

下面是从文本文件读取数据时要用到的方法

■

Read(Number).从文本文件中读取限定数目个字符

■

ReadLine.从文本文件中读取一行（换行符不返回)

■

ReadAll.这个方法接受TextStream文件的所有内容

■

Skip(Number).这个方法从一个打开的文本文件中跳过指定数目个字符

■

close关闭当前打开的文件并释放所占用的资源。

一般说来，OpenTextFile()方法是用来读取数据的，但是你也可以用它追加数据信息，例如，你希望在该文本数据中追加一些新内容，可以见下面的示例：

<%

Set MyFileObject=Server.CreateObject(

“Scripting.FileSystemObject”)

Set MyTextFile=MyFileObject.OpenTextFile(

“c:\mydir\browser.log”,8,TRUE)

MyTextFile.WriteLine(Request.ServerVariables(

“HTTP_USER_AGENT”))

MyTextFile.Close

%>

这个脚本用于在网站中创建一个日志文件。无论什么时候这个脚本执行，此时的浏览器类型就会追加到该日志文件中，浏览器信息由ServerVariables集合接收。

注意

有关ServerVariables集合的情况参见本书的第14章有关小节。

这里面需要说明的是，如果browser.log不存在，则会自动建立，这是使用了OpenTextFile()方法的两个参数：IOMode和Create参数。

下面介绍针对于OpenTextFile()方法的所有参数：

■

FileSpecifier，限定要进行读写或者追加的文本文件名称

■

IOMODE，可选参数，指示该文件是被用来读，写还是追加。默认为1表示读，设为2表示进行写操作，进行追加操作则设为8。

■

Create，可选参数，如果文件不存在是否创建，默认为False，如果希望进行创建，则设为TRUE

■

Format，可选参数，指示文件是ASCII码制格式还是Unicode格式，作为默认的ASCII码制文件，其值为-2，如果希望设为Unicode格式，此参数设为-1

你不能在当前版本的Active Server Pages中使用常量，例如，你如果希望进行文件 追加，你必须使用数字8作为参数而不是什么常量。

范例应用

这部分提供了一个范例应用来使得读者对这些对象、方法、属性、以及集合、有更加明晰的认识了解。在世界最大的网上书店，美国亚马逊网上书店（www.amazon.com）正在进行（也许您在阅读时这个活动还在进行）网上的故事合创运动，由John Updike先生写入 该故事的第一部分，每一天，访问者都可以根据自己的意愿在线进行故事发展的写作，同时每一天都会对写的最好的给出$1000的奖赏（如果您的英语写作足够好，不妨一试）。这个故事是大家一起添加的。

这真是个好主意，这下子网站的‘回头客’就会激增，同时产生巨大的社会影响力，你完全可以在自己的网站上实现类似的应用。最简单的方法就是直接把这个范例拿出去放到你的网站上，当然，如果你的网站还不能支持Active Server Pages，那么只好说你太不幸运了（见图19.1）。

例子19.1 Story.asp脚本

<%

IF NOT Request.Form(

“NextLine”)=”” THEN

Set MyFileObject=Server.CreateObject(

“Scripting.FileSystemObject”)

Set MyTextFile=MyFileObject.CreateTextFile(

“C:\MyDir\TheStory.txt”,8,TRUE)

MyTextFile.WriteLine(Request.Form(

“NextLine”))

MyTextFile.Close

END IF

%>

<HTML>

<HEAD><TITLE>在线故事接龙</TITLE></HEAD>

<BODY>

<hr>

<%

Set MyFileObject=Server.CreateObject(

“Scripting.FileSystemObject”)

Set MyText=MyFileObject.OpenTextFile(

“C:\MyDir\TheStory.txt”)

WHILE NOT MyTextFile.AtEndOfStream

Response.Write(

“&nsp;&nsp;”&MyTextFile.Readline)

WEND

MyTextFile.Close

%>

<HR>

<H3>请输入这个故事的新行：</h3>

<Form method=

”post” action=”Story.asp”>

<input name=

”NextLine” Type=Text Size=70>

<input type=Submit Value=

”确认添加这一句”>

</Form>

</Body>

</HTML>

图19.1 一个在线的故事接龙

这个Active Server Pages文件包含两段主要脚本，第一部分是看是否有Form传来的 句子信息，如果有，则该句子添加到TheStory.txt文件中去。第二部分是显示TheStory.txt文件中的内容，请注意其中每一行之间用两个&nbsp来进行分隔，参见HTML中符号含义。然后用一个Form提供访问者进行添加，其中Form执行还是这个文件，（就是第一部分脚本处理），因此注意该文件名称必须是

”story.asp”

其实这个应用实在是过于简单，但是作一个留言版相当合适，而且在该文件膨胀过大时，只要删除就可以了，（不要忘了前面的脚本中将OpenTextFile的Create参数设为TRUE)是可以创建文本文件的。