9章节 文件.pptVIP

第9章 文件;本章内容;9.1.1 文件的结构;9.1.2 文件的存取类型;9.2 顺序文件;9.2.1 顺序文件的打开与关闭;例如：打开E：盘下Visual BasicL文件夹中的a1.txt文件，用来从中读取数据，其语句为： Open “E:\Visual BasicL\a1.txt” For Input As #1 例如：在E：盘下Visual BasicL文件夹中创建a2.txt文件，用来写入数据，其语句为： Open “E:\Visual BasicL\a2.txt” For Output As #2 例如：打开E：盘下Visual BasicL文件夹中的a2.txt文件，用来在文件的末尾添加数据，其语句为： Open “E:\Visual BasicL\a2.txt” For Append As #3 关闭顺序文件： 访问文件操作结束后，应关闭该文件以保证其正确和完整，关闭文件要使用Close语句，其语法结构如下： Close [[#]文件号列表] 其中，文件号列表是包括一个或多个已打开的文件的文件通道号，若全部缺省，则关闭所有用Open语句打开的文件。 例如：关闭已打开文件通道号为1的文件，其语句为： Close #1 例如：关闭已打开文件通道号为1和3的文件，其语句为： Close #1,3 例如：要关闭所有已打开的文件，其语句为： Close ;9.2.2 顺序文件的写操作;（2）Write #语句 格式：Write #文件号,[输出列表] 功能：将输出列表的数据写入到指定的文件中。 说明：数据以紧凑格式存放，都是在写入的数据间加入逗号作分隔符。输出列表末尾无分隔符，则输出回车、换行符到文件。字符串写入文件时字符串两端自动加双引号，其它非数值类型数据写入文件时两端加“#”号。 【例9-2】用Write #语句写入数据文件。 Private Sub Command1_Click() Open E:\Visual BasicL\a2.txt For Output As #1 Write #1, 0910101, 单温然, 98 Write #1, 0910103; 白俊伟; 73 Write #1, Write #1, 0910106; 王海涛; #1/2/1990#, Write #1, True Close #1 End Sub;9.2.3 顺序文件的读操作;【例9-3】用Input #语句读取例9-2中的“a2.txt”文件中的数据。 Private Sub Command1_Click() Dim xh As String, xm As String Dim cj As Single Open E:\Visual BasicL\a2.txt For Input As #1 Input #1, xh, xm, cj Close #1 Print xh, xm, cj End Sub;;【例9-4】用Line Input #语句读取例9-1中的“a1.txt”文件中的数据。 Private Sub Command1_Click() Dim sj As String Open E:\Visual BasicL\a1.txt For Input As #1 Line Input #1, sj Close #1 Print sj End Sub ;;;;依据以上分析，可得程序代码如下： Private Sub Command1_Click() Dim n As Integer, x As Integer, k As Integer Open E:\Visual BasicL\su.txt For Output As #1 n = 0 For x = 2 To 1000 For k = 2 To x - 1 If x Mod k = 0 Then Exit For End If Next k If k = x Then Print #1, x; n = n + 1 If n Mod 5 = 0 Then Print #1, End If Next x Close #1 Command1.Enabled = False Command2.Enabled = True End Sub Private Su