how to stop FOR

[6105]

Hi, i have a for and can't stop it,

using ExitLoop i don't see any reaction..

For $oLink in $oLinks
  $check = _StringBetween($oLink.href, $x1, $y1)
  If not @error Then
   $string=_ArrayToString($check)
   If $a = $string Then
    ExitLoop ; ==> HERE NEED TO STOP
   ElseIf $a < 9 Then
    $result = StringLeft($string, 1)
   Else
    $result = StringLeft($string, 2)
   EndIf
  EndIf
Next
; ==> HERE need to go, by ignoring all rest of $oLinks

Thanks alot

Edited March 5, 2012 by toader

[Exit]

post the full working code.

[Bert]

well, your code says $a = $string then exit loop. Does $a= $string?

[6105]

i think here is some bug, problem is not in code,

coz i test it on separated script everything works well

i try now "If $x <> $y" also don't work.... ahh..

Func _Repeat()
$a = $a+1
ConsoleWrite('$a = '&$a)
_IELoadWait($oIE)
$oLinks = _IELinkGetCollection($oIE)
$iNumLinks = @extended
ConsoleWrite('  2. Links Found: ' & $iNumLinks)
If $a <> $b Then
  For $oLink in $oLinks
   FileWrite($mFile, $oLink.href & @CRLF)
   $check = _StringBetween($oLink.href, $x1, $y1)
   $check = _StringBetween($oLink.href, $x2, $y2)
   If not @error Then
    $string=_ArrayToString($check)
    If $a < 9 Then
     $result = StringLeft($string, 1)
    Else
     $result = StringLeft($string, 2)
    EndIf
    If $result > $a Then
     ConsoleWrite (' I found it: '&$result& ' link: ' & $oLink.href & @CRLF)
     _Repeat()
    Elseif $result = $a Then
     MsgBox(0,'ERROR','$result = $a'&$result&'='&$a)
    EndIf
   EndIf
  Next
Else
  ConsoleWrite('$a is equal with $b'&$a&'='&$b)
EndIf
EndFunc

In console i see all is well:

$a = 13  2. Links Found: 38 I found it: 14 link: ..b=14
$a = 14  2. Links Found: 43 I found it: 15 link: ..b=15
$a = 15  2. Links Found: 40 I found it: 16 link: ..b=16
$a = 16  2. Links Found: 25
$a is equal with $b16=16
--> COM Error Encountered in test2.au3
----> $IEComErrorScriptline = 33
----> $IEComErrorScriptline = 34
----> $IEComErrorScriptline = 35
...

This IE errors is in "If $a <> $b Then" and in this tipe $a = $b

Line 33,34,35:

FileWrite($mFile, $oLink.href & @CRLF)
   $check = _StringBetween($oLink.href, $x1, $y1)
   $check = _StringBetween($oLink.href, $x2, $y2)

Edited March 5, 2012 by toader

[kylomas]

toader, Be carefull with _stringbetween. The doc says

Success: A 0 based $array[0] contains the first found string.

It can return multiple rows as demonstrated by the following code

;::: #include <ARRAY.AU3>#include <STRING.AU3>$a = 'abcdefabcdabcdefghijdxyzc' $result = _StringBetween($a,'c','f') _arraydisplay($result) ConsoleWrite(_arraytostring($result) & @LF)

If multiple rows are returned they are delimited by a "|". kylomas

Edit: correction - if multiple rows are found you use arraytostring which inserts a delimiter of "|" between elements

Edited March 5, 2012 by kylomas

[6105]

toader,

Be carefull with _stringbetween. The doc says

It can return multiple rows...

kylomas

Thank you, i'll fix my code, but here is another problem coz $a is real equal with $b

$aString=155
$aPages = Round($aString,-0.1) ; $aPages = 16
$b = $aPages ; is 16
$a = $a+1 ; is 1..2.3..4. up to 16

Edited March 5, 2012 by toader

[BrewManNH]

You keep changing the problem you're seeing, either you can't get out of a For loop or you can't get your function to work. Because right now, the first problem has nothing whatever to do with the second problem. Not to mention, you haven't yet posted a workable script that anyone would be able to test to see what you are doing wrong to get that error message. Post a WORKING script, and not just a function that no one can run, if you would like any help.

[kylomas]

Yes, and whatever produces this console message was not posted

$a is equal with $aPages16=16

kylomas

[6105]

Yes, and whatever produces this console message was not posted

kylomas

That is posted.. and i don't understand why after posting and showing that $a<>$b that continue looping..

[kylomas]

toader,

Where? The code in # 4 will not produce that message...regardless, if you want help you need to post a reproducer.

kylomas

[kylomas]

Toader,

I see that you edited the post to match the output. We'll be glad to help but cannit hit a moving target. Post a reproducer.

kylomas

[JohnOne]

That is posted.. and i don't understand why after posting and showing that $a<>$b that continue looping..

Why shouldn't it continue looping?

You don't even have a reference to ExitLoop in that code.

Are you taking the piss?

[6105]

You don't even have a reference to ExitLoop in that code.

Where? The code in # 4 will not produce that message...regardless, if you want help you need to post a reproducer.

Post a WORKING script, and not just a function that no one can run, if you would like any help.

Sorry that i not post the reproducer... that is not legit with Term of Use, sorry i can't..

But also have good news.. i have find the problem, problem is in my pseudo looping))

If $result > $a Then
     ConsoleWrite (' I found it: '&$result& ' link: ' & $oLink.href & @CRLF)
     _Repeat()

In 1 for, is started the same for function one more time..

and more and more.. when i close last.. another continue working...

Thank all a lot!

Edited March 5, 2012 by toader

[kylomas]

6105,

How, and why, did you change names after 13 post on this topic? I see your reference to terms violations but why change names?

kylomas

[6105]

kylomas, i have change my name coz i don't like when somebody call me by name

Thank you.. you have help me to find my stupid error ))

[Melba23]

6105,

Sorry that i not post the reproducer... that is not legit with Term of Use

I am sure those who replied to you will note that and not be so helpful when you post in future. And more importantly I have also noted that you seek help for non-legitimate code. This is the second time you have come to my attention in the past few days - please make sure there is not a third.

M23