SplitToArray - Decoding Map Data from Text / Delimited Numbers

[kevin]

     SplitToArray - Decoding Game Map Data from Text File of Delimited Integer Numbers


   This example uses a little known function in PlayBASIC, SplitToArray,  which is used to cut strings up write the chunks into a target array.   The target array doesn't have to be a string array, in fact if you ask it dump the fragments out to an Integer or Floating point array,  it'll do the conversion for you.

 

 example output
 

Code Select Expand


-[Original Text]------------------------------------
9,1,8,7,7,4,7,4,1,7,5,3,7,2,8,3,9,1,7,5,7,2,8,7,9,1,3,6,8,9,6,9,1,6,6,6,9,8,3,5,7,7,7,3,7,5,4,6,2,3,2,9,3,2,7,3,4,9,6,5,4,7,5,9,8,3,5,4,3,2,5,9,2,9,8,8,5,3,4,9,6,
6,9,8,2,3,4,4,1,6,2,1,6,8,1,9,3,4,2,7,8,5,3,8,4,1,4,3,9,6,8,2,8,7,2,5,5,2,2,7,9,8,2,1,2,3,7,7,6,3,5,6,9,7,3,2,9,8,7,5,9,6,2,5,2,9,3,1,6,5,7,7,2,4,5,8,5,4,7,2,9,4,
3,2,9,7,6,2,6,6,1,1,5,3,1,8,7,7,6,9,2,3,2,1,1,6,1,3,1,9,5,8,5,8,4,4,9,7,6,4,3,5,5,2,2,9,1,5,7,9,8,9,1,3,8,1,2,4,9,8,2,7,4,8,8,6,5,5,5,1,6,9,8,4,1,8,7,4,8,1,5,1,2,
1,3,8,5,4,5,8,1,1,2,5,1,7,8,9,1,8,3,9,8,7,2,7,7,7,9,8,6,7,7,5,7,9,3,8,4,9,4,5,1,7,6,3,8,7,8,3,5,5,7,7,7,8,8,4,3,7,5,3,5,4,8,5,8,4,6,2,3,6,1,5,5,8,7,7,6,3,8,2,1,1,
8,1,8,6,8,2,2,4,6,1,5,9,8,5,4,8,4,5,4,6,7,5,6,8,3,6,6,8,4,8,5,6,2,5,5,2,5,3,5,3,6,4,3,7,1,1,6,2,9,6,5,4,9,8,4,1,2,7,3,9,7,4,7,4,7,5,5,9,5,4,7,1,7,8,8,5,2,6,3,7,2,
6,4,8,1,3,2,5,7,3,8,9,4,2,2,3,6,9,4,2,8,2,4,2,4,9,6,2,3,8,4,3,1,3,1,6,7,2,6,5,1,3,3,8,6,9,7,1,7,8,9,1,4,6,4,1,2,3,6,6,6,9,7,4,3,2,2,7,7,9,7,8,7,7,1,7,9,8,6,2,1,5,
3,8,6,7,1,2,1,4,6,4,8,2,2,7,2,6,7,4,8,3,1,4,2,6,8,4,9,6,7,1,6,3,2,6,3,6,6,7,4,7,2,1,4,8,5,2,1,2,6,2,4,3,5,6,2,9,1,4,3,6,7,1,3,7,3,7,6,9,9,3,2,3,7,4,2,6,6,2,1,1,4,
3,2,9,1,8,8,8,1,8,4,3,5,1,5,1,9,4,5,3,7,2,1,9,8,9,5,5,7,9,1,6,7,2,4,9,1,3,5,3,4,7,6,2,7,8,1,7,5,4,5,4,7,9,7,7,6,5,2,7,4,5,8,5,8,2,1,4,3,3,5,1,4,9,6,6,5,4,7,5,5,7,
2,3,8,9,5,4,5,6,2,4,4,1,5,2,9,9,7,3,3,9,3,5,6,5,9,6,5,1,9,2,1,5,1,6,9,6,8,6,7,7,7,3,1,1,2,8,5,5,8,9,9,7,6,9,6,2,1,6,8,5,3,1,3,9,7,7,5,7,4,6,7,1,3,9,5,7,5,9,3,6,5,
9,6,6,1,4,9,6,1,4,4,2,9,3,1,5,8,9,7,2,9,3,3,9,4,8,5,9,4,6,3,8,6,1,4,3,1,6,8,7,3,5,1,6,1,7,2,6,3,7,6,6,3,6,5,7,1,2,4,7,1,7,6,3,5,2,2,2,4,3,6,4,1,1,5,5,1,7,7,6,8,2,
2,8,3,1,3,7,7,2,3,5,4,8,7,5,5,5,5,4,7,4,6,3,5,8,5,5,5,2,7,6,4,1,5,9,3,7,5,2,2,1,6,8,1,2,2,8,9,6,8,4,3,8,1,9,3,1,7,4,8,4,1,8,8,4,5,8,9,6,5,3,5,7,2,2,4,9,4,4,5,3,6,
2,7,5,6,1,5,7,4,4,3,9,4,3,1,8,9,2,4,1,6,7,2,6,5,8,5,5,2,1,7,1,4,1,8,5,7,7,7,1,1,6,7,9,2,2,1,9,6,6,2,6,7,8,7,4,2,4,1,1,4,7,2,2,4,2,1,9,4,9,1,5,9,7,5,1,4,8,4,8,7,5,
3,8,4,1,1,3,1,9,9,7,6,4,2,5,5,5,5,6,1,6,6,9,4,3,6,3,5,3,6,8,7,2,2,2,4,8,5,5,6,7,8,4,6,8,8,7,7,2,7,3,4,7,7,3,3,8,1,7,8,2,4,6,3,4,3,5,1,7,6,9,7,8,7,3,8,8,7,9,4,6,3,
1,2,6,7,5,6,4,8,4,9,3,3,5,5,6,1,6,7,3,2,3,5,2,8,7,5,8,2,8,6,2,2,3,6,9,4,2,4,2,8,8,9,7,7,2,6,4,3,8,6,6,1,6,3,7,8,2,5,1,3,2,3,6,6,5,7,1,9,4,3,1,1,9,9,7,6,3,1,1,6,6,
4,8,5,7,6,1,1,4,5,8,9,7,4,2,7,9,1,9,9,8,6,3,3,2,7,5,7,5,3,2,9,7,1,1,3,3,8,1,2,2,7,9,4,7,5,1,6,3,6,9,1,5,9,3,4,2,7,9,7,2,5,1,5,9,3,2,3,2,1,4,3,8,1,7,2,6,6,4,4,4,7,
7,8,5,7,1,9,7,8,9,8,8,1,7,4,7,4,2,6,3,6,5,1,6,8,1,7,2,8,6,4,1,4,9,5,1,4,2,9,6,6,3,5,2,9,2,6,9,5,6,4,8,9,9,8,5,4,7,3,9,5,3,2,8,6,8,4,3,5,6,9,8,8,9,7,6,6,4,4,3,4,9,
3,6,9,1,8,3,7,9,8,9,6,9,7,5,7,7,7,1,3,2,1,9,9,9,5,1,9,6,9,9,5,2,6,4,6,8,8,8,6,6,7,8,3,9,4,3,9,4,5,7,8,8,2,1,5,6,1,4,8,6,8,3,6,8,2,9,7,2,2,8,4,2,1,6,5,8,6,5,7,2,3,
7,2,9,4,1,2,2,1,5,2,4,6,6,6,9,3,3,3,3,8,2,6,2,7,5,3,6,5,9,8,5,8,7,6,5,3,3,3,9,7,2,6,5,4,2,6,8,6,2,1,3,8,2,4,4,4,9,7,3,5,9,5,8,1,1,9,8,7,1,5,5,6,5,2,9,1,8,7,7,7,6,
4,2,1,3,3,5,9,5,5,2,8,2,8,8,7,4,1,1,9,3,2,2,5,8,3,8,3,6,7,6,5,7,6,7,1,6,9,4,2,2,9,2,5,6,2,1,4,3,7,4,1,1,9,7,2,5,7,4,1,6,7,6,9,4,3,1,4,7,5,3,2,6,2,8,1,7,3,3,3,9,1,
3,3,9,2,2,5,5,3,7,6,4,5,9,5,6,3,3,2,2,9,3,9,2,6,4,5,1,9,2,5,4,6,2,6,6,4,6,2,8,3,8,1,5,3,3,7,4,7,8,1,1,9,7,6,3,9,6,2,5,1,9,1,5,2,2,6,1,5,9,7,9,1,8,8,8,7,7,3,9,9,1,
6,3,4,4,3,2,3,4,3,4,1,2,3,6,3,3,6,9,4,2,8,1,9,3,6,3,3,6,8,8,9,6,9,1,5,2,6,4,4,9,4,9,9,1,4,4,5,4,8,4,6,7,9,8,9,8,3,4,5,1,5,1,1,3,6,9,2,4,8,4,2,6,1,4,4,9,3,7,5,9,4,

