_ArraySearch Not returning expected value.

[cal]

_ArraySearch on a 2D array.

The help file says it returns the index of where the value was found. It should return a -1 if not found and set the error code.

If found its working as expected, but if not found it sets the error code fine but its returning a 1 instead of a -1. I can work around it now that I know whats going on. Just wondering if this a known issue or perhaps something on my side.

[Melba23]

cal,

There is nothing in the _ArraySearch code to suggest that it would ever return with @error set and 1 as the return value - all the Return SetError lines use -1.

Could you let us see an array which gives you the problem - and the basic code you are using as well, of course.

M23

[cal]

Perhaps its on my side. I'll see if I can make up an example and reproduce it. If not, I'll see if I can post part of the original code that has this problem.

[cal]

Yep. my side.

Creating separate code made me realize what I was doing.

Test Code below.

Note that the error is 6 as it should be.

Note that my message boxes are formatted with dashes. Its an expansion from typing mb that I use a lot. Helps detecting beginning and trailing spaces but here it made me think the -1 was a 1.

But the true mistake was in my "if" statements. I has assumed that a -1 would not trigger the "if" statements to run. It does. If I change it to put the "> 0 " part in like the second "if" statement then it works as expected.

I modified the original codes "IF" statements and it now works.

expandcollapse popup

$ver = 'ver 1w'
#Tidy_Parameters = /Skip_EndRegion_Comment

If Not @Compiled Then Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info
Opt("MouseCoordMode", 0) ;1=absolute, 0=relative
Opt("WinTitleMatchMode", 2) ;1=start, 2=subStr, 3=exact, 4=advanced
FileChangeDir(@ScriptDir)

#Include <Array.au3>
;~ #include <_array_display_expand.au3>


; ensure this copy is the running one.
$g_szVersion = "test Script"
If WinExists($g_szVersion) Then WinClose($g_szVersion)
AutoItWinSetTitle($g_szVersion)

HotKeySet("{ESC}", "Terminate")
Func Terminate()
    Exit 0
EndFunc   ;==>Terminate


Dim $a[2][2]
$a[0][0] = 'up left'
$a[0][1] = 'up right'
$a[1][0] = 'bottom left'
$a[1][1] = 'bottom right'


;~ _ArrayDisplayExpanded($a ,'Line ' & @ScriptLineNumber & ' --- ' & '')
_ArrayDisplay($a)


$t = _ArraySearch($a, 'site/down', 0, 0, 0, 1, 1, 0)
MsgBox(0,'Line ' & @ScriptLineNumber, '---' & @error & '---')
MsgBox(0,'Line ' & @ScriptLineNumber, '---' & $t & '---')

If _ArraySearch($a, 'site/down', 0, 0, 0, 1, 1, 0) then MsgBox(0,'Line ' & @ScriptLineNumber, '--- found ---')
If _ArraySearch($a, 'site/down', 0, 0, 0, 1, 1, 0) > 0 then MsgBox(0,'Line ' & @ScriptLineNumber, '--- found take two ---')