[Gambas-user] Read in EXEC..... to Rob

[scatman]

Am Freitag, 29. Oktober 2004 17:43 schrieb LB Audio:

> PUBLIC SUB Process_Read()
>   DIM sData AS String
>   DIM l AS String
>   DIM t AS String
>
>   READ #LAST, sData, -255
>
>   IF LAST.Id = $hprocess.Id THEN
>       LINE INPUT #$hprocess, l ->>>>>>>>>>>>>>>>>>>>>>> Error
>       IF Instr(l, "Time: ") THEN
>          t = Mid(l, Instr(l, "Time: ") + 6, 8)
>          ' do something with t now...
>          label1.Caption = t
>       ENDIF
>   ENDIF
>
> END

WHILE NOT Eof(LAST)
  LINE INPUT #LAST, sData
WEND

-- 

scatman