Visual Basic程序设计案例教程第10章.pptVIP

10.3.4 顺序文件 注意： ① 当把一个字段存入变量时，存储字段的变量的类型决定了该字段的开头和结尾。 ② 当把字段存入字符串变量时，下列符号标识该字符串的结尾：双引号(“)：当字符串以双引号开头时；逗号(,)：当字符串不以双引号开头时；回车-换行：当字段位于记录的结束处时。 ③ 当把字段写入一个数值变量，则下列符号标识出字段的结尾：逗号；一个或多个空格；回车-换行 10.3.4 顺序文件 2．顺序文件的读操作 顺序文件的读数据操作由Input语句和Line Input语句来实现。 （1）Input语句。 格式： Input #文件号，变量名列表 功能： Input语句从一个顺序文件中读出数据项，并把这些数据项赋给程序变量。 例如： Input #1,A,B,C 从1#文件中读出3个数据项,分别把他们赋给A、B、C三个变量。 说明： ① “文件号”的含义同前。“变量名列表”由一个或多个变量组成，这些变量既可以是数值变量，也可以是字符串变量或数组元素，从数据文件中读出的数据赋给这些变量。文件中数据项的类型应与Input语句中变量的类型匹配。 10.3.4 顺序文件 ② 在用Input语句把读出的数据项赋给数值变量时，将忽略前导空格、回车或换行符，把遇到的第一个非空格、非回车或换行符作为数值的开始，遇到空格、回车或换行符则认为数值结束。对字符串数据，同样忽略开头的空格、回车或换行符。如果需要把开头带有空格的字符串赋给变量，则必须把字符串放在双引号中。 ③ Input语句与InputBox函数类似，但InputBox函数要求从键盘上输入数据，而Input语句要求从文件中输入数据，而且执行Input语句时不显示对话框。 ④ Input语句也可以用于随机文件。 10.3.4 顺序文件 例10-4 编写程序，用写字板建立一个名为“orderdata.dat”的数据文件，在其中输入数据，如图9-12所示。数据项之间用空格或回车符分开，用冒泡法对数值数据按从小到大的顺序进行排序。 图10-12 “orderdata.dat”数据文件 10.3.4 顺序文件 文件中共有21个数值数据，第一个数据20表示数据个数，实际参加排序的有20个数据。 （1）编写代码。 在代码窗口中输入如下代码： Option Base 1 Private Sub Form_Click() Static x() As Integer Open c:\vb\orderdata.dat For Input As #1 Input #1, n ReDim x(n) As Integer FontSize = 12 For i = 1 To n Input #1, x(i) Next i For i = n To 2 Step -1 For j = 1 To i - 1 If x(j) x(j + 1) Then t = x(j + 1) x(j + 1) = x(j) x(j) = t End If Next j Next i Close #1 For i = 1 To n Print x(i); If i Mod 5 = 0 Then Print Next i End Sub 10.3.4 顺序文件 （2）运行程序。 运行结果如图10-14所示。 图10-14 数据排序结果 10.3.4 顺序文件 （2）Line Input语句。 格式： Line Input #文件号，字符串变量 功能： Line Input语句从顺序文件中读取一个完整的行，并把它赋值给一个字符串变量。 说明： ①“文件号”的含义同前。 ②“字符串变量”是一个字符串简单变量名，也可以是一个字符串数组元素名，用来接收从顺序文件中读出的字符行。 ③在文件操作中，Line Input语句与Input语句功能类似。只是Input语句读取的是文件的数据项，而Line Input语句读的是文件中的一行。Line Input语句也可以用于随机文件。Line Input语句常用来复制文件。 10.3.4 顺序文件 例10-5 用写字板建立文件“c:\vb\kekuxuexi.dat”，内容如图10-15所示。编写程序将其内容读到内存中并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件“c:\vb\kekuxuexicopy.dat”。 图10-15 文件“c:\vb\kekuxuexi.dat” 10.3.4 顺序文件 （1）设计界面。 在窗体上添加一个文本框Text1，在属性窗口中把文本框的Multi