数据文件的基本操作

一、数据文件的基本操作

1.打开文件

Open File语句用于打开一个文件，其语法形式为:

　　Open File filespec

　　［For{Input|Output|Append|Random|Binary}］

　　［Access{Read|Write|Read Write}］

　　As［#］filenum

　　［Len=recordlength］

　　［ByteOrder{LOWHIGH|HIGHLOW}］

　　［CharSet char_set］

　　［Filetype macfiletype］

其中，filespec为打开的文件名;filenum为一个与文件相关联的整数值，指定文件号，用于对文件的后续操作;recordlength为在随机存取方式下确定每个记录字符个数;char_set定义符集; macfiletype指出是Macintosh文件类型的字符串。

For子句指定执行I/O操作的是顺序文件、随机文件还是二进制文件。缺省For子句，则以随机方式打开文件。例如，以下语句打开sampledata文本文件，用于读取数据。

Open File"sampledata.txt"For INPUT As#1

2.关闭文件

Close File语句用于关闭一个打开的文件，其语法形式为: Close File［#］filenum

其中，filenum为代表文件的整数值。例如:

Open File"sampledata.txt"For INPUT As#1'以读数据方式打开sampledata文件

Close File#1'关闭sampledata文件

3.文件操作函数

(1)Seek()函数。Seek()返回当前文件的位置，语法形式为:

Seek(filenum)其中，Filenum为打开文件的文件号，与Open file语句中As子句中定义的一致。

Seek()函数返回一整数值，代表了文件的位置，如果文件是用random－access模式打开的，Seek()返回下一个要读或写的记录号;如果文件是以binary模式打开的，Seek()返回下次读或写的字节位置。

(2)EOF()函数。EOF()函数返回文件指针是否到文件的末尾，语法形式为:

EOF(filenum)

EOF()函数返回一个逻辑值。如果指针到文件的末尾，EOF()函数返回TRUE，否则返回FALSE。注意，EOF()函数仅对文件进行操作有效，如果要检测表的位置，需要用EOT()函数。

(3)LOF()函数。LOF()函数返回指定文件的长度，语法形式为:

LOF(filenum)

其中，filenum是一打开文件的文件号。

LOF()函数返回一个整型值，表示一个打开文件的长度。

(4)FileExists()函数。用于测定文件的文件名和路径，其语法形式为:

FileExists(filespec)

其中，filespec为一个字符串，表示文件名和路径。

FileExists()函数返回一个逻辑值，如果指定的文件存在，函数返回TRUE，否则返回FALSE。

(5)FileAttr()函数。用于测定文件的属性和状态信息，其语法形式为:

FileAttr(filenum，attribute)

其中，filenum为用Open File语句打开的文件号，attribute指出返回的文件属性码。

FileAttr()函数返回一个整数值，表示一个打开表的相关信息。如果attribute参数设置为FILE_ATTR_MODE，函数将返回一个表示文件打开模式的短整数，取值为:MODE_INTPUT、MODE_OUTPUT、MODE_APPEND、MODE_RANDOM和MODE_BINARY之一。如果attribute参数设置为FILE_ATTR_FILESIZE，则函数返回文件大小的整数。