Visual Basic第8章 文件管理.pptVIP

程序代码 创建用户定义类型并声明变量 Private Type cj xh As String * 6 xm As String * 8 gs As Integer wy As Integer End Type Private da As cj 读取数据通用过程 Private Sub readdata() Dim lastrec As Integer, sx As Single Dim yw As Single Open xsda2.dat For Random As #1 Len = Len(da) 打开随机文件 lastrec = LOF(1) / Len(da) List1.Clear For n = 1 To lastrec Get #1, n, da msg = da.xh da.xm da.gs da.wy List1.AddItem msg Next Close #1 关闭随机文件 End Sub 编写“新记录”命令按钮Command1的Click事件代码 Private Sub Command1_Click() For i = 0 To 3 Text1(i).Text = Next Text1(0).SetFocus End Sub 编写“添加”命令按钮Command2的Click事件代码 Private Sub Command2_Click() Dim lastrec As Integer With da .xh = Text1(0).Text .xm = Text1(1).Text .gs = Val(Text1(2).Text) .wy = Val(Text1(3).Text) End With Open xsda2.dat For Random As #1 Len = Len(da) 打开随机数据文件 lastrec = LOF(1) / Len(da) Put #1, lastrec + 1, da Close #1 Call readdata Text1(0).SetFocus End Sub 编写“删除”命令按钮Command3的Click事件代码 Private Sub Command3_Click() Dim lastrec As Integer recnum = List1.ListIndex + 1 Open rec.tem For Random As #1 Len = Len(da) 打开临时随机文件 Open xsda2.dat For Random As #2 Len = Len(da) 打开随机数据文件 lastrec = LOF(2) / Len(da) For n = 1 To lastrec If n recnum Then Get #2, n, da Put #1, , da Else Get #2, n, da With da Text1(0).Text = .xh Text1(1).Text = .xm Text1(2).Text = .gs Text1(3).Text = .wy End With End If Next Close #1 Close #2 Kill xsda2.dat Name rec.tem As xsda2.dat Call Form_Load Text1(0).SetFocus End Sub 8.3.3二进制文件的访问 二进制文件的建立和打开 Open文件名For Binary As [#]文件号 二进制文件的读写 读文件：Get [#]文件号,[读写位置],[变量名] 写文件：Put [#]文件号,[读写位置],[变量名] 关闭二进制文件 Close [#]文件号 8.3.3二进制文件的访问 例8.6 用二进制文件访问方式复制文件。在两个文本框Text1，Text2中分别输入源文件和目标文件的路径及名字，单击“复制”按钮，完成文件的复制工作。 程序代码 Private Sub Command1_Click() Dim char As Byte If (Text1 = Text2) Then MsgBox (原文件与目标文件定位信