Parsing Strings...

[TerdRatchett]

Hi Everyone,

I have written a big chunk of code an it is working well, but I am stuck on something having to do with strings.

I have received a string from a serial device which contains two target strings seperated by a comma. The data looks like this:

1432,765

the length may vary like this:

22567,8345

so the the comma is key as a locator. I can't figure out with what little documentation is in the users manual how to parse the string for these two numbers.

Thanks in advance!
TR

[mackrackit]

Look in the manual under SERIN2.

Look for the part something like:
WAIT STR\n followed by optional end character...for the first part and then use something like WAIT[,] to get the last part.

[Jerson]

Can you clarify what you mean when you say "I have received a string from a serial device" Does it mean it has been stored somewhere and you have to parse it from there? SERIN2 will not do that for you.

[TerdRatchett]

I appreciate all of your help!

I had written the code using Hserin to capture the raw data from my serial port into a single string of [10]. It works so now I need to separate the two values. So...

14575,354 would end up as two longs,

one with 14575 and another with 345. Either number could be as large as 99999 or as small as 1.

Thanks in advance,
TR

[mackrackit]

HSERIN uses the same syntax as SERIN2, so do the "separation" as the data is coming in.

[Jerson]

Ok, since you have the string to be parsed, you will need a parser too! I dont have anything ready at hand but, I'll give it a shot anyway. UNTESTED CODE FOLLOWS

' assume the string is TOPARSE
' it will return you 2 numbers,  one from before the comma, one from after the comma
Number1 var Long
Number2 var Long
Cntr       var byte      ' counter to index the string

ParseNumber:
 Number1 = 0              ' start with 0 in both numbers
 Number2 = 0
 'collect Number1
 for Cntr = 0 to 10        ' you said your string is 10 places long
    if TOPARSE[Cntr] <> "," then
         Number1=Number1*10                             ' x10 to make place for the new digit
         Number1 = Number1+TOPARSE[Cntr]-'0'      ' I'm assuming this is an ASCII string
    else
         goto GetNum2     ' collect the remainder as number2
    endif
 next
 return
GetNum2:
 for Cntr=Cntr+1 to 10
    if TOPARSE[Cntr] <> "," then
         Number2=Number2*10
         Number2 = Number2+TOPARSE[Cntr]-'0'      ' I'm assuming this is an ASCII string
    else
         return                ' because, you said there are only 2 numbers ;)
    endif
 next
 return

You could modify this code to do a repetitive parse. Every time you call it, it would return you a number, but I'll leave that to you.

Good luck.

[mackrackit]

I still think separating the numbers on the way in is the way to go. Although Jerson's code is pretty slick.

Here is what I was thinking. Just tested it using SERIN2 as the chip I have on the bench is not set up for HSERIN right now.

The first WAIT is to keep garbage out.

N1	VAR	LONG
N2	VAR	LONG
LOOP:
SERIN2 PORTD.2, 16416, [WAIT("X"),DEC N1,WAIT(","),DEC N2]
GOTO DISPLAY

DISPLAY:
Serout2 PORTC.6, 16416, [ DEC N1, $d, $a]
Serout2 PORTC.6, 16416, [ DEC N2, $d, $a]
GOTO LOOP

If you need the data in an array just modify the above with STR...

[TerdRatchett]

Both great suggestions for which I appreciate!!! I'm pondering....