My array is getting written over instead of added to

[computergroove]

My code gets the source code of a website and returns a unique set of values from each page it scans.

In the following code I add a value to my array in a loop with _ArrayAdd. When the loop starts the second $j loop and beyond, the data in $Array gets written over with the new loops data. I want it to add the value to the bottom of the existing array. There  are currently 19 pages in the website with 20 unique links per page and 6 on the last page so my array should be around 366 rows long (18 pages * 20 links per page + 6). Its 6 rows long at the end of my script. If I manually step through each loop, $Array is 20 rows long until I reach the last loop.

Global $Array[0]

For $k = 1 To 19

    For $j = 1 To 20
        Local $HTML = _INetGetSource($url)
        $1 = StringInStr($HTML, "/expose/", 0, $j)
        $2 = StringTrimLeft($HTML, $1)
        $3 = StringReplace($2, '"', ";;")
        $4 = StringSplit($3, ";;", 1)
        $5 = $4[1]
        $6 = StringMid($5, 8, 8)
        If $6 >= 1 Then
            _ArrayAdd($Array, $6);<-- Here is where the array is adding to the existing array
        EndIf
    Next

    $url = "www.examplewebpage/Page" & $k & ".html"

Next

Edited December 11, 2014 by computergroove

[UEZ]

_ArrayAdd might be slow on 19 * 20 loops:

 

Try this (not tested):

Global $Array[19 * 20], $z = 0

For $k = 1 To 19

    For $j = 1 To 20
        Local $HTML = _INetGetSource($url)
        $1 = StringInStr($HTML, "/expose/", 0, $j)
        $2 = StringTrimLeft($HTML, $1)
        $3 = StringReplace($2, '"', ";;")
        $4 = StringSplit($3, ";;", 1)
        $5 = $4[1]
        $6 = StringMid($5, 8, 8)
        If $6 >= 1 Then
            $Array[$z] = $6 ;<-- Here is where the array is adding to the existing array
            $z += 1
        EndIf
    Next

    $url = "www.examplewebpage/Page" & $k & ".html"

Next

If Not $z Then
    MsgBox(0, "Info", "Nothing added to the array")
Else
    ReDim $Array[$z]
EndIf

Br,

UEZ

Edited December 11, 2014 by UEZ

[Melba23]

computergroove,

I have reduced your code to a minimum and it adds the elements without problem:

#include <Array.au3>

Global $Array[0]

For $k = 1 To 19
    For $j = 1 To 20
        $6 = $k & " - " & $j
        If $6 >= 1 Then
            _ArrayAdd($Array, $6);<-- Here is where the array is adding to the existing array
        EndIf
    Next
Next

_ArrayDisplay($Array, "", Default, 8)

I note that $6 is a string and you are comparing it to a numeric value before adding it to the array. When you do this AutoIt forces both sides of the comparison to number format - and a string return 0 when this happens. I rather think that this is the root of your problem - try adding a letter as the first character of the $6 = assignment and see what happens.

M23

[computergroove]

For $k = 2 To 20
    GetNumberedLinks()
    _ArrayConcatenate($FinalArray,$Array)
        $url = "www.examplewebpage/Page" & $k & ".html"
    $HTML = _INetGetSource($url)
Next

Func GetNumberedLinks()
        $HTML = _INetGetSource($url)
        $j = 1
        Do
            $1 = StringInStr($HTML, "/expose/", 0, $j)
            $2 = StringTrimLeft($HTML, $1)
            $3 = StringReplace($2, '"', ";;")
            $4 = StringSplit($3, ";;", 1)
            $5 = $4[1]
            $6 = StringMid($5, 8, 8)
            If $6 >= 1 Then;Needed to add this if statement because I was getting extra characters at the end of the finalarray
                _ArrayAdd($Array,$6,1)
            EndIf
            $j += 1
        Until $1 = 0;Stop loop when there are no more instances of "/expose/"
        $Array = _ArrayUnique($Array,0,0,0,0)
EndFunc

I got it to work using this. Changing the variable labels to letters produced the same result.