第六章文件的读与写

第三章文件的读与写简单留言本案例简单留言本案例案例分析简单的留言本功能用户填写留言内容用户可以浏览留言内容简单留言本的实现步骤制作留言本的表单界面编写留言本的表单处理程序浏览用户留言信息涉及的知识点：文本文件的创建文本文件的写入文本文件的读取FileSystemObject对象创建FileSystemObject对象

创建FileSystemObject对象的语法如下：

<%

Dim对象名称

Set对象名称=Server.CreateObject(“Scripting.FileSystemObject”)

%>

例如定义一个名为“objfso”的文件对象，则

dimobjfsoset

objfso=server.createobject(“Scripting.filesystemobject”)复制文件复制文件——copyfile方法

格式：fso.copyfilesource,destination[,overwrite]

其中：参数fso是文件系统对象的一个实例；参数Source表示源文件；参数Destination表示目标文件；Overwrite选项表示是否覆盖一个已经存在的文件，是逻辑类型，如果覆盖则为True。移动文件文件移动操作——movefile方法格式：fso.movefilesource,destination其中：参数fso是文件系统对象的一个实例；参数Source表示源文件；参数Destination表示目标文件；例2：将d:\test1.txt移动到e:\myweb\test3.txt。<%dimobjfsosetobjfso=server.createobject(“scripting.filesystemobject”)

objfso.movefile“d:\test1.txt”,”e:\myweb\test3.txt”%>删除文件删除文件——Deletefile方法

格式：FSO.Deletefilesource

其中：FSO是文件系统对象的一个实例；参数Source表示将要删除文件的文件名。例4：删除d:\book.txt。

<%dimobjfsosetobjfso=server.createobject(“scripting.filesystemobject”)

objfso.deletefile“d:\book.txt”%>创建文本文件创建文本文件——Createtextfile方法

格式如下：

SetobjTextStream=objFso.createtextfile(Filename,[overwrite[,Unicode]])

其中：objFso：创建的FSO对象实例名称；Filename:所要创建文件的完整路径与名称；Overwrite：是否允许覆盖已有文件，True表示允许覆盖原有的文件，False表示不允许覆盖原有的文件；创建文本文件Unicode：指定文件是否以Unicode或ASCII文件格式创建，如果文件以Unicode格式创建，则值为True;如果以ASCII格式创建，则值为False。objTextStream：创建一个“objTextStream”数据流对象名称；例7：使用CreateTextFile方法在真实路径指定的位置创建一个空的文本文件。

<%Dimfso,filsetfso=server.createobject(“scripting.Filesystemobject”)setfil=fso.createtextfile(“D:\mywebs\test1.txt”,True)%>打开文本文件利用opentextfile方法打开一个文本文件

setfil=fso.opentextfile(filename[,iomode[,create[,format]]])

其中：fil表示打开文件时的TextStream对象的名称；filename表示文件的完整路径与名称；iomode表示输入输出模式,是可选参数;常数值说明ForReading1以只读方式打开文件ForWriting2以只写方式打开文件ForAppending8打开文件并在文件末尾进行写操作打开文本文件Create参数是可选的，当指定的filename不存在时，确定是否要创建新文件。允许创建新文件时，此值为True,否则为False。如果予以省略，则不创建新文件。Format参数是可选的，指以何种格式打开文件；如果省略则以ASCII格式打开。例8：以写方式打开d:\test1.txt。<%dimfso,filsetfso=server.createobject(“scripting.filesystemobject”)const

forreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,forwriting,True)%>文件文件的写入往文本文件中写入内容文本文件的写入方法主要有:Write方法格式:objectname.write(string)

作用:写入指定字符串。

例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,forwriting,True)

fil.write(“helloworld!”)

str=“大家好”

fil.write(str)%>文件文件的写入往文本文件中写入内容Writeline方法

格式：objectname.writeline(string)

作用:写入指定字符串和换行字符。

例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,forwriting,True)

fil.writeline(“helloworld!”)

str=“大家好”

fil.write(str)%>文件文件的写入往文本文件中写入内容Writeblanklines方法

格式：objectname.writeblanklines(lines)

作用:写入指定数目的新行字符。

例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,forwriting,True)

fil.writeline(“helloworld!”)

fil.writeblanklines(2)

str=“大家好”

fil.write(str)%>关闭文本文件关闭文本文件

objectName.closesetobjectName=nothingsetfso=nothing

例：

<%

fil.closesetfil=nothingsetfso=nothing%>写文本文件写入文本文件文本文件的写入主要有以下几个步骤：创建文件系统对象；以写方式打开文本文件；进行文本文件的写操作；关闭文本文件。写文本文件<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,forwriting,True)

fil.writeline(“helloworld!”)

str=“大家好”

fil.write(str)

fil.closesetfil=nothingsetfso=nothing%>读取文本文件内容文本文件的读取Read方法格式：objectName.read(characters)作用：从文本文件中读取指定数量的字符；例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,1,True)response.writefil.read(2)%>读取文本文件内容文本文件的读取Readline方法格式：objectName.readline作用：从文本文件中读取一整行，不包括换行符；例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,1,True)response.writefil.readline%>读取文本文件内容文本文件的读取Readall方法格式：objectName.readall作用：读取一个文本文件的所有内容。例：

<%dimfso,fil,strsetfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,1,True)

str=fil.readall%>读取文本文件内容文本文件的读取skip方法格式：objectName.skip(number)作用：在读取文本文件时跳过几个字符；例：

<%dimfso,fil,str,str1setfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,forappending=8setfil=fso.opentextfile(“d:\test1.txt”,1,True)

str=fil.read(2)fil.skip(3)

str1=fil.readline%>读取文本文件内容文本文件的读取skipline方法格式：objectName.skipline(number)作用：在读取文本文件时跳过下一行继续读取文件。例：

<%dimfso,fil,str,str1setfso=server.createobject(“scripting.filesystemobject”)constforreading=1,forwriting=2,f