Sub ProcessGlobals
Dim NumberBuffer As String 'global variable so that data not lost when split across multiple calls to astream_NewData
End Sub
Sub astream_NewData(Buffer() As Byte)
For Each B As Byte In Buffer
If "0123456789".Contains(Chr(B)) Then 'if B is an ASCII digit '0' to '9'
NumberBuffer = NumberBuffer & Chr(B) 'append it to the buffer
Else 'anything other than a digit is regarded as a delimiter
If NumberBuffer.Length <> 0 Then 'ignore empty lines
HandleNewNumber(NumberBuffer)
NumberBuffer = ""
End If
End If
Next
End Sub
Sub HandleNewNumber(NewNumber As Int)
Log(NewNumber)
End Sub