[VB6] Array Search (In_array)

[Mir]

Ej,

Ben ik nou gek en kan ik helemaal niet zoeken of....

Een gewone simpele functie die kijkt of een string in je array voor komt.
Zoals in PHP In_array.

Dus:

code:

aTest = array("trala", "test", "trom")

if fZoekFunctie(aTest,"test")
    'Gevonden!!
else
    'Niet gevonden :'(
end if

..het zal wel aan mij liggen..


[edit]

Ok, filter ziet er wel OK uit.
Die was ik al 100 keer tegengekomen maar tijdens het testen werkte deze niet.
Waarschijnlijk omdat ik de array als bovenstaande aanmaakte.

Beetje behelpen...maarja

[ Voor 0% gewijzigd door Mir op 24-08-2002 18:49 . Reden: ... ]

[johnwoo]

VB6 kauwt dan misschien wel behoorlijk wat voor je voor, maar zo erg als in PHP is het nog niet Een functietje om te bepalen of een element in een array voorkomt heb je zelf binnen een minuut geschreven. Ik doe een poging uit de losse pols:

code:

Function InArray(ByRef Needle As String, ByRef Haystack As String()) As Boolean
  Dim Index As Long
  For Index = LBound(Haystack) To UBound(Haystack)
    If Haystack(Index) = Needle Then
      InArray = True
      Exit For
    End If
  Next Index
End Function

Now, that wasn't so hard, was it?

Overigens is Filter() niet bedoeld om alleen maar te kijken of een element in een array voorkomt. Filter() geeft zelf een array terug die een subset is van de gegeven array. Als je alleen maar wilt weten of een element in je array voorkomt is dit grote overkill.

[ Voor 0% gewijzigd door johnwoo op 24-08-2002 20:42 . Reden: Filter() stukje toegevoegd ]

[Mir]

Ik had inmiddels ook al mijn eigen functie geschreven omdat Filter niet aan mijn voorwaardes voldeed
Tuurlijk is een functie zelf schrijven zo gedaan, daar is mijn niveau (naar mijn idee ) wel goed genoeg voor.

Maar ik blijf het netter vinden gereserveerde functie's te gebruiken.

Even goed bedankt!