Easy Peasy two-minute exercise in creating a HybridInput routine for you. 
Note that if you want to do this with BINARY input mode, you'd basically do the same, but you'd have to change the INPUT section to simply parse that dta$ form StartPos, looking for the comma, and take that segment to be your input. Then SEEK to the proper position (StartPos + length of the dta$ segment you called the answer +1 for the comma after), and you'd be primed to ust continue on with no problems whatsoever.
BINARY doesn't support INPUT (one of these days, I've always said I was going to expand it so it could...), so you'll just need to parse your dta$, get the proper input, and then move the file pointer back to the proper spot to pick up from on the next read for data.
Code: (Select All)
Open "Z:/test.txt" For Input As #1
Do
Print HybridInput$(1)
Sleep
Loop Until EOF(1)
Function HybridInput$ (file)
Static As Long ReadWholeLine, Init
StartPos = Seek(file)
If ReadWholeLine Then
Line Input #1, dta$
If Left$(_Trim$(dta$), 1) = "#" Then HybridInput$ = dta$: Exit Function
ReadWholeLine = 0 'we are no longer reading the whole line
Seek file, StartPos
End If
Input #1, dta$
If Left$(_Trim$(dta$), 1) = "#" Then ReadWholeLine = -1
HybridInput$ = dta$
End Function
Note that if you want to do this with BINARY input mode, you'd basically do the same, but you'd have to change the INPUT section to simply parse that dta$ form StartPos, looking for the comma, and take that segment to be your input. Then SEEK to the proper position (StartPos + length of the dta$ segment you called the answer +1 for the comma after), and you'd be primed to ust continue on with no problems whatsoever.
BINARY doesn't support INPUT (one of these days, I've always said I was going to expand it so it could...), so you'll just need to parse your dta$, get the proper input, and then move the file pointer back to the proper spot to pick up from on the next read for data.