well im making progress this is what i have it printing out now
7101088 155gm1b% 0
INPROCESS
88059 278/ 300 162 0 06-23-04 07-16-04 07-12-04
88543 300/ 300 0 0 07-12-04 08-02-04
ORDERS
UX:sh (sh): ERROR : cnvtmast : Not found
ECN FILE /u/in.dt/ecn/melg/eajcyv
7101088 copied from 6732801
6732801
|------------------------------------------------------------------------------|
ADVANCED QUALITY PLANNING CHECKLIST:
Cust:_Bobcat-Gwinner______ Used on model:______________ EAU: __________
this is the current code i am using
Option Explicit
Public strCommand As String
Public s As String
Private Sub Form_Load()
Dim startpos As Integer, thispos As Integer
Dim startpos2 As Integer, thispos2 As Integer
Dim startpos3 As Integer, thispos3 As Integer
strCommand = "/util/pninfo " + command
s = sendCommand(strCommand)
startpos = 1
Do While True
thispos = InStr(startpos, s, Chr(10))
If thispos = 0 Then Exit Do
s = Left(s, thispos - 1) & Chr(13) & Chr(10) & Mid(s, thispos + 1) ' replace chr(10) with chr(13) & chr(10)
startpos = thispos + 2
DoEvents
Loop
Dim strleft As String, strright As String
startpos2 = 1
Do While True
thispos2 = InStr(startpos2, s, Chr(32))
If thispos2 = 0 Then Exit Do
strleft = Left(s, thispos2)
strleft = Trim(strleft)
s = strleft & " " & Mid(s, thispos2 + 1) 'replaces leading and following spaces
startpos2 = thispos2 + 2
Loop
txtReturned.Text = s
End Sub