Buffer with null terminated ascii strings

[wayne-c]

I have a memory buffer that contains a few ascii strings separated by null chars. What is the best method to get the individual strings from such a buffer?

Buffer:

Code: Select all

Hello World[NULL]Hello Sun[NULL]Hello Moon and Stars[NULL][NULL]

[Saki]

Replace the zeros with e.g: # - With Peek.a - Poke.a
Then separate the parts with StringField.

[NicTheQuick]

I would it do somehow like this:

Code: Select all

EnableExplicit

Define *p.Ascii = ?strings
While *p\a
	Define s.s = PeekS(*p, -1, #PB_Ascii)
	*p + Len(s) + 1
	Debug s
Wend


DataSection
	strings:
		Data.a 'H', 'e', 'l', 'l', 'o' ,' ', 'W', 'o', 'r', 'l', 'd', 0
		Data.a 'H', 'e', 'l', 'l', 'o', ' ' ,'S', 'u', 'n', 0
		Data.a 'H', 'e', 'l', 'l', 'o', ' ', 'M', 'o', 'o', 'n', ' ', 'a', 'n', 'd', ' ', 'S', 't', 'a', 'r', 's', 0
		Data.a 0
EndDataSection

[wayne-c]

@Saki and @NicTheQuick : Thank you, both work fine. I'll go with Nic's solution because there is only one For..Next loop.

[skywalk]

Keep in mind when the buffer is large, you suffer string concatenation delays. It is faster to append a byte array and convert to string when you need it.

[Saki]

The procedure is to search for a section between two binary separators and to copy the binary section into a suitable empty string.