[RESOLVED] Shell CMD Text output format

[beic]

Hi there,

Is it possible to get Multi-line text output from the command line into the TextBox and not all in one line?

Used code:

Dim stCmdInText As String
 
 Dim objShell, objExecObject As Object
 
 stCmdInText = ""

 Set objShell = CreateObject("WScript.Shell")
 
 Set objExecObject = objShell.Exec("cmd /c ping -n 3 -w 1000 192.168.0.131")
 
 Do While Not objExecObject.StdOut.AtEndOfStream
  stCmdInText = stCmdInText & objExecObject.StdOut.ReadLine()
  Text1.Text = stCmdInText
  DoEvents
 Loop

Output result:


Thank you for your support!

[Auguro]

Hello!

have you ever tried to concatenate "vbCrlf"?

Do While Not objExecObject.StdOut.AtEndOfStream
  stCmdInText = stCmdInText & objExecObject.StdOut.ReadLine() & vbCrlf
  Text1.Text = stCmdInText
  DoEvents
 Loop

if this dont work try to concatenate VBNewLine

Do While Not objExecObject.StdOut.AtEndOfStream
  stCmdInText = stCmdInText & objExecObject.StdOut.ReadLine() & vbNewLine
  Text1.Text = stCmdInText
  DoEvents
 Loop

hope it helps!!

[beic]

Hello!

have you ever tried to concatenate "vbCrlf"?

Do While Not objExecObject.StdOut.AtEndOfStream
  stCmdInText = stCmdInText & objExecObject.StdOut.ReadLine() & vbCrlf
  Text1.Text = stCmdInText
  DoEvents
 Loop

if this dont work try to concatenate VBNewLine

Do While Not objExecObject.StdOut.AtEndOfStream
  stCmdInText = stCmdInText & objExecObject.StdOut.ReadLine() & vbNewLine
  Text1.Text = stCmdInText
  DoEvents
 Loop

hope it helps!!

OMG, Thanks a lot! It worked just fine... I'm such a failure, this is what you get after you are in VB6 for 15 years and didn't touched it for the past 1-2 years!

[Auguro]

i'm glad it worked! Just try to not be so harsh with yourself!

have a nice day