Funktio erottaa osan taulukosta toiseen taulukkoon.
Filter(taulukko, hakusana[, erotustapa[, vertailu]])
Filter käy taulukon jokaisen alkion läpi ja siirtää alkion palautettavaan taulukkoon hakusanasta riippuen. Jos erotustapa on True, alkio siirretään, mikäli hakusana löytyy siitä. Jos erotustapa on False, alkio siirretään, mikäli hakusanaa ei löydy. Vertailu määrittää, kuinka hakusanaa verrataan taulukon alkioon:
arvo | vakio | kuvaus |
-1 | vbUseCompareOption | Käyttää oletusvertailua (mahdollisuus määrittää Option Compare -lauseella). |
0 | vbBinaryCompare | Isojen ja pienien kirjaimien välillä on ero. |
1 | vbTextCompare | Isojen ja pienien kirjaimien välillä ei ole eroa. |
2 | vbDatabaseCompare | Käyttää tietokantavertailua (Microsoft Access). |
Esimerkki:
Dim kaikki(3) As String, osa() As String 'täytetään taulukko autoilla kaikki(0) = "BMW" kaikki(1) = "Ford" kaikki(2) = "Peugeot" kaikki(3) = "Saab" 'erotetaan ne autot, joiden nimessä on o-kirjain osa = Filter(kaikki, "o", True) 'käydään osa-taulukon läpi ja näytetään autot For Each auto In osa MsgBox auto Next
Aiheeseen liittyvää: Replace