[RESOLVED] Parsing from text file to mainfraim application

[Bill-E-BoB]

Hmm...I think I'm doing something wrong still. If I use the code exactly like Al42 provided, it compiles & runs fine, but only looks at the first line & then moves on to the code that pulls out my tagged information (company name, etc.). So, I put a When statement around it similar to the code I was using from krckoorascic so that it would stop trying at the end of the file...but now it hits an infinite loop and I can't figure out why. I had to modify the code to fit my application...so maybe I screwed something up in the process? Unless I'm crazy, this should work...unfortunately, I think I'm crazy.

While Not EOF(ff)
    select case True
        Case Ucase$(Left$(row,13)) = "COMPANY NAME:"
           compName = Mid$(row, 14)
           OESOTS.Screen.Sendkeys(compName)
         Case Ucase$(Left$(row,7)) = "QTY PIC"
           Line Input #ff, row 'input the next line
           Do While row <> "" 'keep doing it until a blank line
             OESOTS.Screen.Sendkeys(Mid$(row,12,5)) 'send the 4 characters starting at the 10th position
             Line Input #ff, row
            Loop 'back to the 'Do' row
    End Select
  Wend

By the way...the changes that might not make sense without seeing my whole code...I had to dim row as string instead of line like you guys had been using...not sure why, but it didn't like having a string named "line"...and the other change is I'm using 2 different sessions, so I left one with the standard sess0 name, but the one that this data goes to is named oesots now instead of sess0.