Get return text of DOS command!?

[JC]

Hi friends!


How I can get the return of a line command into DOS with fivewin/xharbour like this:

"tracert -d 10.0.0.1"

[MOISES]

tracert -d 10.1.1.1 >> file.txt

memoread file.txt

[JC]

tracert -d 10.1.1.1 >> file.txt

memoread file.txt

Thanks Moises, but how I can execute this?

With shellExecute()? winExec() ?

[AlexSchaft]

Hi,

I'd suggest using the Waitrun(), otherwise the program will continue without the command having finished

Waitrun("tracert.exe -d 10.1.1.1 >> file.txt")

[xProgrammer]

Hi JC

You can use the RUN command

Code: Select all  Expand view  RUN

RUN tracert -d 10.1.1.1 >> file.txt

should work.

The more flexible way is as follows:

Code: Select all  Expand view  RUN

LOCAL sOSCommand
sOSCommand := "tracert -d 10.1.1.1 >> file.txt"
RUN ( sOSCommand )

Should work fine under Windows. Certainly works under Linux. I recently wrote a "proof of concept" for compiling and linking xHarbour/FiveLinux projects via an xHarbour/FiveLinux "project manager" and the following code ran fine:

Code: Select all  Expand view  RUN

FUNCTION Compile( xProject )

LOCAL sOsCommand

sOsCommand := "./m.sh " + xProject + " > " + xProject + ".flb"
RUN ( sOsCommand )
MsgInfo( MemoRead( xProject + ".flb" ) )

RETURN nil

Hope that helps
xProgrammer