批量循环读取predict文件

茜意

现在我要读取循环predict文件，用时间文件date作为读文件的路径一部分，并用时间文件控制要读哪个文件，我调用下面的程序能输出outputfile1（j）,outputfile2（j）实现吗？代码如下：    谢谢老师！

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	subroutine timefileprepare(Began_time,finish_time,deltminute,outputfile1,outputfile2,sizeoffile,totaltime)

02	integer Began_time,finish_time,deltminute,totaltime

03	integer datelength,sizeoffile

04	integer minutestep,hourstep,tempint

05	character(90) date1char,date2char,timechar,temp_char  !(sizeoffile)

06	character outputfile1(4300),outputfile2(4300)

07	integer dateofile(25000)

08	integer date1,date2,time

09	integer TIMELENGH

10	!________截取时间段_____________________

11	open(11,file="date.txt")

12

i=0

13	do while(.not.eof(11))

14

i=i+1

15	read(11,*) dateofile(i)

16

enddo

17	!do i=1,4246

18	!  read(11,*) dateofile(i)

19

! enddo

20

close(11)

21

22	TIMELENGH=4246

23	minutestep=deltminute

24

25

j=0

26	do i=1,TIMELENGH

27	if (((dateofile(i)).GE.(Began_time)).and.((dateofile(i)).LE.(finish_time))) then

28

j=j+1

29

! k=j

30	date1=int(dateofile(i)/10000)+2*10**7              !20150427  适用于实际降水文件

31	date2=int(dateofile(i)/10000)+2*10**7+2*10**9    !2020150427  适用于预报文件

32	time=dateofile(i)-int(dateofile(i)/10000)*10000  !10000

33	if(time.LE.1000) then

34	write(temp_char,"(I4)") time

35	timechar="0"//trim(temp_char)

36

end if

37	write(timechar,"(I4)") time                    ! 0730

38	write(date1char,"(I8)") date1                  !20150427

39	write(date2char,"(I10)") date2                 !2020150427

40

41	outputfile1(j)=trim(date1char)//"_"//trim(timechar(2:5))    !20150427_0730

42	outputfile2(j)=trim(date2char)//"_"//trim(timechar(2:5))  !2020150427_0730

43

end if

44

end do

li913

Fortran Coder（群号： 2338021）
里面有 批量处理文件 的教程。也可参考
http://fcode.cn/code_gen-97-1.html
http://fcode.cn/code_gen-12-1.html

fcode

文件名在语法里，视为字符串，所以你可以用一切支持字符串的用法和函数来处理文件名，实现批量读写。

你可参考楼上给出的页码，也可以观看本站的视频教程应用篇第一期 http://v.fcode.cn