Visual Basic程序设计综合教程 教学课件 作者 田春婷 主编 第9章 文件.ppt

尚辅网 尚辅网  第9章 文件 在现代计算机系统中，要用到大量的程序和数据，由于内存容量有限，且不能长期保存，故平时总是把它们以文件的形式存放在外存中，需要时可随时将它们调入内存。所以，在操作系统中增加了文件管理的功能，即文件系统，优秀的文件系统是任何软件不可缺少的部分，好的文件系统可以使软件用户安全地保存自己的数据，从而使软件更具有强大的生命力，因而有广泛的应用。  通过本章学习，读者应掌握以下内容： 【主要内容】 掌握文件的读写操作过程。 掌握有关文件操作常用函数和命令的使用方法。 掌握相关的文件系统控件。  9.1 引例 【引例】在名称为Form1的窗体上建立一个文本框（名称为Text1，Multiline属性为True,ScrollBars属性为2）和两个命令按钮（名称分别为Cmd1和Cmd2，标题分别为“读入数据”和“排序显示保存”）（如图9.1(a)所示）。程序运行后，如果单击“读入数据”按钮，则读入“in.txt”文件中的100个整数，放入一个数组中（数组下界为1）；如果单击“排序显示保存”按钮。，则对这100个整数从大到小进行排序，把排序后的全部数据在文本框中显示出来，然后存入文件”Result.txt”中。图9.1(a) 【引例】设计界面 要求：把数据写入文件“Result.txt”用过程putdata来完成。  操作步骤 (1) 设计界面 根据题目的要求，建立如图9.1(a)所示的用户界面。 (2) 属性设置 各控件的属性设置，见表9.1。  表9.1【引例】属性设置  (3) 编写代码 ’在窗体模块中定义变量 Dim number(1 To 100) As Integer Dim i As Integer, j As Integer, t As Integer ’命令按钮Cmd1(输入数据)中程序代码为： Private Sub Cmd1_Click() Open c:\in.txt For Input As #1 For i = 1 To 100 Input #1, number(i) Next Close #1 For i = 1 To 100 a$ = a$ + Str(number(i)) + Next Text1 = a$ End Sub  ’命令按钮Cmd2(排序显示保存)中排序程序代码为： Private Sub Cmd2_Click() For i = 100 To 2 Step -1 For j = 1 To i - 1 If number(j) number(j + 1) Then t = number(j + 1) number(j + 1) = number(j) number(j) = t End If Next j Next i For i = 1 To 100 a$ = a$ + Str(number(i)) + Next Text1 = a$ putdata number(), 100 End Sub  ’标准模块中定义的Sub过程(保存文件) Sub putdata(a() As Integer, n As Integer) Dim sFile As String sFile = \result.txt Open App.Path sFile For Output As #1 For i = 1 To n Print #1, a(i); Next Close #1 End Sub  (4) 运行程序 程序运行后，单击“读入数据”命令按钮，则读出文件“in.txt”文件中的100个整数，放入数组number(1 To 100)中，并显示在文本框中，运行结果如图9.1(b) 所示，单击“排序显示保存”按钮，则对这100个整数从大到小进行排序，并把排序后的全部数据显示在文本框中，然后存入文件“Result.txt”，见图9.1(c)。   分析: 在【引例】中，单击“读入数据”按钮，把文件in.txt中数据读出来存放在数组number(100)中，单击“排序显示保存”按钮，对数组number(100)中数据进行排序处理后，把结果写入文件result.txt中。【