Posted: 2005/1月/07 10:49上午 | IP记录
|
|
|
在一个文件中读写数据
这部分介绍如何读写一个文本文件。这对文本文件有很多用处,包括下面这些。
■一个常用的日志,利用文本文件记录访问者的活动以供日后参考。你可以记录诸如访问者IP地址,浏览器类型等等你能得到而且想要 了解的东西。
■Form中的数据,你可以将用户在Form的文本框中填写的东西记入文本文件,尽管使用数据库会更加有效。
■每日新闻,将每日的新消息记录到文本文件,然后可以在很多文件中读出来显示
对文本文件的写操作
要创建并且写入一个文本文件,你应当使用FileSystemObject和TextStream对象。首先,你需要创建一个F ileSystemObject对象的事例,然后,再利用CreateTextFile()以该事例创建一个TextStrea m对象的事例,最后利用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:\n et\private\test.txt
CreateTextFile()方法用来创建一个新的文本文件,当这个方法被调用,那么就返回一个TextStream对象, 这个方法有一个必须的参数和两个可选的参数。
■FileSpecifier,限定要创建的文件及路径,如果没有这个参数,显然是要报错的。
■Overwrite,这个参数是可选的,默认为TRUE,如果存在同名的文件,依据这个参数判断是否进行覆盖操作,如果赋为F ALSE,那么存在同名文件时会返回错误信息。
■Unicode,这个参数可选,默认为False,指示该文件是否用ASC码形式进行创建和保存。如果选择TRUE,将以Un icode方式创建。
再利用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_AGEN T」))
MyTextFile.Close
%>
这个脚本用于在网站中创建一个日志文件。无论什么时候这个脚本执行,此时的浏览器类型就会追加到该日志文件中,浏览器信息由Se rverVariables集合接收。
注意
有关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.tx t」,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文件中的内容,请 注意其中每一行之间用两个 来进行分隔,参见HTML中符号含义。然后用一个Form提供访问者进行添加,其中 Form执行还是这个文件,(就是第一部分脚本处理),因此注意该文件名称必须是」story.asp」
其实这个应用实在是过于简单,但是作一个留言版相当合适,而且在该文件膨胀过大时,只要删除就可以了,(不要忘了前面的脚本中将 OpenTextFile的Create参数设为TRUE)是可以创建文本文件的。
|