如何获得由 'FOR1.EXE' 检查所得的有关信息?(100分)

Jamson · 1999-09-12

先生：     不知道您还记得微软的‘Fortran 77 ’否? 这是个纯DOS版本的Fortran编译器，我打算为其做一个SHELL。在这个SHELL中，我需要后台运行其中的 FOR1.EXE，运行的命令格式（在DOS下）为：‘for1 name.for;’。我尝试 实现DOS中的‘for1 name.for；>>try.txt ’，希望能将有关检查信息置 于文件‘try.txt’中。于是用‘ name.for；>>try.txt’用作ShellExecute中‘for1.exe’的运行参数，但结果‘for1.exe’报错且不接‘>>try.txt’ 为参数，但此命令行在DOS下运行正常。为此请教先生如何获得‘for1.exe’检查所得到的信息？

小天 · 1999-09-12

在DOS中，“>>”是做为输出管道， 而在一般的程序中的参数，是做为程序的输入部分 虽然我并不知道你所做SHELL的用意，但我想你可以在程序中以外部程序的方式调用， 而不要作为参数进行输入

amo · 1999-09-12

DOS下屏幕的输出，即con也是有某个固定的文件句柄的，     应该是1-5之间的某个数， 就是说，屏幕输出也就是往con写文本就是了， 你设置你的文件如try.txt的打开句柄为con的句柄就是了。 另外，如象forshell已经有了吧？

Jams · 1999-09-12

使用For1 文件名.for >>文件名 不会有问题。

SeaSky · 1999-09-13

用下列方式ShellExecute 'COMMAND.COM /C C:/test/for1 name.for; >> C:/test/try.txt'

SeaSky · 1999-09-13

'COMMAND.COM /C C:/test/for1.exe name.for >> C:/test/try.txt'

cytown · 1999-09-13

SEASKY的方法肯定行, 必须指明全路径才行. c:/COMMAND.COM /C C:/test/for1.exe C:/test/name.for >> C:/test/try.txt

cAkk · 1999-11-05

win95下用bat方式进行stdout重定向,可能并不是这么简单,请看以下M$用VB给的例子: After the parent Visual Basic application spawns the child console process, the parent Visual Basic application provides input to the child's STDIN and receives the output from the child's STDOUT. By using a batch file, the parent Visual Basic application provides the child's STDIN through a disk file and collects the child's STDOUT through another disk file. Step-by-Step Example Create a console application, CONSOL.EXE, that expects an integer as its STDIN and sends a text string out as its STDOUT, using the following C code:       #include <stdio.h>       void main(void)       {             int i;             scanf("%d", &i);             printf("/nSTDIn is %d!/n", i);       }   Create a batch file, named REDIRECT.BAT, that contains only the following command line: type stdin.txt | consol.exe > stdout.txt Create a new text file using Notepad or any text editor. Enter an integer and press the ENTER key. Save the file as "stdin.txt." Start a new project in Visual Basic. Form1 is created by default. Add the following code to the General Declarations section of Form1:       Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal _          dwAccess As Long, ByVal fInherit As Integer, ByVal hObject _          As Long) As Long       Private Declare Function CloseHandle Lib "kernel32" (ByVal _          hObject As Long) As Long       Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _        hHandle As Long, ByVal dwMilliseconds As Long) As Long       Const SYNCHRONIZE = &H100000       Const NORMAL_PRIORITY_CLASS = &H20&       Const INFINITE = -1&   Add the following code to the Form1_Click event:       ProcessID& = Shell("test.bat", vbNormalFocus)       ProcessHandle& = OpenProcess(SYNCHRONIZE, True, ProcessID&amp

WaitForSingleObject ProcessHandle&, -1&       CloseHandle ProcessHandle& Save Form1 and Project1 to the same directory as REDIRECT.BAT and CONSOL.EXE. Press the F5 key to run the program. Click Form1. A console window is displayed briefly and closes itself. The STDOUT.TXT file is then created in the same directory. 触类旁通吧!

mikecool · 1999-11-10

我有个办法，其实我也做了一部分的F77Shell For Win 就是你编辑一个BAT文件，在BAT文件里面建立输出到固定文件 然后在Delphi中读出这个文件就可以了 bat文件的内容如下 ECHO **** FORTRAN 77 Compiling ****>Temp1.TXT FOR1 %1;>>Temp1.Txt IF ERRORLEVEL 1 GOTO ERROUT PAS2>>Temp1.Txt IF ERRORLEVEL 1 GOTO ERROUT rem LINK %1,%1,NUL;>>Temp1.TXT GOTO OUT :ERROUT ECHO Error in file, Complier Stopped !>>Temp1.TXT ECHO Error>>Temp1.TXT :OUT ECHO Success Complier !>>Temp1.TXT ECHO Success>>Temp1.TXT ECHO ON 读出Temp1.txt文件就可以了解，出错在哪里了 不过是个笨办法，见笑见笑

wjiachun · 2000-08-13

多人接受答案了。

如何获得由 'FOR1.EXE' 检查所得的有关信息?(100分)

Jamson

Unregistered / Unconfirmed

小天

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

SeaSky

Unregistered / Unconfirmed

SeaSky

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

mikecool

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads