Reading Registry to multi D array

[Champak]

This is my current code, there has to be a more efficient way to do it? I would prefer to read the registry directly into the final array.

$OneRead = RegRead($RegLocation, "One")
    Global $Appt_One_Array = StringSplit( $OneRead, @LF )

    $TwoRead = RegRead($RegLocation, "Two")
    Global $Appt_Two_Array = StringSplit( $TwoRead, @LF )

    $ThreeRead = RegRead($RegLocation, "Three")
    Global $Appt_Three_Array = StringSplit( $ThreeRead, @LF )

    $FourRead = RegRead($RegLocation, "Four")
    Global $Appt_Four_Array = StringSplit( $FourRead, @LF )

    $FiveRead = RegRead($RegLocation, "Five")
    Global $Appt_Five_Array = StringSplit( $FiveRead, @LF )
    
    Dim $Input_Array[UBound($Appt_One_Array)][5]
    For $i = 0 To UBound($Appt_One_Array) - 1
        $Input_Array[$i][0] = $Appt_One_Array[$i]
        $Input_Array[$i][1] = $Appt_Two_Array[$i]
        $Input_Array[$i][2] = $Appt_Three_Array[$i]
        $Input_Array[$i][3] = $Appt_Four_Array[$i]
        $Input_Array[$i][4] = $Appt_Five_Array[$i]
    Next

Edited July 18, 2008 by Champak

[weaponx]

$keys = "One;Two;Three;Four;Five"
$aKeys = StringSplit($keys, ";")

Dim $Input_Array[$aKeys[0]][5]

For $X = 1 to $aKeys[0]
    $Read = RegRead($RegLocation, $aKeys[$X])
    Global $Appt_Array = StringSplit($Read, @LF )
    
    For $Y = 1 to $Appt_Array[0]
        $Input_Array[$X-1]][$Y-1] = $Appt_Array[$Y]
    Next
Next

Edited July 18, 2008 by weaponx

[Champak]

Thanks, had to make a couple changes...forgot to mention these are REG_MULTI_SZ

$keys = "One;Two;Three;Four;Five"
$aKeys = StringSplit($keys, ";")

$OneRead = RegRead($RegLocation, "One")
$Appt_Array = StringSplit( $OneRead, @LF )

Global $Input_Array[$Appt_Array[0]][$aKeys[0]]

For $X = 1 to $aKeys[0]
    $Read = RegRead($RegLocation, $aKeys[$X])
    $Appt_Array = StringSplit($Read, @LF )
    For $Y = 1 to $Appt_Array[0]
        $Input_Array[$Y-1][$X-1] = $Appt_Array[$Y]
    Next
Next

Edited July 18, 2008 by Champak

[weaponx]

Thanks, had to make a couple changes...forgot to mention these are REG_MULTI_SZ

$keys = "One;Two;Three;Four;Five"
$aKeys = StringSplit($keys, ";")

$OneRead = RegRead($RegLocation, "One")
$Appt_Array = StringSplit( $OneRead, @LF )

Global $Input_Array[$Appt_Array[0]][$aKeys[0]]

For $X = 1 to $aKeys[0]
    $Read = RegRead($RegLocation, $aKeys[$X])
    $Appt_Array = StringSplit($Read, @LF )
    For $Y = 1 to $Appt_Array[0]
        $Input_Array[$Y-1][$X-1] = $Appt_Array[$Y]
    Next
Next

Why did you add the top two lines back in?

$OneRead = RegRead($RegLocation, "One")
$Appt_Array = StringSplit( $OneRead, @LF )

They do nothing. The result is overwritten on the first loop.

[Champak]

I did that to get the length/index count. The $keys is for the column count.