Sorry your browser is not supported!

PacketSelf$= SelfID+"*"+SelfAlias$+"*"+Xlocation$+"*"+Ylocation$+"*"+ZLocation$+"*"+XAngle$+"*"+YAngle$+"*"+ZAngle$

sync on : sync rate 0
global Packet as string
Packet="Entry#1*ENTRY#2*ENTRY#3*YOU_GET_THE_POINT"
breakChar$="*"
temp = 0
count = 1
do
   for x = count to len(Packet)
     if mid$(Packet,x) = breakChar$ then exit
   next x
   substr$=left$(Packet,x-1)
   Packet=right$(Packet,len(Packet)-x)
   count = x-1
   inc temp
   if substr$ <> "" then text 0,(temp*20),"Data #"+str$(temp)+": "+substr$
loop

Rem ***** Main Source File *****
dim packet_strings(20,1) as string `Stores what has been found in the packet
                                    `(packetlocation,n)
                                       `n=0) stores the location within the string
                                       `n=1) stores the actual position
global current_string as integer `Stores the current string within the string (lol)

tempstr$ = "This*Is*A*Test*To*See*If*This*Works*And*it*does!!!!"
breakDown_Packet(tempstr$)

sync on
sync rate 0
set display mode 800,600,32

`##################
`#####The Main loop
`##################
do

`#####THIS ISN"T IMPORTANT, its just so that you can see the individual strings
for i = 1 to current_string
   print packet_strings(i,0)+") "+packet_strings(i,1)
next i

sync
loop

`##########################
`#####Break down the packet
`##########################
function BreakDown_Packet(tempstr$)

current_string = 0

`######First go through the entire string and count how many * there are
for i = 1 to len(tempstr$)
   `Get the current character
   tempchar$ = mid$(tempstr$,i)
   `If its an asterick, then store the position, and goto the next array element
   if tempchar$ = "*"
      inc current_string,1
      packet_strings(current_string,0) = str$(i)
   else
   `Other wise, add this character to the current packet string array
      packet_strings(current_string,1) = packet_strings(current_string,1)+tempchar$
   endif
next i

endfunction

function ParseData(entry as string,split as string,record as integer)
temp = 1
count = 1
for run=1 to record
   for x = count to len(entry)
     if mid$(entry,x) = split then exit
   next x
   substr$=left$(entry,x-1)
   entry=right$(entry,len(entry)-x)
   count = x-1
   inc temp
next run
if substr$="" then substr$="Record Number Not Valid"
endfunction substr$

ParseData(fullSTRING$,splitCHAR$,record)

sync on : sync rate 0
set cursor 5,5
print ParseData("Entry#1*ENTRY#2*ENTRY#3*YOU_GET_THE_POINT","*",3)
suspend for key

function ParseData(entry as string,split as string,record as integer)
temp = 1
count = 1
for run=1 to record
   for x = count to len(entry)
     if mid$(entry,x) = split then exit
   next x
   substr$=left$(entry,x-1)
   entry=right$(entry,len(entry)-x)
   count = x-1
   inc temp
next run
if substr$="" then substr$="Record Number Not Valid"
endfunction substr$

SelfID$="1"
SelfAlias$="Spooky"
Xlocation$="100"
Ylocation$="300"
ZLocation$="1200"
XAngle$="56"
YAngle$="123"
ZAngle$="90"

PacketSelf$=SelfID$+"*"+SelfAlias$+"*"+Xlocation$+"*"+Ylocation$+"*"+ZLocation$+"*"+XAngle$+"*"+YAngle$+"*"+ZAngle$

for f=1 to 8
   if f=1
      token$=first token$(PacketSelf$,"*")
   else
      token$=next token$("*")
   endif
   print token$
next f
wait key