-[Decoded / Reencoded Text]------------------------------------
9,1,8,7,7,4,7,4,1,7,5,3,7,2,8,3,9,1,7,5,7,2,8,7,9,1,3,6,8,9,6,9,1,6,6,6,9,8,3,5,7,7,7,3,7,5,4,6,2,3,2,9,3,2,7,3,4,9,6,5,4,7,5,9,8,3,5,4,3,2,5,9,2,9,8,8,5,3,4,9,6,
6,9,8,2,3,4,4,1,6,2,1,6,8,1,9,3,4,2,7,8,5,3,8,4,1,4,3,9,6,8,2,8,7,2,5,5,2,2,7,9,8,2,1,2,3,7,7,6,3,5,6,9,7,3,2,9,8,7,5,9,6,2,5,2,9,3,1,6,5,7,7,2,4,5,8,5,4,7,2,9,4,
3,2,9,7,6,2,6,6,1,1,5,3,1,8,7,7,6,9,2,3,2,1,1,6,1,3,1,9,5,8,5,8,4,4,9,7,6,4,3,5,5,2,2,9,1,5,7,9,8,9,1,3,8,1,2,4,9,8,2,7,4,8,8,6,5,5,5,1,6,9,8,4,1,8,7,4,8,1,5,1,2,
1,3,8,5,4,5,8,1,1,2,5,1,7,8,9,1,8,3,9,8,7,2,7,7,7,9,8,6,7,7,5,7,9,3,8,4,9,4,5,1,7,6,3,8,7,8,3,5,5,7,7,7,8,8,4,3,7,5,3,5,4,8,5,8,4,6,2,3,6,1,5,5,8,7,7,6,3,8,2,1,1,
8,1,8,6,8,2,2,4,6,1,5,9,8,5,4,8,4,5,4,6,7,5,6,8,3,6,6,8,4,8,5,6,2,5,5,2,5,3,5,3,6,4,3,7,1,1,6,2,9,6,5,4,9,8,4,1,2,7,3,9,7,4,7,4,7,5,5,9,5,4,7,1,7,8,8,5,2,6,3,7,2,
6,4,8,1,3,2,5,7,3,8,9,4,2,2,3,6,9,4,2,8,2,4,2,4,9,6,2,3,8,4,3,1,3,1,6,7,2,6,5,1,3,3,8,6,9,7,1,7,8,9,1,4,6,4,1,2,3,6,6,6,9,7,4,3,2,2,7,7,9,7,8,7,7,1,7,9,8,6,2,1,5,
3,8,6,7,1,2,1,4,6,4,8,2,2,7,2,6,7,4,8,3,1,4,2,6,8,4,9,6,7,1,6,3,2,6,3,6,6,7,4,7,2,1,4,8,5,2,1,2,6,2,4,3,5,6,2,9,1,4,3,6,7,1,3,7,3,7,6,9,9,3,2,3,7,4,2,6,6,2,1,1,4,
3,2,9,1,8,8,8,1,8,4,3,5,1,5,1,9,4,5,3,7,2,1,9,8,9,5,5,7,9,1,6,7,2,4,9,1,3,5,3,4,7,6,2,7,8,1,7,5,4,5,4,7,9,7,7,6,5,2,7,4,5,8,5,8,2,1,4,3,3,5,1,4,9,6,6,5,4,7,5,5,7,
2,3,8,9,5,4,5,6,2,4,4,1,5,2,9,9,7,3,3,9,3,5,6,5,9,6,5,1,9,2,1,5,1,6,9,6,8,6,7,7,7,3,1,1,2,8,5,5,8,9,9,7,6,9,6,2,1,6,8,5,3,1,3,9,7,7,5,7,4,6,7,1,3,9,5,7,5,9,3,6,5,
9,6,6,1,4,9,6,1,4,4,2,9,3,1,5,8,9,7,2,9,3,3,9,4,8,5,9,4,6,3,8,6,1,4,3,1,6,8,7,3,5,1,6,1,7,2,6,3,7,6,6,3,6,5,7,1,2,4,7,1,7,6,3,5,2,2,2,4,3,6,4,1,1,5,5,1,7,7,6,8,2,
2,8,3,1,3,7,7,2,3,5,4,8,7,5,5,5,5,4,7,4,6,3,5,8,5,5,5,2,7,6,4,1,5,9,3,7,5,2,2,1,6,8,1,2,2,8,9,6,8,4,3,8,1,9,3,1,7,4,8,4,1,8,8,4,5,8,9,6,5,3,5,7,2,2,4,9,4,4,5,3,6,
2,7,5,6,1,5,7,4,4,3,9,4,3,1,8,9,2,4,1,6,7,2,6,5,8,5,5,2,1,7,1,4,1,8,5,7,7,7,1,1,6,7,9,2,2,1,9,6,6,2,6,7,8,7,4,2,4,1,1,4,7,2,2,4,2,1,9,4,9,1,5,9,7,5,1,4,8,4,8,7,5,
3,8,4,1,1,3,1,9,9,7,6,4,2,5,5,5,5,6,1,6,6,9,4,3,6,3,5,3,6,8,7,2,2,2,4,8,5,5,6,7,8,4,6,8,8,7,7,2,7,3,4,7,7,3,3,8,1,7,8,2,4,6,3,4,3,5,1,7,6,9,7,8,7,3,8,8,7,9,4,6,3,
1,2,6,7,5,6,4,8,4,9,3,3,5,5,6,1,6,7,3,2,3,5,2,8,7,5,8,2,8,6,2,2,3,6,9,4,2,4,2,8,8,9,7,7,2,6,4,3,8,6,6,1,6,3,7,8,2,5,1,3,2,3,6,6,5,7,1,9,4,3,1,1,9,9,7,6,3,1,1,6,6,
4,8,5,7,6,1,1,4,5,8,9,7,4,2,7,9,1,9,9,8,6,3,3,2,7,5,7,5,3,2,9,7,1,1,3,3,8,1,2,2,7,9,4,7,5,1,6,3,6,9,1,5,9,3,4,2,7,9,7,2,5,1,5,9,3,2,3,2,1,4,3,8,1,7,2,6,6,4,4,4,7,
7,8,5,7,1,9,7,8,9,8,8,1,7,4,7,4,2,6,3,6,5,1,6,8,1,7,2,8,6,4,1,4,9,5,1,4,2,9,6,6,3,5,2,9,2,6,9,5,6,4,8,9,9,8,5,4,7,3,9,5,3,2,8,6,8,4,3,5,6,9,8,8,9,7,6,6,4,4,3,4,9,
3,6,9,1,8,3,7,9,8,9,6,9,7,5,7,7,7,1,3,2,1,9,9,9,5,1,9,6,9,9,5,2,6,4,6,8,8,8,6,6,7,8,3,9,4,3,9,4,5,7,8,8,2,1,5,6,1,4,8,6,8,3,6,8,2,9,7,2,2,8,4,2,1,6,5,8,6,5,7,2,3,
7,2,9,4,1,2,2,1,5,2,4,6,6,6,9,3,3,3,3,8,2,6,2,7,5,3,6,5,9,8,5,8,7,6,5,3,3,3,9,7,2,6,5,4,2,6,8,6,2,1,3,8,2,4,4,4,9,7,3,5,9,5,8,1,1,9,8,7,1,5,5,6,5,2,9,1,8,7,7,7,6,
4,2,1,3,3,5,9,5,5,2,8,2,8,8,7,4,1,1,9,3,2,2,5,8,3,8,3,6,7,6,5,7,6,7,1,6,9,4,2,2,9,2,5,6,2,1,4,3,7,4,1,1,9,7,2,5,7,4,1,6,7,6,9,4,3,1,4,7,5,3,2,6,2,8,1,7,3,3,3,9,1,
3,3,9,2,2,5,5,3,7,6,4,5,9,5,6,3,3,2,2,9,3,9,2,6,4,5,1,9,2,5,4,6,2,6,6,4,6,2,8,3,8,1,5,3,3,7,4,7,8,1,1,9,7,6,3,9,6,2,5,1,9,1,5,2,2,6,1,5,9,7,9,1,8,8,8,7,7,3,9,9,1,
6,3,4,4,3,2,3,4,3,4,1,2,3,6,3,3,6,9,4,2,8,1,9,3,6,3,3,6,8,8,9,6,9,1,5,2,6,4,4,9,4,9,9,1,4,4,5,4,8,4,6,7,9,8,9,8,3,4,5,1,5,1,1,3,6,9,2,4,8,4,2,6,1,4,4,9,3,7,5,9,4,


