Zoen in een array

[kees1955]

Hoe kan ik zoeken in een array
Gaat om een array waar ik af wisselend verschillende gegevens in kan zetten
B.v array(123,456,789,87,5)

 

[edmoor]

Daar zijn 1001 mogelijkheden voor, helemaal afhankelijk van wat je er precies mee wilt doen.
De vraag is dus erg kort door de bocht en vergt meer uitleg.

In het voorbeeld dat je geeft hoef je niet te zoeken omdat je al precies weet wat waar staat.

 

[kees1955]

als het programma draait wordt de inhoud van de array bepaald en kan wijzigen tijdens het werken
ik wil weten of er een bepaald getal in de array aanwezig is

 

[edmoor]

Dat maakt het niet veel duidelijker, maar goed, een voorbeeldje:

Sub Zoek()
    Dim AGT() As String
    AGT = Split("123, 456, 789, 87, 5", ",")
    Dim ZoekGetal As Integer
    
    ZoekGetal = 87
    
    For i = 0 To UBound(AGT)
        If Int(AGT(i)) = ZoekGetal Then MsgBox "Aanwezig"
    Next i
End Sub

 

[kees1955]

met for next duurt te lang hij moet heel veel informatie checken
er is een manier om het te doen maar kan daar bij de gegevens in de array niet wijzigen
tenminste zoals ik heb ge probeert lukt mij dat niet

Dim MyArray() As String = {"a", "ThisEntry", "b"}
Dim indx As Integer = MyArray.ToList().IndexOf("ThisEntry")

hier krijg ik true af false retour
het gaat mij er om of het gezochte woord of nummer in de array aanwezig is

 

[edmoor]

IndexOf werkt ook met een loop, maar dan zal het zoiets zijn:

Dim indx As Integer = Array.IndexOf(MyArray, "ThisEntry")

Je krijgt dan het elementnummer in de array terug waar het gezochte werd gevonden.

 

[HSV]

Zonder loop?

Sub Zoek()
    Dim AGT
    AGT = Array("123", "456", "789", "87", "5")
    Dim ZoekGetal As String
    
    ZoekGetal = 87
    
    If Not IsError(Application.Match(ZoekGetal, AGT, 0)) Then MsgBox "Aanwezig"
 
End Sub

 

[edmoor]

Application.Match in Visual Basic.NET?
Da's nieuw voor mij

 

[HSV]

Zit ik in de verkeerde sector @edmoor?
Het lijkt tamelijk veel op Excel Vba.

 

[edmoor]

Ze lijken inderdaad wel op elkaar maar de ene spreekt Limburgs en de andere Gronings

 

[HSV]

:d:d

Is er niet een gelijkend functie voor in Visual Basic.NET
Misschien heb ik je op een idee gebracht.

Nou ik laat het hier maar bij (ik zat even te kijken wie er allemaal online waren en zag de vraag voorbij komen).

 

[edmoor]

Iets gelijkend is wat ik liet zien in #6.
Fijne avond verder