第十一讲 文件解析.pptVIP

主讲人:安东兴 4. 驱动器、目录及文件列表框的同步操作 在实际应用中，驱动器列表框、目录列表框和文件列表框往往需要同步操作，这可以通过属性的改变引发Change事件来实现。例如，使驱动器列表框、目录列表框同步的操作如下： Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub 类似地，使文件列表框与目录列表同步的操作如下： Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub cboType ComboBox 控件 drvDrive DriveListBox 控件 dirDirectory DirListBox 控件 filFile FileListBox 控件 Picture1 图片框 名 对象 【例3】文件系统控件基本用法演示。所用控件如下： Sub Form_Load() Item = 所有文件(*.*) cboType.AddItem Item + Space(20 - Len(Item)) + *.* Item = 图像文件(*. JPG) cboType.AddItem Item + Space(20 - Len(Item)) + *.JPG Item = 位图文件(*.BMP) cboType.AddItem Item + Space(20 - Len(Item)) + *.BMP cboType.ListIndex = 2 End Sub Sub cboType_Click() filFile.Pattern = Mid(cboType.Text, 21) End Sub Sub drvDrive_Change() dirDirectory.Path = drvDrive.Drive End Sub Sub dirDirectory_Change() filFile.Path = dirDirectory.Path End Sub Sub filFile_Click( ) Picture1.Picture = LoadPicture(filFile.Path + \ + filFile.FileName) End Sub 14.7 文件基本操作 1. Kill语句 格式：Kill pathname 功能：删除文件。 说明：pathname中可以使用统配符“*”和“?”。 例如：Kill *.TXT 2. FileCopy语句 格式：FileCopy source , destination 功能：复制一个文件。 说明：FileCopy语句不能复制一个已打开的文件。 例如： FileCopy D:\a1.TXT, E:\a2.TXT 3. Name 语句 格式：Name oldpathname As newpathname 功能：重新命名一个文件或目录。 说明： (1) Name具有移动文件的功能。 (2) 不能使用统配符“*”和“?”，不能对一个已打开的文件上使用Name语句。 Name D:\a1.TXT As E:\a2.TXT 3．综合应用（1小题，计30分） 在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2，两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为读入数据和保存数据），如图3-5所示。程序运行后，如果单击读入数据按钮，则读入in.txt文件中的100个整数，放入一个数组中（数组下界为1），并在文本框Text1中显示出来；如果单击保存数据按钮，则把数组中的前50个数据在文本框Text1中显示出来，并存入考生文件夹中的文件result.txt中。（考生文件夹中有标准模块prog.bas，其中的putdata过程可以把指定个数的数组元素存入result.txt文件。） 注意：上面出现的考生文件夹均为c:\wexam文件必须存放在考生文件夹下，窗体文件名为sjt5.frm，工程文件名为sjt5.vbp，结果存入result.txt文件，否则没有成绩。 上机第3套 在输入时加入逗号，可分隔字符串。 Private Su