two dimenstional aray search

[trademaid]

How do I do a two dimensional array search?

Is there a way to load the array in on line

ie $Array[0][0] = "String0","apple"

_ArraySearch

#Include<Array.au3>

Dim $Array[6][2]

$Array[0][0] = "String0"

$Array[1] [0]= "String1"

$Array[2] [0]= "String2"

$Array[0][1] = "apple"

$Array[1] [1]= "orange"

$Array[2] [1]= "pear"

$Input = InputBox("ArraySearch Demo", "String To Find?")

If @error Then Exit

$Pos = _ArraySearch ($Array, $Input, 0, 0, 0, True)

Select

Case $Pos = -1

MsgBox(0, "Not Found", '"' & $Input & '" was not found in the array.')

Case Else

MsgBox(0, "Found", '"' & $Input & '" was found in the array at pos ' & $Pos & ".")

EndSelect

[covaks]

Try this:

Dim $Array[6][2]
$Array[0][0] = "String0"
$Array[1] [0]= "String1"
$Array[2] [0]= "String2"

$Array[0][1] = "apple"
$Array[1] [1]= "orange"
$Array[2] [1]= "pear"

$Input = InputBox("ArraySearch Demo", "String To Find?")
If @error Then Exit

For $x = 0 to UBound($Array,1) -1
    For $y = 0 to Ubound($Array,2) -1
        If StringInStr($Array[$x][$y],$Input) > 0 Then
            msgbox(0,"","Item found in Array[" & $x & "][" & $y &"]")
        EndIf
    Next
Next

Edited May 5, 2008 by covaks

[PsaltyDS]

Is there a way to load the array in on line

ie $Array[0][0] = "String0","apple"

Dim $Array[6][2]

$Array[0][0] = "String0"

$Array[1] [0]= "String1"

$Array[2] [0]= "String2"

$Array[0][1] = "apple"

$Array[1] [1]= "orange"

$Array[2] [1]= "pear"

Global $Array[6][2] = [["String0", "apple"], ["String1", "orange"], ["String2", "pear"]]

One "row" of data in each inner set of square brackets.