批量输出固定行数的的txt

自由行

我先在有一列数据需要每隔5000行输出一个txt为1一个月份，资料从2006年一月份到2100年12月31日，我需要输出的结果txt的名字为2006.1.txt、2006.2.txt到2100.12.txt，怎么批处理命令可以实现喃，我只做过一年输出可以 ，但是要输出95年每一年的月份.txt.就不知道该怎么办了，求助大神。这是以前处理一年输出的批处理程序，需要输出的名称也读入在一个txt，但是现在有95年的，每一年有12各月份，不可能手动输入txt的名称读入，再批量输出吧，读入的时候可以做什么处理喃或者输出的时候能使得程序自动识别，比较急希望与老师们交流
program main
implicit none
integer,parameter::allrows=789360,danzhan_rows=5060,colums=5,start_year=1961,end_year=2015,sta_num=156
integer,dimension(allrows,colums):: datas
character(len=5),dimension(sta_num):: state_name
integer i,j
open(1,file='statename.txt')
do i=1,sta_num
    read(1,*) state_name(i)
enddo
close(1)
open(2,file='out4.txt')
do i=1,allrows
   read(2,*) datas(i,1:colums)      !把state.txt里面所有数据读入datas这个数组里面
enddo
close(2)
do i=1,sta_num
    open(30,file='F:/work/scrain/6-8/R95p/2/\allzhandianshuju\'//state_name(i)//'.txt')
    do j=danzhan_rows*(i-1)+1,danzhan_rows*i
        write(30,*) datas(j,1:colums)
        if(j==danzhan_rows*i) then
            exit  
        endif
    enddo
    close(30)         
enddo   
end

金色牛神

文字能明白，但代码似乎还有站号，不止一列，没太明白，单说文字叙述性的内容。只要按年份和按月份二重循环就行了

DO I = 2006,2100  !Year
  WRITE(CYear,'(I4)') I
  DO J = 1,12   !Month
    WRITE(CMon,'(I2.2)') J
    OPEN(J,FIEL = '路径'//CYear//'_'//CMon//'.txt')
    DO K = 1,5000  !Row
        READ( , ) 从文件中读取一行
        WRITE(J,*) 自己设定格式读进来
    END DO
        CLOSE(J)
  END DO
END DO

这里主要用到一个技巧，把循环变量变成字符型拼接进路径，生成自动的文件名，详细参考：
http://bbs.06climate.com/forum.php?mod=viewthread&tid=24905
   

wxhasdf

{:5_196:}{:5_196:}{:5_196:}{:5_196:}{:5_196:}{:5_196:}

自由行

金色牛神 发表于 2017-4-21 16:48
文字能明白，但代码似乎还有站号，不止一列，没太明白，单说文字叙述性的内容。只要按年份和按月份二重循环 ...

嗯嗯，站号是以前的fortran，程序，