fortran批量转换问题

lxlycosa

将格点txt文件批量转换成grd文件
原始程序是这样的
program txt2grid
implicit none
integer i,j
integer,parameter::xn=73,yn=57
real t2m
character*32 prefile,infile,outfile

Open(10,file='E:/data/ec/30/06Z20JUN2016_no2Tsfc.txt',status='old')
open(1,file='E:/data/ec/30/0620.grd',status='replace',form='binary')
do i=1,yn
do j=1,xn
  read(10,*)t2m
  write(1)t2m
enddo
enddo
close(1)
end


这样处理短期数据还行，如果时间长的话，就要一次次手动输入，转换比较麻烦
想请问一下，这种原始文件是带字母的，怎么样可以批量转换成如上的grd文件。
有3种原始文件名字
00Z30AUG2016_no2Tsfc
03Z01AUG2016_TMP2m
2016072221_t  
都转换成月+日这种形式的grd，应该如何批量转换

lxlycosa

没人知道么

黎大页子

要读取文件名用字符串变量来表示，根据你的文件命名规律，让fortran循环读取。

sfj-1221@163.co

你的文件名称没有规律性啊，还下文件名，改成有规矩的就可以了