fortran中如何使用批处理命令删除不需要的特定txt文件？

yhwsmile · 发表于 2013-4-23 21:18:38

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由 yhwsmile 于 2013-4-23 21:29 编辑

对于所有文件在fortran中可以使用       call systemqq('del /q  *.*')进行批量删除，现在我有个问题我只想在程序运行时删除某些不符合条件的txt文件，如某些站点资料不是从1961年开始的，我想用批处理删除这些文件，但我对批处理不是很熟，请问这里该如何实现？谢谢 read(1,*,end=101)sn,iy,im,id,t,p,r,w
            if(iy/=1961) then             close（1）
               call systemqq('del / q' //csta// '.txt')
               go to 100
            end if

以上是我的代码，csta为站号，这里 call systemqq('del / q' //csta// '.txt')不正确，请问该如何写？

topmad · 发表于 2013-4-23 21:37:55

加一个trim试试
'//trim(csta)//'

yhwsmile · 发表于 2013-4-23 21:43:50

解决了，把文件路径给完全了就可以了

~~
call systemqq('del / q E:\code\' //csta// '.txt')

		自动登录	找回密码
密码			立即注册

[求助] fortran中如何使用批处理命令删除不需要的特定txt文件？

登录后查看更多精彩内容~