Problem with arrays

[TheGeneral]

#RequireAdmin
#include <INet.au3>
#Include <String.au3>
#include <EditConstants.au3>
#include <array.au3>
$source = _INetGetSource ( "http://forum.jogos.uol.com.br/viewtopic.php?t=1409979" )
$nicks =_StringBetween($source, "></a><b>", '</b></span><span class="postdetails">')
$nick1 = _ArrayToString ( $nicks, "|", 0, 0)

The $nick1 variable isn't the first value of the array, it's the whole array, how can i get only the first value?

Other thing: There's anyway to keep only one value, when there're 2 or more equal values in the array?

How can i get the number of rows in the array?

[GEOSoft]

#RequireAdmin
#include <INet.au3>
#Include <String.au3>
#include <EditConstants.au3>
#include <array.au3>
$source = _INetGetSource ( "http://forum.jogos.uol.com.br/viewtopic.php?t=1409979" )
$nicks =_StringBetween($source, "></a><b>", '</b></span><span class="postdetails">')
$nick1 = _ArrayToString ( $nicks, "|", 0, 0)

The $nick1 variable isn't the first value of the array, it's the whole array, how can i get only the first value?

Other thing: There's anyway to keep only one value, when there're 2 or more equal values in the array?

How can i get the number of rows in the array?

Ubound($nick)

For the second question see _ArrayUnique()

Edited November 27, 2008 by GEOSoft

[TheGeneral]

I have written this:

expandcollapse popup

#RequireAdmin
#include <INet.au3>
#Include <File.au3>
#Include <String.au3>
#include <EditConstants.au3>
#include <array.au3>
$source = _INetGetSource ( "http://forum.jogos.uol.com.br/viewtopic.php?t=2112280" )
$nicks =_StringBetween($source, "></a><b>", '</b></span><span class="postdetails">')
$nicks = _ArrayUnique ($nicks)
_arraydisplay ($nicks)
$number = UBound ($nicks)
Select
    Case $number >=2
        $nick1 = $nicks[1]
    Case $number >=3
        $nick2 = $nicks[2]
    Case $number >=4
        $nick3 = $nicks[3]
    Case $number >=5
        $nick4 = $nicks[4]
    Case $number >=6
        $nick5 = $nicks[5]
    Case $number >=7
        $nick6 = $nicks[6]
    Case $number >=8
        $nick7 = $nicks[7]
    Case $number >=9
        $nick8 = $nicks[8]
    Case $number >=10
        $nick9 = $nicks[9]
    Case $number >=11
        $nick10 = $nicks[10]
    Case $number >=12
        $nick11 = $nicks[11]
    Case $number >=13
        $nick12 = $nicks[12]
    Case $number >= 14
        $nick13 = $nicks[13]
    Case $number >= 15
        $nick14 = $nicks[14]
    Case $number = 16
        $nick15 = $nicks[15]
EndSelect

If the $number is 16, why isn't the program selecting The cases with $number >=15, 14, 13 ..?

[GEOSoft]

Add This after your code

MsgBox(0, "TEST", $Number & @CRLF & $Nick1)

What does it display?

Unless you use a ContinueCase statement then it will exit the select at the first match and never get to the rest.

[PsaltyDS]

I have written this:

CODE

#RequireAdmin

#include <INet.au3>

#Include <File.au3>

#Include <String.au3>

#include <EditConstants.au3>

#include <array.au3>

$source = _INetGetSource ( "http://forum.jogos.uol.com.br/viewtopic.php?t=2112280" )

$nicks =_StringBetween($source, "></a><b>", '</b></span><span class="postdetails">')

$nicks = _ArrayUnique ($nicks)

_arraydisplay ($nicks)

$number = UBound ($nicks)

Select

Case $number >=2

$nick1 = $nicks[1]

Case $number >=3

$nick2 = $nicks[2]

Case $number >=4

$nick3 = $nicks[3]

Case $number >=5

$nick4 = $nicks[4]

Case $number >=6

$nick5 = $nicks[5]

Case $number >=7

$nick6 = $nicks[6]

Case $number >=8

$nick7 = $nicks[7]

Case $number >=9

$nick8 = $nicks[8]

Case $number >=10

$nick9 = $nicks[9]

Case $number >=11

$nick10 = $nicks[10]

Case $number >=12

$nick11 = $nicks[11]

Case $number >=13

$nick12 = $nicks[12]

Case $number >= 14

$nick13 = $nicks[13]

Case $number >= 15

$nick14 = $nicks[14]

Case $number = 16

$nick15 = $nicks[15]

EndSelect

If the $number is 16, why isn't the program selecting The cases with $number >=15, 14, 13 ..?

Select/EndSelect and Switch/EndSwitch will only execute ONE case. Once a matching case is found and the code under that case is executed, the script jumps to the EndSelect or EndSwitch statement.

Also, sequentially named variables like '$nick1' through '$nick15' should just be assembled as a single array.

This does what I think you were shooting for:

; ...<snip>
Global $avNick[16]
$nicks =_StringBetween($source, "></a><b>", '</b></span><span class="postdetails">')
$nicks = _ArrayUnique ($nicks)
_arraydisplay ($nicks)
$number = UBound ($nicks)
If $number > 2 Then 
    For $n = 2 To 16
        If $number > $n Then $avNick[$n - 1] = $nicks[$n - 1]
    Next
