B4J Question SOLVED : Composing string

[besoft]

hi,
Now I need your help. I have the following code:

Sub AStream2_NewData (Buffer2() As Byte)
    Dim s2 As String = BytesToString(Buffer2, 0, Buffer2.Length, "UTF8")
    If s2.Length > 5 Then n2 = st.Right(s2,5)
    Log ("L2:" & n2)
End Sub

Sub AStream3_NewData (Buffer3() As Byte)
    Dim s3 As String = BytesToString(Buffer3, 0, Buffer3.Length, "UTF8")
    If s3.Length > 5 Then n3 = st.Right(s3,5) 
    Log ("L3:" & n3)

End Sub

Sub TC1_Tick
Dim niv As String
niv = n2 & n3
Log (niv)
niv = ""
End Sub

N2 and N3, are string format 0191 and 2345 ... so four-digit number.

Expecting string composed in the form as: 01912345

What is wrong in this code? It is always compose strings worked without problems.

It is a console application.

 

[stevel05]

Expecting string composed in the form as: 01912345

What are you getting?

 

[besoft]

I get just n3: 2345

 

[sorex]

are you sure stream2 received data?

and why do you check for a length of 5 when you expect a 4 digit number?

 

[Erel]

You should use the built-in string methods.

I get just n3: 2345

I don't see how it is possible if there is no log call that prints n3. Maybe you meant L3.

What is the output of Log(S3) ?

 

[besoft]

Thanks for the answers

Through the serial port I read two sensors for distance measurement. In the picture you can see that I get information about stream2 received information (L2, L3). I get the data every few milli seconds.

I would like to put the data in the form of 12345678, sequentially excluding L2 and L3.

and why do you check for a length of 5 when you expect a 4 digit number?

Because I remove unnecessary data. I need only these four numbers.

If I do this in code:

Log(n2)
Log(n3)
Log (n2 & n3)

I get this:

L2:1496
L3:1519
1496
1519
1519
L2:1494
L3:1520
L2:1493
L2:1493
L3:1523
L2:1497
L3:1523
L2:1497
L3:1523
1497
1523
1523
L2:1495

 

[Erel]

Can you upload the project (File - Export as zip)?

 

[sorex]

ok, but still... the IF check doesn't make sense. shouldn't it be >4 or >=5 then ?

if it ain't no match n2 or n3 doesn't update at all since you read it in s2 and s3

 

[sorex]

maybe your data ends with a linefeed then the right(..,5) makes sense

 

[Erel]

Something is strange here.

Add ByteConverter library and log the buffers:

Dim bc As ByteConverter
Log("Buffer2: " & bc.HexFromBytes(Buffer2))

 

[besoft]

It could have been ...> 4 or >= 5

Occasional happens in the stream arrive incomplete information. the correct data is in the form of R01258, it happens that I get only R01.

 

[besoft]

Now it looks like:

Buffer2: 52313438370D
L2:1487
Buffer3: 52313730310D
L3:1701
Buffer2: 52313438360D52313438360D
L2:1486
Buffer3: 52313730320D
L3:1702
1486
1702
1702

 

[Erel]

You should use AsyncStreamsText. It will take care of removing the end of line characters and only raising the event when a full message is available.
https://www.b4x.com/search?query=AsyncStreamsText

 

[besoft]

Thanks for the help.

It works as it should

 

[sorex]

indeed, 0D is a linefeed