Fortran Coder

查看: 2779|回复: 6

[求助] 求助:Fortran如何实现批处理(需要在屏幕中输入路径)

[复制链接]

4

帖子

1

主题

0

精华

新人

F 币
28 元
贡献
10 点
发表于 2022-4-27 19:43:39 | 显示全部楼层 |阅读模式
各位大神好!
我的问题描述如下:
我用FORTRAN编译的数学模型,需要在屏幕中输入读取文件的路径(图),然后输出结果,输出文件已经在输入文件里定义好,这个不用管。
我需要运行很多组案例,也即需要输入一次文件-等待程序跑完-结束-再用另一个输入文件跑程序,需要重复操作很多次。
怎么实现批处理,能够让程序自动循环读取我准备的很多个案例的输入文件路径?
希望各位不吝赐教!
微信图片_20220427193959.png

709

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
596 元
贡献
305 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

发表于 2022-4-28 08:32:58 | 显示全部楼层
本帖最后由 楚香饭 于 2022-4-28 08:35 编辑

第一步,把 SHAW modify 21-9-24.exe 和 所有 *.inp 文件放在一个文件夹下。
第二步,在该文件夹下新建一个文本文件,并重命名为 “a.bat”,用记事本打开 a.bat,输入以下批处理代码,并保存。(请注意扩展名为 .bat ,而不是 .bat.txt,windows默认会隐藏扩展名)
第三步,双击 a.bat 运行。

[Bash shell] 纯文本查看 复制代码
@echo off
@title 正在批处理...
@color 0A
setlocal enabledelayedexpansion 

For %%i in (*.inp) do (
  echo %%i > conin.txt
  @"SHAW modify 21-9-24.exe" < conin.txt 2>nul
)
del conin.txt
echo 批处理完成
@pause

4

帖子

1

主题

0

精华

新人

F 币
28 元
贡献
10 点
 楼主| 发表于 2022-4-28 08:55:05 | 显示全部楼层
楚香饭 发表于 2022-4-28 08:32
第一步,把 SHAW modify 21-9-24.exe 和 所有 *.inp 文件放在一个文件夹下。
第二步,在该文件夹下新建一个 ...

刘涛姐夫!感谢赐教,我马上试一下!

4

帖子

1

主题

0

精华

新人

F 币
28 元
贡献
10 点
 楼主| 发表于 2022-4-28 09:05:54 | 显示全部楼层
楚香饭 发表于 2022-4-28 08:32
第一步,把 SHAW modify 21-9-24.exe 和 所有 *.inp 文件放在一个文件夹下。
第二步,在该文件夹下新建一个 ...

你好,我的模型运行,需要覆盖原来的输出文件,需要输入Y,然后按Enter才能执行(图),但是批处理文件按了Enter直接就退出去了,没有反应。这个怎么解决呢? 2.png

14

帖子

1

主题

0

精华

入门

Gone with the wind~

F 币
66 元
贡献
31 点

规矩勋章

发表于 2022-4-28 09:24:03 | 显示全部楼层
同 和能 学生帮顶

709

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
596 元
贡献
305 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

发表于 2022-4-28 09:26:38 | 显示全部楼层
[Bash shell] 纯文本查看 复制代码
@echo off
@title 正在批处理...
@color 0A
setlocal enabledelayedexpansion 

For %%i in (*.inp) do (
  echo %%i > conin.txt
  echo y >> conin.txt
  @"SHAW modify 21-9-24.exe" < conin.txt 2>nul
)
del conin.txt
echo 批处理完成
@pause

4

帖子

1

主题

0

精华

新人

F 币
28 元
贡献
10 点
 楼主| 发表于 2022-4-28 09:44:03 | 显示全部楼层
楚香饭 发表于 2022-4-28 09:26
[mw_shl_code=bash,true]@echo off
@title 正在批处理...
@color 0A

谢谢!我的问题已解决,之后我也会好好学习批处理,向您学习。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-29 23:56

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表