Multidimentional Associative array UDF?

[ParoXsitiC]

I did some looking around and I found a lot of codeAssociative arrays (hash/dicts etc). Not many of them that I found seem to support multidimensions except for this one: http://www.autoitscript.com/forum/index.php?showtopic=113182&st=0

This could do what I want, but I think its hard to read and understand the way he sets them up. What I am looking to do is this:

Have a file we will called (wages.csv) that looks like this

Default,0,40,10

Default,41,9999,15

Brian,0,40,15

Brian,41,50,20

Brian,51,9999,22

Chad,0,40,13

Chad,41,9999,17

That would then define a multi-dimentional array like this

expandcollapse popup

Array
(
    [Default] => Array
        (
            [0] => Array
                  (
                      [0] => 0
                      [1] => 40
                      [2] => 10
                   )
            [1] => Array
                  (
                      [0] => 41
                      [1] => 9999
                      [2] => 15
                   )
        )
    [Brian] => Array
        (
            [0] => Array
                  (
                      [0] => 0
                      [1] => 40
                      [2] => 15
                   )
            [1] => Array
                  (
                      [0] => 41
                      [1] => 50
                      [2] => 20
                   )
            [2] => Array
                  (
                      [0] => 51
                      [1] => 9999
                      [2] => 22
                   )
        )
    [Chad] => Array
        (
            [0] => Array
                  (
                      [0] => 0
                      [1] => 40
                      [2] => 13
                   )
            [1] => Array
                  (
                      [0] => 41
                      [1] => 9999
                      [2] => 17
                   )
        )
)

Where default, brian, and chad could be use as keys. The whole point is that it will define a pay range for the employee (the key). If Brian worked 52 hours he would fall under 52-9999 thus getting 22 an hour. etc etc.

Is this the best way approaching this idea or do you have a better idea? If it is...then how can I define the arrays I need to define?

[jchd]

Simply use a two-dimensional array. That's distinct from arrays in an array!

[BugFix]

Because you want an Associative array, you can fake that.

This works:

expandcollapse popup

Local $tagDefault = 'int[3];'
Enum $Default, $Brian, $Chad, $iCount
Global $a[$iCount]

$a[$Default] = DllStructCreate($tagDefault & $tagDefault)
$a[$Brian]   = DllStructCreate($tagDefault & $tagDefault & $tagDefault)
$a[$Chad]    = DllStructCreate($tagDefault & $tagDefault)

DllStructSetData($a[$Default], 1, 0, 1)
DllStructSetData($a[$Default], 1, 40, 2)
DllStructSetData($a[$Default], 1, 10, 3)
DllStructSetData($a[$Default], 2, 41, 1)
DllStructSetData($a[$Default], 2, 9999, 2)
DllStructSetData($a[$Default], 2, 15, 3)

DllStructSetData($a[$Brian], 1, 0, 1)
DllStructSetData($a[$Brian], 1, 40, 2)
DllStructSetData($a[$Brian], 1, 15, 3)
DllStructSetData($a[$Brian], 2, 41, 1)
DllStructSetData($a[$Brian], 2, 50, 2)
DllStructSetData($a[$Brian], 2, 20, 3)
DllStructSetData($a[$Brian], 3, 51, 1)
DllStructSetData($a[$Brian], 3, 9999, 2)
DllStructSetData($a[$Brian], 3, 22, 3)

DllStructSetData($a[$Chad], 1, 0, 1)
DllStructSetData($a[$Chad], 1, 40, 2)
DllStructSetData($a[$Chad], 1, 13, 3)
DllStructSetData($a[$Chad], 2, 41, 1)
DllStructSetData($a[$Chad], 2, 9999, 2)
DllStructSetData($a[$Chad], 2, 17, 3)




ConsoleWrite(_GetVal($Brian, 22) & @CRLF)
ConsoleWrite(_GetVal($Brian, 43) & @CRLF)
ConsoleWrite(_GetVal($Brian, 57) & @CRLF)
ConsoleWrite(_GetVal($Chad, 35) & @CRLF)
ConsoleWrite(_GetVal($Chad, 45) & @CRLF)



Func _GetVal($Name, $Hour)
    Local $i = 1, $val
    While Not @error
        If Number($Hour) <= DllStructGetData($a[$Name], $i, 2) Then _
            Return DllStructGetData($a[$Name], $i, 3)
        $i += 1
    WEnd
    Return SetError(1,0,-1) ; hour greather than stored max value
EndFunc

[ParoXsitiC]

Because you want an Associative array, you can fake that.

This works:

expandcollapse popup

Local $tagDefault = 'int[3];'
Enum $Default, $Brian, $Chad, $iCount
Global $a[$iCount]

$a[$Default] = DllStructCreate($tagDefault & $tagDefault)
$a[$Brian]   = DllStructCreate($tagDefault & $tagDefault & $tagDefault)
$a[$Chad]    = DllStructCreate($tagDefault & $tagDefault)

