读取文件？

NWP

各位大家下午好，我想从txt文件读取这样格式的数据，并把第一行和最后一行保存在新的txt文档里，共828行，10列，每列中间还有空格，求助各位高手该怎么读？我按数组形式读不行。。。。谢谢各位！

52446 2001 01 05 18  4030   9951 11790  1                  10203  
52446 2001 01 05 21  4030   9951 11790  1                  10196  
52446 2001 01 06 00  4030   9951 11790  1                  10216   
52446 2001 01 06 03  4030   9951 11790  1                  10223   
52446 2001 01 06 06  4030   9951 11790  1                  10185
52446 2001 01 06 09  4030   9951 11790  1                  10161


program main
parameter (nx=828,ny=10)
dimension sta(nx,ny)
open (unit=10,file='e:\cezan.TXT')
do i=1,nx
  read(10,*) (sta(i,j),j=1,10)
enddo
write (*,*) sta(1,10)
end

言深深

你是想写出来第一行还是第一列？？想写出来什么就将什么数据写出来就可以了······

NWP

言深深 发表于 2012-11-14 16:48

                               
登录/注册后可看大图

你是想写出来第一行还是第一列？？想写出来什么就将什么数据写出来就可以了······

想写第一列和最后一列，但是这个数据是以字符形式保存的

言深深

额，用real或者integer直接read出来就可以了，数据保存的时候不要紧的。要是不放心，直接用characterread出来也可以

xo2001

do i=1,nx
  write(*,*) sta(i,1),sta(i,10)
enddo

xo2001

字符读取的方式要改这里
character,dimension(nx,ny)::sta*10
那个10就是你读取字符的长度，每个数在10个字符以内都可以读进去，如果字符很长，需要把10变大

NWP

xo2001 发表于 2012-11-14 17:02

                               
登录/注册后可看大图

字符读取的方式要改这里
character,dimension(nx,ny)::sta*10
那个10就是你读取字符的长度，每个数在10个 ...

谢谢，问题已解决。。

NWP

NWP 发表于 2012-11-14 17:05

                               
登录/注册后可看大图

谢谢，问题已解决。。

追问一个问题，数据读进来了，但是使字符型的，我用这些数据做数学运算，该怎么处理？谢谢

NWP

xo2001 发表于 2012-11-14 17:02

                               
登录/注册后可看大图

字符读取的方式要改这里
character,dimension(nx,ny)::sta*10
那个10就是你读取字符的长度，每个数在10个 ...

追问一个问题，数据读进来了，但是使字符型的，我用这些数据做数学运算，该怎么处理？谢谢

xo2001

需要把字符变成实型或者整形，http://blog.163.com/niu_yingli/blog/static/237423852007464111970/