For loop incrementing by 2 ?

[Animal_Chin]

I can't figure out why this is incrementing by 2.  The peer length not exceed 9 chars.  There's more code to validate and fix if it exceeds 9, but I can't even step through the array and touch each index without incrementing by 2.  I'm sure it's simple. Thoughts?

Local $peerNamesRaw[5] = ["12","1234","123456", "123456789", "1234567890"]
Local $peerNameDiff = 0
Local $peerNameLen = 0
$i = 0
for $i = 0 To UBound($peerNamesRaw) - 1
    $peerNameLen = Stringlen($peerNamesRaw[$i])
    $peerNameDiff = (9 - $peerNameLen)
        MsgBox(64, "Index - Raw Len, Calc'd Len, Diff", $i & " - " & $peerNamesRaw[$i] & " " & $peerNameLen & " " & $peerNameDiff)
    $i = $i + 1
Next

 

[Animal_Chin]

I got it.  Just different syntax than I was used to I guess.  I had to rem the $i var incrementer at the end of the loop and add Step 1 to the for statement.

Local $peerNamesRaw[5] = ["12","1234","123456", "123456789", "1234567890"]
Local $peerNameDiff = 0
Local $peerNameLen = 0
$i = 0
for $i = 0 To UBound($peerNamesRaw) Step 1
    $peerNameLen = Stringlen($peerNamesRaw[$i])
    $peerNameDiff = (9 - $peerNameLen)
        MsgBox(64, "Index - Raw Len, Calc'd Len, Diff", $i & " - " & $peerNamesRaw[$i] & " " & $peerNameLen & " " & $peerNameDiff)
    ;$i = $i + 1
Next

 

[Subz]

It should be like Example 1 below otherwise you'll get an array error.  The second example uses the first row item to be the count of the array.

;~ Example 1
Local $apeerNamesRaw[5] = ["12","1234","123456", "123456789", "1234567890"]
Local $ipeerNameDiff = 0
Local $ipeerNameLen = 0
For $i = 0 To UBound($apeerNamesRaw) - 1
    $ipeerNameLen = Stringlen($apeerNamesRaw[$i])
    $ipeerNameDiff = (9 - $ipeerNameLen)
    MsgBox(64, "Index - Raw Len, Calc'd Len, Diff", $i & " - " & $apeerNamesRaw[$i] & " " & $ipeerNameLen & " " & $ipeerNameDiff)
Next

;~ Or

;~ Example 2
Local $apeerNamesRaw[6] = [4, "12","1234","123456", "123456789", "1234567890"]
Local $ipeerNameDiff = 0
Local $ipeerNameLen = 0
For $i = 1 To $apeerNamesRaw[0]
    $ipeerNameLen = Stringlen($apeerNamesRaw[$i])
    $ipeerNameDiff = (9 - $ipeerNameLen)
    MsgBox(64, "Index - Raw Len, Calc'd Len, Diff", $i & " - " & $apeerNamesRaw[$i] & " " & $ipeerNameLen & " " & $ipeerNameDiff)
Next

 

[careca]

3 hours ago, Animal_Chin said:

I can't figure out why this is incrementing by 2. Thoughts?

Local $peerNamesRaw[5] = ["12","1234","123456", "123456789", "1234567890"]
Local $peerNameDiff = 0
Local $peerNameLen = 0
$i = 0
for $i = 0 To UBound($peerNamesRaw) - 1
    $peerNameLen = Stringlen($peerNamesRaw[$i])
    $peerNameDiff = (9 - $peerNameLen)
        MsgBox(64, "Index - Raw Len, Calc'd Len, Diff", $i & " - " & $peerNamesRaw[$i] & " " & $peerNameLen & " " & $peerNameDiff)
    $i = $i + 1
Next

 

Yes, this:

$i = $i + 1

I explain:

;first loop
for $i = 0 To UBound($peerNamesRaw)
    ;somecode < $i is 0 at this moment
    $i = $i + 1 ;< you add 1 to $i, so now it becomes 1
Next

;second loop
for $i = 0 To UBound($peerNamesRaw) ;$i was 1 from the first loop and now becomes 2
    ;somecode < $i is 2 at this moment
    $i = $i + 1 ;< you add 1 to $i, so now it becomes 3, and in the start of the next loop becomes 4 and so on.
Next

So if you remove that bit that adds 1 in each loop, the behaviour becomes normal.

That is only used with a while or a do loop.

Edited February 23, 2019 by careca

[Animal_Chin]

Thanks for explaining why.  Appreciated it!

[Dwalfware]

If you need to count the loops add a diffrent $xii = $xii + 1 but not the $xi will increase by two if you add $xi = $xi + 1

thus $xii will be a counter if your wish to do other things like

If $xii = 10  then

Consolewrite("The loop has done ten failed loops")

exitloop

Endif

$xii = $xii +1

;Usefull if you are testing something like ping and want to exit the loop after a number of failed tries. Just add exitloop or return or continueloop

Good for While 1 loops

Edited February 25, 2019 by Dwalfware