Dimension d'un tableauRésolu

Question

Bonjour,

Une question toute simple:
J'ai un tableau que je d&#233;clare au d&#233;part sans lui fixer de dimension (utilisation de la fonction Split). J'aimerais savoir comment conna&#238;tre le nombre d'&#233;l&#233;ments du tableau lorsque l'on ne lui d&#233;clare pas de dimension ???

Merci d'avance !

mrdep1978 · Accepted Answer

Salut,

Il faut utiliser la fonction Ubound qui renvoie le num&#233;ro du dernier indice utilis&#233; du tableau :
var = "ab;cd;ef"
tab = split(var,";")
count=ubound(tab) + 1 'car le tableau de n &#233;l&#233;ments va de 0 &#224; n-1, donc ubound renvoie n-1
> count 3

fcampagne · Answer

Tu as la m&#233;thodes lenght qui te retourne le nombre d'&#233;l&#233;ment dans un tableau.

Renfield · Answer

La fonction Length, c'est en .Net ^^

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

philippe laschweng 1 · Answer

Merci j'ai appris quelquechose !

Et comment (je sais j'abuse) supprimer un &#233;l&#233;ment du tableau, je m'exlique :

j'ai un tableau de 5 &#233;l&#233;ments 
Dim tab(5) as String

et je veux par exemle supprimer l'&#233;l&#233;ment tab(4), donc il faudra que l'ancien tab(5) devienne le nouveau tab(4) !!

Une id&#233;e?

mrdep1978 · Answer

Tu dois d'abord faire une boucle pour décaler tous tes éléments l_Tab(4)=l_Tab(5) l_Tab(5)=l_Tab(6) .... Ensuite pour supprimer le dernier élément il faut utiliser ReDim Preserve l_Tab(UBound(l_Tab) - 1) Ce qui signifie : ReDim : redimensionne le tableau Preserve : en conservant les données déjà existantes l_Tab(UBound(l_Tab) - 1) : à son indice le plus grand -1 Cette manipulation n'est possible que si tu déclares ton tableau dynamiquement (ce qui est déjà nécessaire pour utiliser la fonction Split) ~~Dim l_tab(5) as String~~ -> Dim l_tab() as String

philippe laschweng 1 · Answer

D'acoord, mais si tu veux supprimer l'&#233;l&#233;ment 2 du tableau qui n'est pas avant dernier ??

Merci pour tes r&#233;ponses !

fcampagne · Answer

Le plus simple est de faire une fonction qui te vide la case X de ton
tableau, d&#233;cale toutes les autres case et redimensione le tableau a sa
taille -1

&#231;a doit forc&#233;ment exister quelques part ce genre de fonction!!!

philippe laschweng 1 · Answer

Bah si elle esxiste je la connais pas mais je me suis d&#233;brouill&#233; avec du code :

If (InStr(1, LblChaine.Caption, "-") <> 0) Then
        tableau = Split(CStr(LblChaine.Caption), "-")
        tableau2 = tableau
        
        For i = 0 To UBound(tableau)
            If (tableau(i) = Mid(List2, 1, InStr(1, List2, "-") - 1)) Then
                For j = i + 1 To UBound(tableau)
                    tableau2(j - 1) = tableau2(j)
                Next j
                ReDim Preserve tableau2(UBound(tableau) - 1)
                
            End If
        Next i
        LblChaine.Caption = Join(tableau2, "-")
    Else
        LblChaine.Caption = ""
    End If
    List2.RemoveItem (List2.ListIndex)
    List2.Refresh

Dimension d'un tableau

8 réponses

Discussions similaires