Match:1


 


 Example Code:  Cut'nPaste into PLayBASIC IDE, Execute in debug mode (F7)
 

PlayBASIC Code: [Select]

   // ---------------------------------------------------------
   // RUN THIS EXAMPLE I DEBUG MODE - PRESS f7 to compile and run
   //  output is displayed to the debugger console
   // ---------------------------------------------------------
   

   Constant MapWidth=80
   Constant MapHeight= 20
   constant    cr$=chr$(13)+chr$(10)

   // ---------------------------------------------------------
   //  Build a blob of text, that's rows of single digit numbers
   //  eg   0,3,2,4,5,3, etc etc  delimited with the coma character
   // ---------------------------------------------------------
   for ylp=0 to MapHeight
      s$=""
      for xlp=0 to MapWidth   
            s$+=str$(ceil(rndrange#(0,9)))+","
      next      
      t$+=(s$+cr$)
   next


   // ---------------------------------------------------------
   //  Decode this data using the split to array function
   // ---------------------------------------------------------

   Dim Map(MapWidth,MapHeight)
   DecodeTextToMapArray(T$)   



   // ---------------------------------------------------------
   //  Reconstuct the TEXT from the MAP array
  // ---------------------------------------------------------

   for ylp=0 to MapHeight
      s$=""
      for xlp=0 to MapWidth   
            s$+=str$(map(xlp,ylp))+","
      next      
      t2$+=(s$+cr$)
   next



   // ---------------------------------------------------------
   //  Display To The Console and compare input to output.
  // ---------------------------------------------------------




#print "-[Original Text]------------------------------------"
#print t$
#print "-[Decoded / Reencoded Text]------------------------------------"
#print t2$
#print ""
#print "Match:"+str$(t$=t2$)
   sync
   waitkey


   end


function DecodeTextToMapArray(TextFile$)
     Dim Lines$(1000)
     Dim Values(1000)

      Dim Map(MapWidth,MapHeight)

      s$=replace$(TextFile$,chr$(10),"") 
       RowCount = splittoarray(s$,chr$(13),Lines$(),0)
      For ylp=0 to RowCount-1       
       
             
         //  Decode each line as an array of integer values
          ValueCount=splittoarray(lines$(ylp),",",Values(),0)
           for xlp=0 to ValueCount-1
                 Map(xlp,ylp)=Values(xlp)
           next 

      next
EndFunction
  

   Related Links:

     - Simple Text Menu
     - Compute List Of Unique Email Addresses
     - SplitToArray keeping empty positions
      - Drawing Messages using custom markup