2015第8章文件操作.pptVIP

8．2数据文件概述（续） 5.数据文件相关的语句和函数 4）．Eof函数 语法格式：Eof(文件号) 功能：测试记录指针是否指向与文件号相关的文件的结束位置。 如果是，函数值为真值，否则为假值。 Eof函数常用来在循环中测试是否到达文件尾。 格式： Do While Not Eof(文件号) … 对文件的处理语句 Loop 5）．Loc函数 语法格式：Loc(文件号) 功能：返回与文件号相关的文件的当前读写位置。 对于随机文件，返回一个记录号(最近读或写的记录的记录号) 对于顺序文件，返回文件当前字节位置除以128的值(整数) Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8．3 顺序文件 注意：顺序文件中记录的逻辑顺序与存储顺序是一致的，对文件的读写操作只能一个记录一个记录地顺序进行。 1. 顺序文件的写操作 1）．Print#语句 格式：Print #文件号 [, 表达式表] 功能：将数据写入由文件号所指定的文件中。 “表达式表”是由逗号或分号分隔的数据项组成. 2）．Write#语句 格式：Write #文件号 [, 表达式表] 功能：将数据写入由文件号所指定的文件中。 “表达式表”是由逗号分隔的数据项组成。 注意：Write#语句与Print#语句的区别 (1) 使用Write#语句向数据文件中写数据时，数据项之间以紧凑格式分隔，并且能自动在数据项之间插入逗号，给字符串加上双引号。 (2) 用Write#语句写入的正数前面没有空格。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8．3 顺序文件 （续） 1. 顺序文件的写操作 【例8.3】某学院召开田径运动会，编程序将男子铅球决赛成绩输入。 录入成绩的界面如图 程序运行结束以后，在驱动器d的文件夹ydh下建立了一个score.txt文件，使用Windows的记事本可以打开该文件，其内容如下右图所示。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8．3 顺序文件（续） 【例8.3】程序代码如下： Private Sub Form_Load() If Dir(d:\ydh) = Then 判断文件夹存在否 MkDir d:\ydh 若不存在，则建立 End If Open d:\ydh\score.txt For Output As #1 以output方式打开 End Sub Private Sub Command1_Click() “录入”按钮 Dim number As String * 3, name As String * 6, score As Single number = Text1.Text name = Text2.Text score = Val(Text3.Text) Write #1, number, name, score Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus End Sub Private Sub Command2_Click() Close #1 关闭文件 End End Sub Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty