Data-To-Arrays

[ioa747]

3D array

; 3D array [table][row][column]
Local $aProducts[3][4][4] = [ _
        [ _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "showInteractiveHelp", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "showWelcomeHint", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "LicenseText", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "Product", "REG_DWORD", "00000000"] _
        ], [ _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-Q\3.0", "showInteractiveHelp", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-Q\3.0", "showWelcomeHint", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-Q\3.0", "LicenseText", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-Q\3.0", "Product", "REG_DWORD", "00000000"] _
        ], [ _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-R\2.0", "showInteractiveHelp", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-R\2.0", "showWelcomeHint", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-R\2.0", "LicenseText", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-R\2.0", "Product", "REG_DWORD", "00000000"] _
        ]]


For $t = 0 To UBound($aProducts) - 1 ;table
    ConsoleWrite("Part" & $t & @CRLF)
    For $r = 0 To UBound($aProducts, 2) - 1 ;row
        For $c = 0 To UBound($aProducts, 3) - 1 ;column
            ConsoleWrite($aProducts[$t][$r][$c] & " - ")
        Next
        ConsoleWrite(@CRLF)
    Next
Next

 

[mr-es335]

And this...

#include <Array.au3>

Local $sNumofRows = 4
Local $sNumofCols = 2

Local $Array[$sNumofRows][$sNumofCols]

$Array[0][0] = "$sKeyname"
$Array[0][1] = "HKEY_CURRENT_USER\Software\First"
$Array[1][0] = "Valuename"
$Array[1][1] = "Second"
$Array[2][0] = "RegSZ"
$Array[2][1] = "REG_SZ"
$Array[3][0] = "String"
$Array[3][1] = "Fourth"


For $row = 0 To UBound($Array) - 1
    For $column = 0 To UBound($Array, $sNumofRows) - 1
        $Array[$row][$column] = $row & ":" & $column
    Next
Next

_ArrayDisplay($Array, "")

 

[ioa747]

 

#include <Array.au3>
;RegWrite ( "keyname" [, "valuename", "type", value] )

; [4 row] [4 column] ; columns: keyname, valuename, type, value
Local $Array[4][4] = [ _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "showInteractiveHelp", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "showWelcomeHint", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "LicenseText", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "Product", "REG_DWORD", "00000000"]]

;~ _ArrayDisplay($Array, "")

For $i = 0 To UBound($Array) - 1
    ConsoleWrite("RegWrite (" & $Array[$i][0] & ", " & $Array[$i][1] & ", " & $Array[$i][2] & ", " & $Array[$i][3] & ")" & @CRLF)
Next

 

[mr-es335]

iao747,

Please, believe me when I say, "ioa747! You have the best examples of anyone here on the Forum!!"

I sincerely believe that such examples are both "methodical" and "bite-sized" - just enough to "...use your little grey cells mon ami!" [Click_Me]

[mr-es335]

On 2/8/2025 at 12:33 PM, ioa747 said:

; 3D array [table][row][column]
Local $aProducts[3][4][4] = [ _
        [ _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "showInteractiveHelp", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "showWelcomeHint", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "LicenseText", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "Product", "REG_DWORD", "00000000"] _
        
        ...and so on...

 

Complete missed that one!! "You are 'da man!!'

[mr-es335]

ioa747,

the following IS ALL DUE to you and your courteous expertise!!...

#include <Array.au3>

Local $Array[12][4] = [ _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "BundleLicenseText", "REG_SZ", ""], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "LicenseText", "REG_SZ", "Product
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "showInteractiveHelp", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-MB\1.0", "showWelcomeHint", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-Q\3.0", "BundleLicenseText", "REG_SZ", ""], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-Q\3.0", "LicenseText", "REG_SZ", "Product
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-Q\3.0", "showInteractiveHelp", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-Q\3.0", "showWelcomeHint", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-R\2.0", "BundleLicenseText", "REG_SZ", ""], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-R\2.0", "LicenseText", "REG_SZ", "Product"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-R\2.0", "showInteractiveHelp", "REG_DWORD", "00000000"], _
        ["HKEY_CURRENT_USER\Software\FabFilter\Pro-R\2.0", "showWelcomeHint", "REG_DWORD", "00000000"]]

;_ArrayDisplay($Array, "")

For $i = 0 To UBound($Array) - 1
    ;ConsoleWrite("RegWrite (" & $Array[$i][0] & ", " & $Array[$i][1] & ", " & $Array[$i][2] & ", " & $Array[$i][3] & ")" & @CRLF)
    RegWrite($Array[$i][0], $Array[$i][1], $Array[$i][2], $Array[$i][3])
Next

Thank you, sssssooooooo very, very...much! Appreciated!

Edited February 9 by mr-es335
Fixed errors in script...

[ioa747]

in Product lines is missing the '"], _' part

[mr-es335]

ioa747,

...ooopppsss...I had to remove the actual licensing information...so the anomaly...fixed...thanks!

Edited February 9 by mr-es335