Is there a away to shorten this code?

[foster74]

It will have over 20 for loops, anyway to make it simple? I can not think of anything =(

For $i1 = 1 to $ArrayLINKS[0]
    _IENavigate($oIE, $ArrayLINKS[$i1])
    $ArrayLINKS1 = _GetLinks()
    $ArraySIZES1 = _GetSize()
    If $ArrayLINKS1[0] > 0 Then
;;;
        For $i2 = 1 to $ArrayLINKS1[0]
            _IENavigate($oIE, $ArrayLINKS1[$i2])
            $ArrayLINKS2 = _GetLinks()
            $ArraySIZES2 = _GetSize()
            If $ArrayLINKS2[0] > 0 Then
        ;;;
                For $i3 = 1 to $ArrayLINKS2[0]
                    _IENavigate($oIE, $ArrayLINKS2[$i3])
                    $ArrayLINKS3 = _GetLinks()
                    $ArraySIZES3 = _GetSize()
                    If $ArrayLINKS3[0] > 0 Then
                ;;;
                    EndIf       
                    _Collect($ArraySIZES2[$i3])
                Next
        ;;;
            EndIf       
            _Collect($ArraySIZES1[$i2])
        Next
;;;
    EndIf
    _Collect($ArraySIZES[$i1])
Next

edit: typo

Edited April 17, 2009 by foster74

[andybiochem]

This might work:

...untested of course - posting a working script is easier to debug etc

For $i = 0 to 19;this will loop 20 times
    If $i = 0 Then $i = ""
    For $j = 1 to Execute("$ArrayLINKS" & $i & "[0]")
        _IENavigate($oIE, Execute("$ArrayLINKS" & $i & "[" & $j & "]")
        Assign("ArrayLINKS" & $i + 1,_GetLinks())
        Assign("ArraySIZES" & $i + 1,_GetSize())
        _Collect(Execute("$ArraySIZES" & $i & "[" & $j & "]"))
        If Execute("$ArrayLINKS" & $i + 1 & "[0]") = 0 Then ExitLoop 2
    Next
Next

You will get a LOT of "$var is not declared" errors using Execute() and Assign(), so make sure you have declared all your vars and arrays somewhere beforehand.

[WideBoyDixon]

There certainly is! However, you'll need to delve in to the depths of recursion and AFAIR, AutoIt isn't fantastically well suited to recursion. Google is your friend here or search the forums for recursive functions.

WBD

[WideBoyDixon]

Could take forever to run ... I hope _GetLinks() doesn't follow off-site links! Something like this perhaps?

Func _FollowAllLinks()
    Local $aLinks = _GetLinks(), $aSizes = _GetSize(), $i
    If $aLinks[0] > 0 Then
        For $i = 1 To $aLinks[0]
            _IENavigate($oIE, $aLinks[$i])
            _FollowAllLinks()
            _Collect($aSizes[$i])
        Next
    EndIf
EndFunc

WBD