2 Arrays comparen

Status
Niet open voor verdere reacties.

frankiebe

Gebruiker
Lid geworden
28 dec 2011
Berichten
12
Ik heb een vraag ivm 2 Arrays te comparen...

ik heb 2 verschillende Arrays, ik kan wel checken of beide hetzelfde zijn maar ik vind geen oplossing voor mijn probleem...

Dim Array1() As String = {"hallo", "world","Een","Twee"}
Dim Array2() As String = {"hallo", "world","twee"}


Hoe kan ik nu checken of alle 3 de woorden van Array2 voorkomen in Array1 ??


Dank bij voorbaat
 
Laatst bewerkt:
Wil je nu checken of ze hetzelfde zijn, of een subset van elkaar zijn? of de ene een subset is van de andere?
 
Ik wil checken of alle 3 de woorden : "hallo, world en twee " in de eerste array Dim Array1() As String = {"hallo", "world","Een","Twee"} zitten...


bv:
Dim Array1() As String = {"hallo", "world","Een","Twee"}
Dim Array2() As String = {"hallo", "world","twee"}

Dim Alle3woorden_Gevonden as boolean = false

Als 'de 3 woorden' van array2 voorkomen in array1 dan

Alle3woorden_Gevonden =true

anders

Alle3woorden_Gevonden = false

einde
als alle 3 de woorden voorkomen moet er een boolean op true staan en anders op false
 
Laatst bewerkt:
de truc is beide arrays te sorteren en dan twee lopende indeces te gebruiken die beide lijsten bijlangslopen.

lijsta = sorted lijst woorden a
lijstb = sorted lijst woorden b

wijzera=1
wijzerb=1

antwoord = waar

zolang (antwoord) en (wijzera<=aantalwoorden(lijsta)) en (wijzerb<=aantalwoorden(lijstb)) doe
{
woorda=lijsta[wijzera]
woordb=lijstb[wijzerb]
als woorda gelijkaan woordb { incremeer wijzera; incremeer wijzerb }
anders als woorda kleinerdan woordb { incremeer wijzera }
anders { antwoord = onwaar }
}

supersnel ook nog ;)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan