VB程序设计教程-第10章.pptVIP

第10章　Visual Basic中的文件操作;文件概述;文件的分类依据及类别;打开关闭文件;文件操作语句与函数;Loc函数 loc（文件号） 返回当前文件号指定的的文件的读写位置。 Lof函数 lof（文件号） 返回给定的文件的字节数（求文件长度）。 Eof函数 eof（文件号） 判断文件是否结束（指针是否已到文件尾） ;顺序文件;顺序文件;随机文件;文件系统控件;文件基本操作;类型;通用模块 Savedata过程： Dim CD1 As CommonDialog ‘定义全局的通用对话框变量 Sub savedata(str As String) Set CD1 = Form1.CD1 ‘给cd1赋值 CD1.Filter = *.txt|*.txt CD1.Action = 2 Open CD1.FileName For Output As #1 Print #1, str Close MsgBox 计算结果已经成功保存到 CD1.FileName End Sub;Private Sub Form_Load() saveflag = True End Sub Private Sub open_Click() CD1.Filter = *.txt|*.txt CD1.Action = 1 Open CD1.FileName For Input As #1 i = 1 While Not EOF(1) Input #1, num numbers(i) = num Text1.Text = Text1.Text num i = i + 1 Wend Close can.Enabled = True save.Enabled = True End Sub;;创建一个随机文件，然后读出其中内容，显示在文本框中： 在窗体中创建一个文本框text1，两个命令按钮command1和command2，点击command1（写入文件）时创建文件，点击command2（读出文件）时把文件中的数据读出来，显示在文本框中。下面是程序代码： 自定义数据类型（记录类型，在窗体的通用代码段中声明） Private Type Record ID As Integer Name As String * 20 End Type;读出文件的代码（Command2的单击事件） Private Sub Command2_Click() Dim MyRecord As Record Open TESTFILE For Random As #1 Len = Len(MyRecord) While Not EOF(1) Get #1, , MyRecord Text1.Text=Text1.Text Chr(10) Chr(13) Chr(10) Chr(13) MyRecord.ID MyRecord.Name Wend Close #1 End Sub 第10章　Visual Basic中的文件操作;文件概述;文件的分类依据及类别;打开关闭文件;文件操作语句与函数;Loc函数 loc（文件号） 返回当前文件号指定的的文件的读写位置。 Lof函数 lof（文件号） 返回给定的文件的字节数（求文件长度）。 Eof函数 eof（文件号） 判断文件是否结束（指针是否已到文件尾） ;顺序文件;顺序文件;随机文件;文件系统控件;文件基本操作;类型;通用模块 Savedata过程： Dim CD1 As CommonDialog ‘定义全局的通用对话框变量 Sub savedata(str As String) Set CD1 = Form1.CD1 ‘给cd1赋值 CD1.Filter = *.txt|*.txt CD1.Action = 2 Open CD1.FileName For Output As #1 Print #1, str Close MsgBox 计算结果已经成功保存到 CD1.FileName End Sub;Private Sub Form_Load() saveflag = True End Sub Private Sub open_Click() CD1.Filter = *.txt|*.txt CD1.Action = 1 Open CD1.FileName For Input As #1 i = 1