计算机二级VB课件第七章.pptVIP

第 7 章 文 件 [格式]：Open 文件名 [For Random] As [#]文件号 Len=记录长度[功能]：打开一个随机文件。[说明]：（1）Random为文件的缺省访问模式，可省略；（2）Len为指定的记录长度，不能比实际写入的数据短，否则会出错 例1：Open “D:\hb\Test.txt” For Output as #1 例2：Dim sFileName As String sFileName=“D:\hb\Test.txt” Open sFileName For Append As #100 例3：Open “File1” For OutPut As #9 Open “File2” For Output As #9 例4：Open “File1” For Append As #10 ? 　　 Open “File1” For Append As #11 以相同的文件号打开 两个不同的文件 在文件未关闭前 又重复打开 错误在哪里？ ２、Print ＃语句 [格式]：Print #文件号 ，[输出列表] [功能]：将输出列表中的语句写到顺序文件中。 [说明]：该语句和普通的Print语句的输出控制格式完全相同，也分紧凑和标准两种。 执行上述程序后，文件test.dat中的数据如下 Open “test.dat” for output as #10 print #10, 1 , 2 , 3 print #10,”We”,”study”,”VB6.0” Close 10 例1： 2 3 We study VB6.0 提示： 为了避免以紧凑格式输出的各字符串难以明显区分，可以人为加上逗号间隔： 例如： print #10,”We”；”,” ; ”study”；”,”; ”VB6.0” 上述语句的执行结果为：We ,study ,VB6.0 Open “test.dat” for output as #10 Print #10 , 1；2；3 Print #10 , ”We”；”study”；”VB6.0” Close 10 1 2 3 WestudyVB6.0 例2： 执行上述程序后，文件test.dat中的数据如下： Private Sub Command1_Click() Dim i As Integer, a(10) As Integer Open d:\test.txt For Output As #1 For i = 1 To 10 a(i) = Int(Rnd * 100) + 100 Print a(i); Print #1, a(i); Next i Print Print #1, Close #1 End Sub 3 Write语句 [格式]：Write #文件号,[输出列表] [功能]：将输出列表中的语句写到顺序文件中。 [说明]：Write语句和Print语句的功能基本相同，它们之间的差别主要在： （1）Write语句写入的数据按照紧凑格式存放，各数据项之间自动插入逗号作为分隔符； （2）Write语句写入的字符串数据自动加上双引号作为限界符。 OPEN “TEST.DAT” for output as # 12 Write #12 ,1 ,-2 ,3 ,”ABC” Write #12 Write #12, 5,6,7,”DEF”, Write #12 Close #12 例： 1,-2,3,”ABC” 5,6,7,”DEF” 上述程序执行后， TEST.DAT文件中的数据为： Private Sub Command2_Click() Dim i As Integer, a(10) As Integer Open d:\test.txt For Output As #1 For i = 1 To 10 a(i) = Int(Rnd * 100) + 100 Print a(i); Write #1, a(i), Next i Print Write #1, Close #1 End Sub 7.3.2 顺序文件的读操作 当一个文件存在时，可以对