本帖最后由 做个霸气的木头 于 2013-3-24 00:14 编辑
kongfeng0824 发表于 2013-3-24 00:02
楼主批量提取二进制数据,然后在批量输出需要的变量。但是文件名称还是按照原来的输出到另外的文件夹,应该 ...
批量处理文件,需要文件名有一定规律,想办法把文件名变成变量,加入循环,批量读取与写出就实现了,不同规律的怎么处理看情况的,给你这样个例子:
program ex00
implicit none
integer ss(17745,15),i,j
character(len=5) si(753) !必须声明长度,否则字符串无法连接
open(10,file='zhanhao753.txt') !10号对应的文件存的是文件名包含的站台号,如54531这样
open(20,file='testrec.txt')
do i=1,753
read(10,*) si(i) !读取753个台站号码为 字符型,将唯一变化的站号读取到数组si(i)中
open(15,file="c:\SURF_CLI_CHN_MUL_DAY-"//si(i)//".txt") !连接字符串,成为文件名,到不同的文件夹的话修改路径就好了
read(15,*) (ss(1,j),j=1,6) ! 尝试读取每个文件的第一行的前6个数值 write(*,*) i write(20,*) i !输入到测试文件testrec.dat中 write(20,*) (ss(1,j),j=1,6) close(15) enddo close(10) close(20) end |