View Single Post
Old Jul 21st, 2004, 3:30 PM   #11
big_k105
PFO Founder

 
big_k105's Avatar
 
Join Date: Mar 2004
Location: Fargo, ND
Posts: 1,630
Rep Power: 10 big_k105 is on a distinguished road
Send a message via AIM to big_k105 Send a message via MSN to big_k105 Send a message via Yahoo to big_k105
see the text file route wouldnt do any good. i tryed that and it still didnt work. so that is out of the question now. but here is the way i have gottn my output to look and then i will post the code i am currently using below it

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
 96 04-07-19K BOBCAT-GWN 
 141 04-07-26K BOBCAT-GWN 
 142 04-08-02K BOBCAT-GWN 
 2 04-08-03 BOBCAT-SERV 
 133 04-08-09K BOBCAT-GWN 
 ECN FILE /u/in.dt/ecn/melg/eajcyv
 7101088 copied from 6732801
   6732801
 |------------------------------------------------------------------------------|
ADVANCED QUALITY PLANNING CHECKLIST:
 Cust:_Bobcat-Gwinner______ Used on model:______________ EAU: __________
 Similar to: __6729962___________ Eng Contact: __Chris Erickson_______
I. List any new parts required for this harness:

here is the code i use to do this

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
  thispos = InStr(startpos, s, Chr(10))
  Do While thispos > 0
    s = Left(s, thispos - 1) & Chr(13) & Chr(10) & Mid(s, thispos + 1) ' replace chr(10) with chr(13) & chr(10)
    startpos = thispos + 2
    thispos = InStr(startpos, s, Chr(10))
  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)
    strright = Mid(s, thispos2 + 1)
    strright = Trim(strright)
    s = strleft & " " & strright 'replaces leading and following spaces
    startpos2 = thispos2 + 2
  Loop
  
   'replaces tabs, even tho i found out i dont need this as i dont have any tabs :D
  Dim StringPosition As Integer
  Do
    StringPosition = InStr(StringPosition + 1, s, vbTab)
    If StringPosition > 0 Then
      Mid(s, StringPosition, 1) = "   "
    End If
  Loop While StringPosition > 0
  
  txtReturned.Text = s
End Sub

to see what i want it to look like look in the first post
__________________
BIG K aka Kyle
Programming Forums
Kyle K Online

Please do not PM or email me programming questions. Post them in the forums instead.
big_k105 is offline   Reply With Quote