Fortran文件.pptVIP

第十一章 文件 文件的概念 文件的打开与关闭 文件的读写 其他文件操作 11.1 文件的概念 11.2 文件的打开与关闭 FORM=form：记录格式说明，form是一个字符串表达式，此表达式的值可以是以下三种之一： FORMATTED：记录按有格式的形式存放。 UNFORMATTED：记录按无格式的形式存放。 BINARY：记录按二进制的形式存放。 对于顺序存取方式，此说明项的缺省值为“FORMATTED”。 对于直接存取方式，此说明项的缺省值为“UNFORMATTED”。 存取方式、格式都省略时，为顺序存取的有格式文件。 RECL=recl：记录长度说明，recl是一个正整数，用于指定顺序存取文件的最大记录长度和直接存取文件的每条记录的长度。记录的长度单位为字节。 对于直接存取文件必须指定记录长度。 IOSTAT=iostat：出错状态说明时，将由系统自动给iostat赋一个整型值。当输入输出操作没有发生错误时，其值为0；若已检索到文件末尾，则为一个负数；若发生错误，则为错误信息代码。 二、CLOSE 语句 ADVANCE=Advance：说明是否为推进型的有格式顺序存取方式。Advance为字符型表达式，有两种选项：“YES”：推进型，在每次读/写操作后，将指针定位于记录尾，缺省为“YES”。 “NO” ：非推进型，允许读/写一个记录的一部分，然后将指针定位于此次读/写的最后一个字符之后。 例11.3 P216 按顺序存取方式在格式文件中写入三种不同类型的数据。 CHARACTER*20 string NUMBER=123 VALUE=987.65 STRING=AN EXAMPLE OPEN(8,FILE=“FILE11-4.TXT”) !有格式顺序存取 WRITE(8,100)number WRITE(8,200)value WRITE(8,300)string 100 FORMAT(I6) 200 FORMAT(F8.3) 300 FORMAT(A10) CLOSE(8) END 对顺序文件进行输入输出的基本规则： （1）READ语句中各输入项在类型和采用的格式说明上必须与输出语句的输出项一一对应。 （2）如果READ语句中的输入项少于记录中的数据项，则记录中多余的数据项被忽略，下一个READ语句从一个新的记录开始读入。 如果READ语句中的输入项多于记录中的数据项，则以空格填补记录（若该输入项为数值型，空格转换为相对应的数值0），直到所有的输入项都得到数据为止。 例11.4 P217 从文件FILE11-4.TXT中输入数据，将数据显示在屏幕上。 CHARACTER*20 string OPEN(8, FILE=FILE11-4.TXT) READ(8, 100)number,value READ(8, 300)string WRITE(*, *) number,value,string 100??FORMAT(I6, F8.3) 300 FORMAT(A10) CLOSE(8) END （3）一个WRITE语句总是开始一个新的记录，但是形成新的记录还与FORMAT中格式的多次使用及斜杠“/”描述符有关。例如： REAL value(4) DATA value/1.2, 2.3, 3.4, 4.5/ OPEN(9, FILE=FILE11-16.TXT) WRITE(9, 100) value 100 FORMAT(2F10.3) CLOSE(9) END 二、有格式直接存取文件 对有格式文件进行直接存取时，在OPEN语句中除了说明设备号、文件名外，一定要说明存取的方法ACCESS=“DIRECT”和记录的存取格式FORM=“FORMATTED”，并且要指定记录的长度。 在进行输入/出操作时，READ语句和WRITE语句中多了一控制项：REC=rec。rec是一个值大于0的整型表达式，用来指定要读/写的记录的序号。 例11.6 将例11.3 改用直接方式进行存取。 CHARACTER*20 STRING NUMBER=123 VALUE=987.65 STRING=AN EXAMPLE OPEN(8,FILE=FILE11-5.TXT,ACCESS=DIRECT, FORM=FORMATTED,RECL=10) WRITE(8,100,REC=1)NUMBER WRITE(8,200,REC=3)VALUE WRITE(8,300,REC=2)STRING 100 FORMAT(I6) 200 FORMAT(F8.3) 300 FORMAT(A10) CLOSE(8)