Keskustelu: Ohjelmointikysymykset: VB6: Taulukkofunktiot

Millaisia taulukkofunktioita VB:ssä on? Tällä hetkellä olisi tarvetta PHP:n kaltaiselle array_reverse() -funktiolle..

Myös muista taulukkofunktioista olisi kiva saada tietoa..

lainaus:

Myös muista taulukkofunktioista olisi kiva saada tietoa..

Ainakin Split funktio on olemassa. Tekee saman kuin PHP:n Explode funktio eli pilkkoo merkkijonon tietyn erotinmerkin mukaan taulukoksi ja palauttaa sen. https://www.ohjelmointiputka.net/koodivinkit/23830-vb6-explode-funktio-vb-lle tuossa on samantapainen Explode funktio VB:lle joka toimii lähes samanlailla kuin PHP:ssä (ja samana päivänä sain tietää VB:n Split:stä...)

VB:ssä on kyllä aika heikosti valmiita taulukkofunktioita, jos vertaa vaikka PHP:hen. LBound palauttaa taulukon alarajan ja UBound palauttaa taulukon ylärajan. Array muodostaa taulukon annetuista arvoista. Sitten on vielä nuo Join (merkkijono taulukosta) ja Split (taulukko merkkijonosta).

Mutta funktioiden tekeminen onnistuu toki aina itse. Tässä esimerkkinä kaipaamasi array_reverse:

Function array_reverse(t() As Variant) As Variant
    Dim u() As Variant, i As Integer, j As Integer
    ReDim u(LBound(t) To UBound(t)) As Variant
    j = UBound(t)
    For i = LBound(t) To UBound(t)
        u(j) = t(i)
        j = j - 1
    Next
    array_reverse = u
End Function

Funktiota voisi käyttää vaikkapa näin:

Dim taulu() As Variant
taulu = Array(3, "Pekka", 2, 9, "Ville", 10)
MsgBox taulu(0) '3
taulu = array_reverse(taulu)
MsgBox taulu(0) '10