【经管类】存取文件的方法有许多种- 第九章.ppt

第九章文件opentextfile打开文件createtextfile建立文件通过filesystemobject所打开的文件是一个TextStream对象，而通过textstream对象的各种方法和属性，就可以进一步读写文件。1）opentextfile方法：打开文件settextstream对象名=filesystemobject名.opentextfile(文件名，IO模式，是否自动建立文件）文件名：建议写入完整路径的文件名。IO模式：可设置成forreading(=1)、forwrting(=2)或forappending(=8)。如果设置成forreading，则打开的文件是只读的；如果设置成forwriting，则打开的文件是可写的，而原来文件的内容会被清除；如果设置成forappending，则打开的文件是可写的，但原文件的内容不会被清除，数据会从文件的最后面开始写入。参数缺省：表示forreading只读。是否自动建立文件：可设置成true或false。设置为：true则当文件不存在时，会自动建立一个新文件。设置为：false则当文件不存在时，就会产生错误。缺省时：表示为false。例：将c:\autoexec.bat打开成为只读文件dimfsasnewfilesystemobjectdimtxtfastextstreamsettxtf=fs.opentextfile(“c:\autoexec.bat”)例：将c:\text.txt打开成“从文件最后面写入的文件”dimfsasnewfilesystemobjectdimtxtfastextstreamsettxtf=fs.opentextfile(“c:\test.txt”,forappending,true)txtf.close2）createtextfile方法：建立文件settextstream对象名=filesystemobject名.createtextfile(文件名称,是否覆盖原文件）文件名称：建议写入完整路径的文件名。是否覆盖原文件：可设置成true或false。可缺省，缺省时是true,覆盖原文件如果设置成true，则当文件存在的时候，原文将会被破坏，而以新文件所替代。如果设置成false，则当文件存在时，将会产生错误例：建立一个c:\text.txt，若c:\test.txt存在，则覆盖它。dimfsasnewfilesystemobjectdimtxtfastextstreamsettxtf=fs.createtextfile(“c:\text.txt”)3）fileexists方法：文件是否存在？为了避免破坏已有的文件，通常会将“是否覆盖原文件”参数设置为false。但是有可能产生错误，如何避免错误，可以先判断文件是否存在，此时调用filesystemobjet对象的fileexists方法，具体程序如下：‘fs为filesystemobjectiffs.fileexists(“c:\test.txt”)then‘文件已存在‘其它处理方式elsesettxtf=fs.createtextfile(“c:\text.txt”)endif4）readline和writeline方法：文件的读取与写入利用createdtextfile和opentextfile所打开（建立）的是文本文件，要存取文本文件，通常采用逐行读取或逐行写入的方式。读取时必须调用textstream对象的readline方法。写入时必须调用writeline方法。例：‘txtf和txtf2均为textstream对象s=txtf.readline‘读取一行数据，并设置给s变量txtf2.writelines‘将变量s的数据作为文件一行数据写入5）atendofstream属性：文件是否已到末尾？当读取位置已经到达文件的末尾时，如果再调用readlin读取数据，将会产生错误，为了避免这个错误，必须判断textstream对象的atendofstream属性，如果为true，就表示文件位置已经到达文件末尾，不可以再读数据。Ifnottxtf.atendofstreamthens=txtf.readlineendif例：将c:\autoexec.bat文件复制成为c:\autoexec.bak文件dimfsasnewfilesystemobjectdimtxtf1astextstreamdimtxtf2astextstreamdimsasstringsettxtf1=fs.opentextfile(“c:\autoexec.bat”,forreading,true)settxtf2=fs.createtextfile(“c:\autoexec.bak”,true)whileno