VB程序设计第9章 文件处理.pptVIP

9.3实训指导 9.3.1技能训练目的 掌握文件、文件夹和驱动器控件的功能、设计和编程方法。 掌握顺序文件的建立、输入和输出数据。 掌握随机文件的建立、输入和输出数据。 掌握二进制文件的建立、输入和输出数据。 掌握各种与文件有关的函数功能。 9.3.2技能训练内容 【实训9.1】利用文本框、文件、文件夹和驱动器控件建立一个简单文本文件编辑器。 参考代码： Private Sub Dir1_Change() File1.Path = Dir1.Path Text2.Text = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() Text2.Text = File1.Path \ File1.FileName End Sub Private Sub Form_Load() Combo1.AddItem *.txt Combo1.AddItem *.doc End Sub Private Sub Combo1_click() Dim aa As String aa = Combo1.List(Combo1.ListIndex) File1.Pattern = aa End Sub Private Sub Command1_Click() Dim b As String If Text2.Text Then Text1.Text = Open Text2.Text For Input As #1 b = Do Until EOF(1) Line Input #1, nextline b = b nextline Chr(13) Chr(10) Loop Close #1 Text1.Text = b End If End Sub Private Sub Command2_Click() If Text2.Text Then Open Text2.Text For Output As #1 Print #1, Text1.Text Close #1 End If End Sub 程序执行后结果如图9-1所示。 图9-1 【实训9.2】建立一个职工档案文件，要求可实现录入和显示记录功能。 参考代码： Dim FileNo As Integer Dim Bh, Xm, Xb As String Dim Jbgz As Single Private Sub Command1_Click() FileNo = FreeFile Open zgda.txt For Append As FileNo Bh = Text1.Text Xm = Text2.Text Xb = Text3.Text Jbgz = Val (Text4.Text) Write #FileNo, Bh, Xm, Xb, Jbgz Close #FileNo End Sub Private Sub Command2_Click() FileNo = FreeFile Open zgda.txt For Input As FileNo List1.AddItem 编号 Space(4) 姓名 Space(4) 性别 Space(4) 基本工资 Do While Not EOF(FileNo) Input #FileNo, Bh, Xm, Xb, Jbgz List1.AddItem Bh Space(7) Xm Space(5) Xb Space(6) Jbgz Loop Close #FileNo End Sub Private Sub Command3_Click() Unload Me End Sub 程序执行后结果如图9-2所示。 图9-2 【实训9.3】用文件系统对象（FSO）创建文件并写入数据。 参考代码： Private Sub Form_Click ( ) Dim objA As Object, objB As Object Set objA = CreateObject(Scripting.FileSystemObject) Set objB = objA.CreateTextFile(c:\FSO.txt, True) objB.WriteLine (文件系统对象的应用)