Creating a Set of strings

[Charles Pegge]

All the strings are contained in one string

Code: OxygenBasic

1.  
2.  
3. s="one,two,three,four,five,six,"
4.  
5. 'mark string into null strings
6. '=============================
7.  
8. 'replace commas with nulls
9. 'creates series of zstrings
10.  
11. c=0
12. i=1
13. le=len s
14. byte *b : @b=strptr s
15. do
16.   if i>le then exit do
17.   if b=44 then
18.     b=0 'patch null
19.    c++
20.   end if
21.   i++
22.   @b++
23. end do
24.  
25.  
26. 'create array of zstring pointers
27. '================================
28.  
29. sys pz[100]
30. ps=strptr(s)-1
31. nl=chr(0)
32. j=1
33. i=0
34. do
35.   i++
36.   if i>c then exit do
37.   pz[ i ]=ps+j
38.   j=1+instr j,s,nl
39. end do
40. c=i-1
41.  
42.  
43. 'display
44. '=======
45.  
46. cr=chr(13)+chr(10)
47. tab=chr(9)
48. pr="sub strings" cr cr
49. for i=1 to c
50.   pr+=i tab cast char * pz[ i ] cr
51. next
52.  
53. print pr
54.  

Charles

[Aurel]

Charles...
When i try this code i recive linker error about : cast
What's that mean ?

is there a way to write this line little bit more basic-like?

Code: [Select]

pr+=i tab cast char * pz[ i ] cr

[Charles Pegge]

Hi Aurel, I introduced this quite recently.

cast is used to make a variable appear as a different type, like casting an actor to play Hamlet.

This is a sys variable, but we want it to be used as a char* or zstring * if you prefer.

You can try as instead:

pr+=i tab  as char * pz[ i ] cr

Charles

[Aurel]

Hi Charles..
I think that i understand what casting mean because i use this way in EB programming to.
But with different ( read C-like syntax ) like :
pMem = NEW(CHAR,100)
*<CHAR>(pMem+x) = x+1

Is this same or similiar?
Infact i want to ask ,is cast in latest oxygen.dll or in gxo.exe ?

yes..i try
 pr = pr str(i) tab  As char *pz[ i ]   cr

and work fine