存取文件的方法有许多种-第九章

1、第9章档案，访问文件的方法有多种。您可以使用VB提供函数、使用windows Api函数等，但是最简单的方法是使用filesystemobject对象。不是VB内建物件，因此可以用作参考。1filesystemObject对象引用项目/引用/microsoft scription Runtime对象浏览器窗口中，选择scripting模块。可以看到添加了很多对象。drive filesystemobject档案访问dim fs as new filesystemobject创建filesystemobject对象dim txtf as textstream定义textstream对象变量tex

2、tstream对象变量读取和写入textstrem对象和文件的所有文件必须在读取和写入之前打开。打开Filesystemobjet对象提供的文件的方法有两种：打开opentextfile档案创建createtextfile档案通过filesystemobject打开的文件是TextStream对象，通过textstream对象的各种方法和属性1)opentextfile方法：打开档案set textstream对象名称=fiileopentextfile(档案名称、IO模式、是否自动创建档案)档案名称：建议使用记录完整路径的档案名称。I/o模式：可以设置为forreading(=1)、forw

3、rting(=2)或forappending(=8)。设定为Forreading时，开启的档案为唯读。如果设置为Forwriting，则打开的文件是可写的，并将清除原始文件的内容。设置为Forappending时，可以写入打开的文件，但不会清除原始文件的内容，数据在档案的最后面写入。参数默认值：表示forreading只读。是否自动创建文档：可以设置为true或false。如果设置为True，则在文件不存在的情况下自动创建新文件。如果设置为False，则文件不存在时会出错。默认值：显示为false。示例：以只读文件打开c 3360 autoexec . bat dim fs as new fi

4、le system object dim txtf as text stream set txtf=fs . open text file( c : autfile示例dim fs as new file system object dim txtf as text stream set txtf=fs . open text file()True)txtf . close，2) createtextfilecreatetextfile(档案名称，是否复盖原始文件：可以设置为true或false)。默认情况下，默认值为true。复盖原始文件如果设置为true，则会在文件存在时损坏原始文件，并用

5、新文件替换。设定为False会在档案存在时建立c:text.txt，如果c 3360 test . txt存在，则会产生复写错误的范例。dim fs as new file system object dim txtf as text stream set txtf=fs . create textfile( c 3360 text . txt )3)file exissis一般不会损坏现有文件但是，可能会发生错误。如何避免错误，首先可以检查文件是否存在。在牙齿的情况下，调用filesystemobjet对象的fileexists方法，如下所示：Fs是file system object if

6、 fs . file exists(“c 3360 test . txt”)then文件。else set txtf=fs . create textfile()End if 4)readline和writeline方法：档案读取和写入使用createdtextfile和opentextfile打开(设置)读取时，必须调用textstream对象的readline方法。写入时必须调用writeline方法。范例：txtf和txtf2都会读取textstream物件s=txtf.readline的资料行，并将变数s的资料写入变数txtf2.writeline s，做为一行档案的资料。5)aten

7、dofstream属性：当读取位置到达档案末尾时，再次调用readlin将导致错误。若要避免牙齿错误，请检查textstream对象的atendofstream属性。如果为true，则无法重新读取数据，因为档案位置已到达档案末尾。if nottxtf . atendofstreamthen s=txtf . readline endif示例：将c:autoexec.bat文件复制到c 3360 auto exec . bak档案dim fs as new FIM中Tream dim txt F2 as texttxtf2.writeline s将数据作为txtf2中的一行写入wend txtf

8、1文件Adall方法：一次读取文件中的所有内容。readline方法一次只读取一行数据，readall方法一次读取文件的所有内容。Txtf是textstream对象if not txtf . atend ofstream then text 1 . text=txtf . read all end if end sub。7)read和write方法：档案读写read和readline方法的主要区别在于，read方法一次读取一行数据，而read方法一次读取n个字符。例如，n=100 s=txtf.read (n)取决于读取方法(例如。ext、dll、BMP等格式档案)write和writelin

9、e方法的主要区别在于，每次向writeline牙齿文件写入数据时，都会写入更多的chr(13)和chr(10)。例如，使用readall和write方法写入c 3360 asdim fs as new file system object dim txtf as text stream，txt F2 as text stream set txtf=fs . open text file(“c : autoexec . bs True”)添加工具栏按钮。在程序中提供保存档案、打开档案和创建新档案的功能。首先定义全局变量textchange以记录文本框是否已修改。2在new_Click()事件中P

10、rivate subnew _ Click()if text change=1 then aa=msgbox(是否保存修改的档案，vbokcancel) id活动存储档案ees private subopen _ click()dim fs as new file system object dim txtf as text stream if text change=1 then aa=msgbox(是否保存现有更改？vbok cancel)If aa=1 then save file end If end If text 1 . text=text change=0 common dial

11、og 1 . show open set txtf=fs . open text private subsave _ click()save file End subprivate subtoolbar 1 _ button click(byval button as mscomctlib . button)selection 徐璐其他表单共享的进程，变量必须存储在标准模块中。以前的记事本程序一次只能编辑一个文件。属于SDI的应用程序。相反，Microsoft word可以同时打开和编辑多个文档。是MDI应用程序。1、使用“创建MDI西餐”菜单“添加项目/MDI西餐”命令将新MDI表格添加到项

12、目中。如果要通过从菜单中选择“工程/工程1属性”命令打开“项目属性”对话框，然后将“启动对象”设置为“MDIForm1”在MDI表单中创建菜单和工具栏，创建MDI子表单以在运行时创建多个子表单来访问徐璐的其它文档，则不建议在设计阶段先创建多个表单，一般方法是先将子表单设置为牙齿应用程序文档的模板，然后通过对象变量实现将西餐命名为form1，然后在属性窗口中将属性：mdichild设置为true。将richtextbox对象放置在表单中。将标准模块添加到项目中。module1记录代码。public no as integer sub file new proc()dim newdoc as new