regenumkey to array

[Jochem]

I tried to make some script to collect software versiosn installed on the networkcomputers.

I used this script (found on this forum, and changed it a little bit):

Func _SoftwareInfo32($cI_CompName)
$cI_CompName = "\\" & $cI_CompName & "\"
    Local Const $regkey = $cI_CompName & 'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'

    Local $key, $regel = 0, $avArray[1]

    While 1
        $regel = $regel + 1
        $key = RegEnumKey($regkey, $regel)
        If @error Then ExitLoop
        $line1cel1 = RegRead($regkey & '\' & $key, 'Displayname')
    $line1cel2 = RegRead($regkey & '\' & $key, 'Displayversion')
    If @error Then ContinueLoop

        $avArray[0] += 1
        ReDim $avArray[$avArray[0] + 1]
        $avArray[$avArray[0]] = $line1cel1
    WEnd

Return $avArray
EndFunc

this is working good, but the problem is that i want a second collumn to ad the version number. I tried manny things but nothing worked till now. Especially this part is what i dont`understand

$avArray[0] += 1
        ReDim $avArray[$avArray[0] + 1]
        $avArray[$avArray[0]] = $line1cel1

I thought more about this:

ReDim $avArray[$regel]
_arrayadd ($avArray [$regel][0], $line1cel1)
_arrayadd ($avArray [$regel][1], $line1cel2)

can somebody give me a tip.

Edited December 9, 2010 by Jochem

[Mat]

$avArray[0] += 1
ReDim $avArray[$avArray[0] + 1]
$avArray[$avArray[0]] = $line1cel1

Ok, this is fairly common code... Still not nice though.

As a general practice thing (despite being frowned upon by many), the number of elements in an array is held in it's first element (zero). This is mostly because it's easier to work with than UBound, and also some internal functions such as StringSplit return it like that.

So the first line is incrementing OUR counter of the array elements.

The second is changing the AUTOIT size of the array using ReDim (see helpfile). The +1 is for the element with the counter itself.

$avArray[$avArray[0]] now points to the last item in the array (the item at the value of the counter). We set it to the value

You want 2 columns? Well you need a 2D array. This is my template code for this sort of stuff

; avArray:
;   [0][0] = counter
;   [*][0] = first column
;   [*][1] = second column
Local $avArray[1][2] ; An 'empty' 2d array
Local $avArray[0][0] = 0 ; The counter

; Add an item:
$avArray[0][0] += 1
ReDim $avArray[$avArray[0][0] + 1][2] ; We are only adding a row!!
$avArray[$avArray[0][0]][0] = '1st'
$avArray[$avArray[0][0]][1] = '2nd'

It's very similar to the first code. A bit more complex though as the counter is now in [0][0]. It also helps when using multi dimensional arrays to say at the top what is stored where (see my comment at the top). Just makes it easy for reference later.

Is that answering the question?

[Jochem]

thanks, great explanation!

I will continue working on the script tomorrow.

[DXRW4E]

Ciao.

[guinness]

DXRW4E,

Try to refrain from opening dead threads, especially when the question has already been provided.

Edited September 16, 2012 by guinness

[DXRW4E]

not open or anything, only indicated a solution that in my opinion and better

if you do not like hmmmmmmmm

instead of saying thanks (for the release of _RegEnumKeyEx) you say hmmmmm (however it seems that your problem is not mine)

I do not know what to say, from the way you wrote it seems that you gave to nuisance one of my publications hmmmmmmm

okay anyway

Edited September 16, 2012 by DXRW4E

[guinness]

I think you've misunderstood my point entirely as well as the tone of my last post. Firstly you're providing a solution to a user who hasn't even logged into their account in 5 months, so what's the likelihood they will now or will even need this solution. Secondly, most of us have seen your example in the Examples section, so there is no need to post duplicate copies all over the forum. This doesn't mean I'm not appreciative of your work.

[DXRW4E]

I understand, I apologize (I'm really sorry)

the point is that I before making the RegEnumKeyEx, or read in forums and looking for RegEnumKey, have left 20-30 topics ect ect, after or fate to me that RegEnumKeyEx, after I had already in Firefox browser these posts and precisely or posted here and in another post

always with idea to be of help, because I'm confused actually looking RegEnumKey + array ect ect, there are many topics with all the hanging question and all without a real solution

sorry again

Ciao.

Edited September 16, 2012 by DXRW4E

[BrewManNH]

guiness' point was that you posted to a 2 year old thread about something the original poster will never see or care about since he hasn't been here in 5 months. Necro posting dead threads is pointless, and a waste of time.

[DXRW4E]

I know I know, the point was that, before I do RegEnumKeyEx (google sent me to this old topic) I ended up in this topic and many other old topic (looking for a solution), and it more confusing to me ect ect, or put the link up there, not to create even more confusion but with the intention to do better, if someone else like me end up in some old posts also find new posts ect ect

sorry again for my english

Ciao

Edited September 16, 2012 by DXRW4E