Fortran读取文件

具体表达为：

do

read(11,"(A46)",iostat=stat1) filename

if(stat1/=0) exit

end do

通过 if(stat1/=0) exit 就可以判断是否已经读取到文件的结尾，从而完成循环的 *** 作。

open(11,file='**.**') ! 要读取的文件

open(12,file='**.**') ！存储第一类数据的文件

open(13,file='**.**') ！存储第二类数据的文件

open(14,file='**.**') ！存储第三类数据的文件

open(15,file='**.**') ！存储第四类数据的文件

do i=1,300

read(11,*) x

write(12,*) x

end do

close(12)

do i=301,601

read(11,*) x

write(13,*) x

end do

close(13)

do i=602,902

read(11,*) x,y,z

write(14,*) x,y,z

end do

close(14)

do i=903,1202

read(11,*) x,y,z

write(15,*) x,y,z

end do

close(15)

close(11)

stop

end

1、C语言标准库提供了一系列文件 *** 作函数。文件 *** 作函数一般以f+单词的形式来命名(f是file的简写)，其声明位于stdio.h头文件当中。例如：fopen、fclose函数用于文件打开与关闭；fscanf、fgets函数用于文件读取；fprintf、fputs函数用于文件写入；ftell、fseek函数用于文件 *** 作位置的获取与设置。

2、例程：

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

#include<stdio.h>

int a

char b,c[100]

int main(){

FILE * fp1 = fopen("input.txt", "r")//打开输入文件

FILE * fp2 = fopen("output.txt", "w")//打开输出文件

if (fp1==NULL || fp2==NULL) {//若打开文件失败则退出

puts("不能打开文件！")

return 0

}

fscanf(fp1,"%d",&a)//从输入文件读取一个整数

b=fgetc(fp1)//从输入文件读取一个字符

fgets(c,100,fp1)//从输入文件读取一行字符串

printf("%ld",ftell(fp1))//输出fp1指针当前位置相对于文件首的偏移字节数

fputs(c,fp2)//向输出文件写入一行字符串

fputc(b,fp2)//向输出文件写入一个字符

fprintf(fp2,"%d",a)//向输出文件写入一个整数

fclose(fp1)//关闭输入文件

fclose(fp2)//关闭输出文件，相当于保存

return 0

---