FORTRAN 调用系统命令

白兔糖0217

有2个文件夹，分别是rhdata，tdata，每个文件夹中有823个文件


想对这两个文件夹进行批处理，下面是我的代码：

character(len=*),parameter::fhr="hour2\"        !!!! 修改 !!!!!   根目录下的文件夹时次
character(len=*),parameter::fdr="D:\Fortran\Liitle_r\BJ-NJ\"         !根目录
character(len=*),parameter::dr2="rhdata\",dr1="tdata\"

call system('dir /b trim(fdr)//trim(fhr)//trim(dr1)//'*.txt' > 't-'//trim(fhr)//'.dat'')
open(10,file=a,status='old',form='formatted',iostat=istat,position='rewind')

报错了，说call 命令不对，找不到系统下的文件们。

急求大家给点指导！

万分感谢！

topmad

找不到文件 你先把路径print出来 看看是不是你要的路径

Really

大神呢？

白兔糖0217

topmad 发表于 2015-3-16 10:19
找不到文件 你先把路径print出来 看看是不是你要的路径

有试过：
character(len=60),parameter::ff1=trim(fdr)//trim(fhr)//trim(dr1)

print*,ff1
输出是：D:\Fortran\Liitle_r\BJ-NJ\hour2\tdata\    （正是我的文件夹）
但是一放进这个里，貌似就报错了。是不是我后面的‘*.txt’ 用法不对？？

白兔糖0217

Really 发表于 2015-3-16 10:19
大神呢？

同问！

qxtlyf

白兔糖0217 发表于 2015-3-16 10:28
有试过：
character(len=60),parameter::ff1=trim(fdr)//trim(fhr)//trim(dr1)

在fortran中可能要加绝对路径调用命令，建议先在dos下调试

白兔糖0217

qxtlyf 发表于 2015-3-16 10:35
在fortran中可能要加绝对路径调用命令，建议先在dos下调试

未果。。。。

Really

call systemqq()
试试

topmad

呃..我给你找找我当时的东西

1. subroutine run
   
2. implicit none
   
3. integer*4 result
   
4. integer,external::systemqq
   
5. 
   
6. result=systemqq('H:\WOFOSTTEST\RUNIO\run.bat')
   
7. endsubroutine
   

subroutine run<br /> implicit none<br /> integer*4 result<br /> integer,external::systemqq<br /> <br /> result=systemqq('H:\WOFOSTTEST\RUNIO\run.bat')<br /> endsubroutine<br />

白兔糖0217

Really 发表于 2015-3-16 10:57
call systemqq()
试试

我记得system 和 systemqq  区别不大，刚刚试过了，没能成功。还在继续试~~~