sppk.net
当前位置:首页 >> FortrAn怎样读取txt文件里面两列数据? >>

FortrAn怎样读取txt文件里面两列数据?

首先你要看有多少行多少列。 不妨,按照你的例子,比如有10行,2列 开头写上行数,列数10,2 之后就是你的数组 然后代码如下: program mainimplicit noneINTEGER m,n,iREAL,ALLOCATABLE:: a(:),b(:)OPEN(8,FILE="a.txt")READ(8,*)m,n !n=2ALLOCA...

REAL X(100),Y(100) OPEN(12,FILE='123.TXT') DO I=1,100,1 READ(12,100) X(I),Y(I) ENDDO 100 FORMAT(F5.2,1X,F5.2) 说明:123为你txt文档名字 txt中数据时有要求的,你给的数据有个别不满足要求,如 4.50 5.00应该改成 4.50 5.00也就是说要改成整...

TXT 和 CSV 的读取方式是一样的。 Integer , parameter :: N = 行数 Integer :: i Real :: Time(N) , P(N) Open( 12 , File = 文件名 ) Read( 12 , * ) !// 跳过第一行表头 Do i = 1 , N Read( 12 , * ) Time(i) , P(i) End Do

例如:有一个TXT文件是4列、2412行的,想交换它的第二列和第三列,不用EXCEL数据文件“in.txt”qerwqwe 56.67 34.45 12.00dfdfd 12.78 34.89 11.00tyyu 45.89 12.67 67.00以下是fortran77程序文件:character*8 areal b,c,dinteger stat1open(8,fi...

读取时请用“自由格式”,而不要用规格化的格式,因为你提供的数据不是规格化的。

写成直接读取文件,来读取相应的记录

代码如下: real time(n),flux(n) ! 定义两个数组,分别存放时间和流量,数组大小为n,即数据的个数 open(1,file='data.txt') ! 打开数据文件 do i=1,n ! 逐行读入数据 read(1,*)time(i),flux(i) ! 依次读入时间和流量 enddo end 补充: 注释有...

字符串处理本就不是fortran的强项。此问题用pascal很容易,程序如下: var f1,f2:text; s,s1,s2:string; p1,p2:integer; begin assign(f1,'test.txt'); reset(f1); assign(f2,'test.out'); rewrite(f2); while not eof(f1) do begin readln(f1,s...

program READTEST implicit none integer,parameter::NX=10 integer,parameter::NY=10 integer i,j,HP(NX,NY) open(12,file="maze.txt",status="old") open(13,file="result.txt") do j=NY,1,1 read(12,*) HP(1:NX:1,j) write(13,*) HP(1:NX:1,j...

没有说明数据格式。 以输入字符串为例 要实现覆盖很简单,每次重新打开文件 以w方式即可 FILE *fp;char s[100];while(gets(s)){ fp = fopen("out.txt", "w"); fprintf(fp, "%s", s); fclose(fp);}

网站首页 | 网站地图
All rights reserved Powered by www.sppk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com