EndIf

Edited November 28, 2008 by PsaltyDS

[TheGeneral]

Select/EndSelect and Switch/EndSwitch will only execute ONE case. Once a matching case is found and the code under that case is executed, the script jumps to the EndSelect or EndSwitch statement.

Also, sequentially named variables like '$nick1' through '$nick15' should just be assembled as a single array.

This does what I think you were shooting for:

; ...<snip>
Global $avNick[16]
$nicks =_StringBetween($source, "></a><b>", '</b></span><span class="postdetails">')
$nicks = _ArrayUnique ($nicks)
_arraydisplay ($nicks)
$number = UBound ($nicks)
If $number > 2 Then 
    For $n = 2 To 16
        If $number > $n Then $avNick[$n - 1] = $nicks[$n - 1]
    Next
EndIf

I solved that:

Func TopicoNicks($var2)
    Global $avNick[16]
    $source = _INetGetSource($var2)
    $nicks = _StringBetween($source, "></a><b>", '</b></span><span class="postdetails">')
    $nicks = _ArrayUnique($nicks)
    $number = UBound($nicks)
    If $number > 2 Then
        For $n = 2 To 16
            If $number >= $n Then GuiListAdd($nicks[$n - 1])
        Next
    EndIf
EndFunc  ;==>TopicoNicks

Edited November 28, 2008 by TheGeneral

[BrettF]

Select/EndSelect and Switch/EndSwitch will only execute ONE case. Once a matching case is found and the code under that case is executed, the script jumps to the EndSelect or EndSwitch statement.

Also, sequentially named variables like '$nick1' through '$nick15' should just be assembled as a single array.

This does what I think you were shooting for:

; ...<snip>
Global $avNick[16]
$nicks =_StringBetween($source, "></a><b>", '</b></span><span class="postdetails">')
$nicks = _ArrayUnique ($nicks)
_arraydisplay ($nicks)
$number = UBound ($nicks)
If $number > 2 Then 
    For $n = 2 To 16
        If $number > $n Then $avNick[$n - 1] = $nicks[$n - 1]
    Next
EndIf

But if we use ContinueCase can't we change that?

expandcollapse popup

#RequireAdmin
#include <INet.au3>
#Include <File.au3>
#Include <String.au3>
#include <EditConstants.au3>
#include <array.au3>
$nicks = "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20"
$nicks = StringSplit ($nicks, "|")
$number = 10
Select
    Case $number = 16
        $nick15 = $nicks[15]
        ContinueCase
    Case $number >= 15
        $nick14 = $nicks[14]
        ContinueCase
    Case $number >= 14
        $nick13 = $nicks[13]
        ContinueCase
    Case $number >=13
        $nick12 = $nicks[12]
        ContinueCase
    Case $number >=12
        $nick11 = $nicks[11]
        ContinueCase
    Case $number >=11
        $nick10 = $nicks[10]
        ContinueCase
    Case $number >=10
        $nick9 = $nicks[9]
        ContinueCase
    Case $number >=9
        $nick8 = $nicks[8]
        ContinueCase        
    Case $number >=8
        $nick7 = $nicks[7]
        ContinueCase
    Case $number >=7
        $nick6 = $nicks[6]
        ContinueCase
    Case $number >=6
        $nick5 = $nicks[5]
        ContinueCase
    Case $number >=5
        $nick4 = $nicks[4]
        ContinueCase
    Case $number >=4
        $nick3 = $nicks[3]
        ContinueCase
    Case $number >=3
        $nick2 = $nicks[2]
        ContinueCase
    Case $number >=2    
        $nick1 = $nicks[1]
        ContinueCase
EndSelect

$output = ""
For $i = 1 to 15
    $output &= "Value of nick" & $i & " = " & Eval ("nick" & $i) & @CRLF
Next

MsgBox (0, "", $output)

[PsaltyDS]

I solved that:

Func TopicoNicks($var2)
    Global $avNick[16]
    $source = _INetGetSource($var2)
    $nicks = _StringBetween($source, "></a><b>", '</b></span><span class="postdetails">')
    $nicks = _ArrayUnique($nicks)
    $number = UBound($nicks)
    If $number > 2 Then
        For $n = 2 To 16
            If $number >= $n Then GuiListAdd($nicks[$n - 1])
        Next
    EndIf
EndFunc ;==>TopicoNicks

Great.

I would recommend moving the Global declaration of $avNick outside the function. Declaring globals inside a function might work, but will trigger warnings on syntax check and is generally considered bad practice in AutoIt.

But if we use ContinueCase can't we change that?

; ...<snip>
Select
    Case $number = 16
        $nick15 = $nicks[15]
        ContinueCase
    Case $number >= 15
        $nick14 = $nicks[14]
        ContinueCase

; ...<snip>

    Case $number >=2    
        $nick1 = $nicks[1]
        ContinueCase
EndSelect

That might work, but it's ugly and requires a long repeatitive block of code. Any time you find yourself repeating the same code over and over its time to look for a better way. The short For/Next loops to do the same thing are much more efficient.