Sorry your browser is not supported!

MyVariable=1
Variable("MyVariable")=Variable("MyVariable")+1

Type MyType
   Dim MyArray(5)
Endtype

Global MyVariable as MyType

For X=1 to 5
   MyVariable.MyArray(X)=X
next x

Type MyType
   Global MyArray_1
   Global MyArray_2
   Global MyArray_3
   Global MyArray_4
   Global MyArray_5
Endtype

Global MyVariable as MyType

For X=1 to 5
   Variable("MyVariable.MyArray_"+str$(x))=X
next x

gosub declare_Arrays

_arrayData0.name = "Me"
_arrayData0.age = 44
insertAtArrayBottom( "people" )
_arrayData0.name = "Josh"
_arrayData0.age = 16
insertAtArrayBottom( "people" )
_arrayData1.favfood = "Cheese Toasty"
_arrayData1.favdrink = "Ice Tea"
insertAtArrayBottom( "food/drink" )

getArrayAtIndex( "people", 1 ) // return data to the passing variable
_arrayData0.age = 26
editArrayAtIndex( "people", 1 ) // pass it back into the array

displayArray( "people" )
displayArray( "food/drink" )

wait key
end

#constant ARRAY_0       "people"
#constant ARRAY_1       "food/drink"

type arrayData0
    name        as string
    age         as integer
endtype

type arrayData1
    favfood     as string
    favdrink    as string
endtype

declare_Arrays:
    global dim _array0() as arrayData0
    global _arrayData0 as arrayData0 // used for passing
    global dim _array1() as arrayData1
    global _arrayData1 as arrayData1 // used for passing
return

function insertAtArrayBottom( name as string )
    select name
        case ARRAY_0
            array insert at bottom _array0()
            _array0() = _arrayData0
        endcase
        case ARRAY_1
            array insert at bottom _array1()
            _array1() = _arrayData1
        endcase
    endselect
endfunction

function editArrayAtIndex( name as string, index as integer )
    select name
        case ARRAY_0
            _array0(index) = _arrayData0
        endcase
        case ARRAY_1
            _array1(index) = _arrayData1
        endcase
    endselect
endfunction

function getArrayAtIndex( name as string, index as integer )
    select name
        case ARRAY_0
            _arrayData0 = _array0(index)
        endcase
        case ARRAY_1
            _arrayData1 = _array1(index)
        endcase
    endselect
endfunction

function displayArray( name as string )
    select name
        case ARRAY_0
            print "[People]"
            for n = 0 to array count(_array0())
                print "Name: ";_array0(n).name
                print "Age: ";_array0(n).age
            next
            print
        endcase
        case ARRAY_1
            print "[Fav Food/Drinks]"
            for n = 0 to array count(_array1())
                print "Food: ";_array1(n).favfood
                print "Drink: ";_array1(n).favdrink
            next
        endcase
    endselect
endfunction

type MyArray_t
   Greeting as string
endtype

dim Array1(10) as MyArray_t
dim Array2(10) as MyArray_t

Array1Ptr = get arrayptr( Array1() )
Array2Ptr = get arrayptr( Array2() )

UpdateArray( Array1Ptr, 0, "Hello" )
UpdateArray( Array2Ptr, 0, "Goodbye" )

print Array1(0).Greeting
print Array2(0).Greeting

wait key

end

function UpdateArray(a as dword, i as integer, s as string)
   local dim Array() as MyArray_t   ` Define an empty local array
   link array Array(), a            ` Connect the pointer to the local array
   Array(i).Greeting = s                   ` Now update the array
   unlink array Array()             ` Disconnect the array from the local array
endfunction

make lookup 1  ` Simulate first array
make lookup 2  ` Simulate second array

UpdateArray( 1, 0, "Greeting", "Hello" )
UpdateArray( 2, 0, "Greeting", "Goodbye" )

print GetArray( 1, 0, "Greeting" )
print GetArray( 2, 0, "Greeting" )

wait key

end

function UpdateArray( id as integer, i as integer, field as string, s as string )
   set lookup id, padleft$(str$(i), "0", 9) + field , s
endfunction

function GetArray( id as integer, i as integer, field as string)
   exitfunction lookup$(id, padleft$(str$(i), "0", 9) + field)
endfunction ""

type MyArray1_t
   Greeting as string
endtype

type MyArray2_t
   Other as string
endtype

dim Array1(10) as MyArray1_t
dim Array2(10) as MyArray2_t

Update( "Array1", 0, "Hello" )
Update( "Array2", 0, "Goodbye" )

print Array1(0).Greeting
print Array2(0).Other

wait key

end

function Update(a as string, i as integer, s as string)
   call function name "Update" + a, i, s
endfunction

function UpdateArray1(i as integer, s as string)
   Array1(i).Greeting = s
endfunction

function UpdateArray2(i as integer, s as string)
   Array2(i).Other = s
endfunction

type Store_t
   Key as string
   Value as string
endtype

dim Store() as Store_t

Update("Array1", 0, "Greeting", "Hello")
Update("Array2", 0, "Greeting", "Goodbye")

print "1: "; Get("Array1", 0, "Greeting")
print "2: "; Get("Array2", 0, "Greeting")

wait key
end

#constant FIND_EXACT = 0
#constant FIND_INSERT = 1

function Update( Array as string, Index as integer, Field as string, Value as string )
   local Position as integer
   local Key as string

   Key = Array + ":" + right$("000000000" + str$(Index), 9) + ":" + Field

   Position = BinarySearchStore(Key, FIND_INSERT)

   if Position > array count( Store() )
      array insert at bottom Store()
      Store().Key = Key
      Store().Value = Value
   else
      if Position < 0
         array insert at top Store()
         Store(0).Key = Key
         Store(0).Value = Value
      else
         if Store(Position).Key <> Key
            array insert at element Store(), Position
            Store().Key = Key
            Store().Value = Value
         else
            Store(Position).Value = Value
         endif
      endif
   endif
endfunction

function Get( Array as string, Index as integer, Field as string )
   local Position as integer
   local Key as string
   local Value as string = ""
   
   Key = Array + ":" + right$("000000000" + str$(Index), 9) + ":" + Field
   Position = BinarySearchStore(Key, FIND_EXACT)
   
   if Position >= 0 then Value = Store(Position).Value
   ` If not found, will return an empty string
endfunction Value


function BinarySearchStore(Target as string, MatchType as integer)
   local High as integer
   local Low as integer
   local Middle as integer

   Low = -1
   High = array count( Store() )+1

   while High - Low > 1
      Middle = (High + Low) / 2
      if Store(Middle).Key < Target
         Low = Middle
      else
         High = Middle
      endif
   endwhile

   if MatchType = FIND_EXACT
      if High > array count( Store() ) then exitfunction -1
      if Store(High).Key <> Target then exitfunction -1
   endif
endfunction High