CrisseTof
Messages postés57Date d'inscriptionjeudi 5 août 2004StatutMembreDernière intervention 2 juillet 2005
-
21 août 2004 à 14:09
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 2006
-
22 août 2004 à 11:46
Bonjour,
Je suis à la recherche d'une fonction qui me donne la dimension d'un tableau :
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 21 août 2004 à 16:25
Salut,
Il y a peut-être une meilleure solution mais pour l'instant je n'en vois qu'une.
Explication : la function essaie de déterminer la taille de chaque dimension (de 1 à 255). Quand elle tombe sur une dimension qui n'existe pas, une erreur se produit et on peut se servir de ça.
Utilisation :
Dim tableau(10, 5, 7, 8) As String
TaVariable = nb_Dimensions(tableau)
Function nb_Dimensions(t) As Integer
Dim i As Integer
Dim n As Integer
On Error GoTo Erreur
For i = 1 To 255
n = UBound(t, i)
Next
Exit Function
Erreur:
nb_Dimensions = i - 1
End Function
Cordialement, CanisLupus
Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands
cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 22 août 2004 à 11:46
Désolé, g cherché un peu partout mais je n'ai rien trouvé pour VB6 concernant ta question (sauf des solutions plus compliquées qui ne fonctionnent pas toujours).
Si tu programmes en .NET, tu peux utiliser la classe System.Array.
La propriété Rank te renvoie le nombre de dimensions de ton tableau.
Ds ma réponse j'avais mis : For i = 1 To 255, c'était pour être sûr mais je crois que le nombre max de dimensions est 32 (enfin à vérifier) .
Cordialement, CanisLupus
Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands