www.sxkb.net > FortrAn文件读取示例

FortrAn文件读取示例

假设txt文件名为:'test1.txt',里面只有一个整形数字1.可以通过以下程序读取 program main implicit none integer a open(unit=11,file='test1.txt',status='old') read(11,*) a print*, a close (11) end

方法/步骤1 首先,安装好visual fortran.2 创建一个新的fortran程序文本.3 输入以下代码.program a implicit none integer::n,m,i,j real,allocatable,dimension(:,:)::a open(unit=8,file="a.txt")!文件的名字是a.txt read(8,*)m,n allocate(a(m,n)) read(8,*)((a

把括号内的*,改成100,然后再read语句下面添加格式100 FORMAT(A5,A5,F7.2,F7.2,F7.2,F7.2) 以上程序可以解决第一行的读取,第二行的读取你自己摸索一下……

文本文件,谁都可以读,记事本也可以打开来看.你在fortran中输出文本时,最好采用格式比较固定的,比如这样.a 79 80 65 okb 49 72 33 err这样读起来比较好.

1. 如果是二进制文件,可以考虑用直接读取方式.即 Open 时指定 access = 'direct'2. 如果是文本文件,且每一行的长度都是一样的.也可以使用上述方式.3. 如果是文本文件,但每一行的长度不同.那么 read 空语句也不会造成太大的时间开销.4. 对于较大的数据,我建议使用二进制进行存储.快速,高效,且误差小.

顺序读写的话,不容易.直接读写(direct),或者流文件(stream)可以很轻松的解决你的问题.

你好!Open打开文件Read(文件号,格式串)变量列表具体的可以看看帮助文件:)如果对你有帮助,望采纳.

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) end do close(12) close(13) end program READTEST试试!别急着关闭文件通道!!!!!

! read dataimplicit noneinteger,parameter:: nx=20,ny=40integer ix,iy,fx(nx,ny) open(11,file='t.txt') ! 把 t.txt 改为你要打开的txt文件的名称fx=0do iy=1,nyread(11,*) (fx(ix,iy),ix=1,nx)end doclose(11) stopend

用二维数组定义啊,比如你的文件是3行2列,则定义成A(3,2)读的时候就是do 10 i=1,310 read(设备号,格式) (A(i,j),j=1,2) 输出就改成write就是了

网站地图

All rights reserved Powered by www.sxkb.net

copyright ©right 2010-2021。
www.sxkb.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com