读取和写入文件

月见草心

我想一次读取文件名为1、2、3、……的文件，打开，读取，写入一个文件，如果不存在某个文件，则跳过，读取下一个文件，请问应该怎么做？
另外，文件中有类似“/”的东西，一读到这里程序就自动结束了。请问应该怎么办？

athlon8048

用二进制读取！

言深深

可以把所有的文件名写在一个文件里面，然后读到一个字符数组里面，下次打开的时候用
do i=1,number of files
open(1,file=filename(i))
do j=1,.........
......
close(1)
enddo

mofangbao

楼上方法可用  看一下文件读写部分 有一个打开文件状态的东东 可以用来判断文件是否存在

新小子

                          filename=trim(adjustl(dir))//'KT'//trim(adjustl(bian))//'A'//trim(adjustl(ybdate))//'00'//trim(adjustl(ceng))//trim(adjustl(t))//'.grb'
                          inquire(file=filename,exist=alive)
                  if(.not.alive)then
                             open(12,file='error.txt',position='append')
                                    write(12,*)trim(adjustl(filename))// ' do not exist'
                                 close(12)
                          else
                             filename1=trim(adjustl(dir1))//trim(adjustl(bian))//trim(adjustl(ybdate))//'08.'//trim(adjustl(t))//'.dat'
                                 filename2=trim(adjustl(dir1))//trim(adjustl(bian))//trim(adjustl(ybdate))//'08.'//trim(adjustl(t))
                             open(11,file=filename,form="unformatted",access="direct",recl=33036)
                        call read0(11,ii,filename,filename1,filename2,int(lat_sta),int(lat_end),int(lon_sta),int(lon_end),scale,control_08)                      close(11)
                          endif

新小子

1、trim（adjustl（*）），*为变量部分，可以实现文件1、2、3等的读取；
2、inquire(file=filename,exist=alive)为检验文件是否存在的函数；

新小子

刚好以前做过这样一个工作，只要能解决问题就好。

月见草心

言深深 发表于 2011-9-8 18:06

                               
登录/注册后可看大图

可以把所有的文件名写在一个文件里面，然后读到一个字符数组里面，下次打开的时候用
do i=1,number of fil ...

谢谢哦，还没仔细看完，先谢谢。

言深深

月见草心 发表于 2011-9-9 09:19

                               
登录/注册后可看大图

谢谢哦，还没仔细看完，先谢谢。

汗，加油加油吧

woshishui

新小子好厉害，学习了！