DllStructSetData($a[$Default], 1, 0, 1)
DllStructSetData($a[$Default], 1, 40, 2)
DllStructSetData($a[$Default], 1, 10, 3)
DllStructSetData($a[$Default], 2, 41, 1)
DllStructSetData($a[$Default], 2, 9999, 2)
DllStructSetData($a[$Default], 2, 15, 3)

DllStructSetData($a[$Brian], 1, 0, 1)
DllStructSetData($a[$Brian], 1, 40, 2)
DllStructSetData($a[$Brian], 1, 15, 3)
DllStructSetData($a[$Brian], 2, 41, 1)
DllStructSetData($a[$Brian], 2, 50, 2)
DllStructSetData($a[$Brian], 2, 20, 3)
DllStructSetData($a[$Brian], 3, 51, 1)
DllStructSetData($a[$Brian], 3, 9999, 2)
DllStructSetData($a[$Brian], 3, 22, 3)

DllStructSetData($a[$Chad], 1, 0, 1)
DllStructSetData($a[$Chad], 1, 40, 2)
DllStructSetData($a[$Chad], 1, 13, 3)
DllStructSetData($a[$Chad], 2, 41, 1)
DllStructSetData($a[$Chad], 2, 9999, 2)
DllStructSetData($a[$Chad], 2, 17, 3)




ConsoleWrite(_GetVal($Brian, 22) & @CRLF)
ConsoleWrite(_GetVal($Brian, 43) & @CRLF)
ConsoleWrite(_GetVal($Brian, 57) & @CRLF)
ConsoleWrite(_GetVal($Chad, 35) & @CRLF)
ConsoleWrite(_GetVal($Chad, 45) & @CRLF)



Func _GetVal($Name, $Hour)
    Local $i = 1, $val
    While Not @error
        If Number($Hour) <= DllStructGetData($a[$Name], $i, 2) Then _
            Return DllStructGetData($a[$Name], $i, 3)
        $i += 1
    WEnd
    Return SetError(1,0,-1) ; hour greather than stored max value
EndFunc

This seems to mimic what I need, I want to note the data is pulled from a csv, so it will be dynamic. But I guess I could automate that with a bunch of eval and such.

[SmOke_N]

Export the csv to sqlite, and use the _sqlite funcs to get your data.

[jchd]

Export the csv to sqlite, and use the _sqlite funcs to get your data.

I was about to give this advice but got the fear to be called sqlite-maniac.

[Melba23]

jchd,

got the fear to be called sqlite-maniac

Too late!

M23

[ParoXsitiC]

Sorry to reply late, and bring back an old subject but has anyone else have any advice or can point me to any alternative?

Converted CSV to SQlite would probably work but seems like a bit of a hassle to just mimic assoc. arrays.

[jchd]

I would say that, to the contrary, using associative arrays for any serious business-like (payroll or whatever) application is deemed to turn out more complex and spaghetti-prone than using simple SQL.

_SQLite_QuerySingleRow($hDB, "select wage from wages where name like " & _SQLite_Escape($employee) & " and " & $WorkTime & " between lowhours and highhours;", $row)
if @error then
    _SQLite_QuerySingleRow($hDB, "select wage from wages where name like 'default' and " & $WorkTime & " between lowhours and highhours;", $row)
endif
$wage = $row[0]

But, as Melba23 disclosed above, this is just my pet perversion

Edited August 4, 2010 by jchd

[ParoXsitiC]

Sorry for another late reply. So yeah, SQL seems more simple. However, as I stated. the CSV files are redownloaded from a server each time the program is read, so I will still need to use CSV files as a source of data. Which means I will need to convert CSV files to SQLlite databases using AutoIT. Any code on that?

I guess in theory I could have PHP do that work for me, if its easier. And then just download the SQLlight database instead of the CSV file for autoit.

By CSV, I mean exactly that. Comma Separated values(columns), with each row separated by a newline.

Edit: nevermind. I googled "csv to sqlite autoit" ...normally it will search the forums for me... Didnt work for me. I found what I wanted here: http://www.autoitscript.com/forum/index.php?showtopic=117675&st=0&p=819670&hl=sqlite%20import&fromsearch=1&#entry819670

Edit2: There seems to be issues with running command lines using AutoIT...I decided to use this easy to read but ugly code:

Local $hFile = @ScriptDir & "\wages.csv"
    Dim $FileArray

    _SQLite_Startup()
    _SQLite_Open() ; open :memory: Database
    If Not _SQLite_Exec(-1, "CREATE TEMP TABLE wagetable (name, lowhours, highhours, wage);") = $SQLITE_OK Then MsgBox(16, "SQLite Error", _SQLite_ErrMsg())

    _FileReadToArray($hFile, $FileArray)
    _ArrayDelete($FileArray, 0)

    For $Line in $FileArray
        $Values = StringSplit($Line, ",", 2)
        If Not _SQLite_Exec(-1, "INSERT INTO wagetable VALUES ('"&$Values[0]&"','"&$Values[1]&"','"&$Values[2]&"', '"&$Values[3]&"');") = $SQLITE_OK Then MsgBox(16, "SQLite Error", _SQLite_ErrMsg())
    Next

Edited August 16, 2010 by ParoXsitiC