fortran批处理文件的疑惑？

kongfeng0824

下面是清风帖子中的程序，如下所示：
我的问题是，加入我读进数据之后，我要对数据进行处理，我的数据应该在哪里写呢？
以下的红字部分是我的理解，不知道对不对？
这段程序是清风举得一个例子，
大概的意思是把一个文件夹下面的同类型的数据名称读到一个txt文件中，然后打开txt文件，逐个读取并对数据进行处理。
我最近在处理批量的二进制的降水数据，想要批量打开进行处理。


以下程序来自清风的批量处理数据的帖子。
program listfile
character*100 fPath
character*200 path
character*100 outPut
integer a,b
b=0
fPath="D:\data\1\*.000"
outPut="D:\data\dir2.txt"
call ListToFile(fPath,outPut)
open(1,file='dir.txt',status='old')
10 continue
read(1,*,end=20)path
!print*,index(Path,"dir.txt")
if(index(Path,"dir.txt")==0)then
  !print*,path
  open(2,file=''//trim(Path)//'',status='old')
  read(2,*) a %我的处理程序是不是应该放在这里呢？
%我的处理程序是不是应该放在这里呢？
%我的处理程序是不是应该放在这里呢？
  close(2)
  b=b+a
%我的处理程序是不是应该放在这里呢？
endif
goto 10
20 close(1)
print*,b

end program listfile

lqouc

理解的基本没问题吧，不要怕错，试试就知道了。话说看着77就觉得很不爽。
open(2,file=''//trim(Path)//'',status='old')就是打开了你的目录文件中写的第一个数据，trim(Path)是数据的名字。
read(2,*) a就是开始读第一个数据的内容了，你的程序就应该放着这里，但是个人感觉如果数据不只有一行的话read前面应该有循环。当然了，那个index我没看懂。话说之前不是给过你批处理的程序，也没搞定？

mofangbao

建议楼主从基础的东西开始学,没有会走就想跳是不行的,如何读取数据要根据你的数据格式来,如何处理也不是说有什么固定的法则,当然处理程序是在你把要处理的数据读出来之后,你先理解好这个程序再开始动手吧

kongfeng0824

lqouc 发表于 2013-3-6 08:14

                               
登录/注册后可看大图

理解的基本没问题吧，不要怕错，试试就知道了。话说看着77就觉得很不爽。
open(2,file=''//trim(Path)//'' ...

多谢指点！！

kongfeng0824

mofangbao 发表于 2013-3-6 09:10

                               
登录/注册后可看大图

建议楼主从基础的东西开始学,没有会走就想跳是不行的,如何读取数据要根据你的数据格式来,如何处理也不是说有 ...

多谢清风的建议

jeffggg

这个我也很像学啊

jeffggg

mofangbao 发表于 2013-3-6 09:10

                               
登录/注册后可看大图

建议楼主从基础的东西开始学,没有会走就想跳是不行的,如何读取数据要根据你的数据格式来,如何处理也不是说有 ...

清风版主 讲文件名称邪恶到一个文件夹下后 如何用fortran程序读取文件里的那些文件的内容呢 如果读取的话不久等于把名称读取了 而没有读取内容吗

mofangbao

jeffggg 发表于 2013-3-19 19:20

                               
登录/注册后可看大图

清风版主 讲文件名称邪恶到一个文件夹下后 如何用fortran程序读取文件里的那些文件的内容呢 如果读取的话 ...

你下载我那个批处理帖子里面的例子学习一下看看 文件名是作为变量动态变化的  

jeffggg

谢清风版主了  我试试 最近很烦啊 看到fortran都烦死了

Wuchuanhao

{:eb502:}{:eb502:}