Discussion :

[jeandadaf]

Bonjour,

Je voudrais savoir comment caster un tableau.

C'est à dire que je veux envoyer un tableau dans une sub en parametre d'une longueur qui peut varier. Je passe donc un parametre de type object.
Ensuite dans ma sub je voudrais le caster pour m'en servir du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
   Sub maSub(ByVal tab As Object)
 
        For i = 0 To ((Array(5) as string)tab.GetLength)
            MsgBox(tab(i))
        Next
 
    End Sub

je veux donc caster un tableau longueur de 5.

Merci à vous

[Invité]

Passe simplement ton tableau de string en paramètre et tu fais ta boucle de 0 à lenght-1. Tu te complique vraiment la vie...

[Sankasssss]

Donc pour mettre en code ce que yroubag exprime :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
   Sub maSub(ByVal tab() As String)
 
        For i as integer = 0 To tab.Length
            MsgBox(tab(i))
        Next
 
    End Sub

ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
   Sub maSub(ByVal tab() As String)
 
        For each str as string in tab
            MsgBox(tab(i))
        Next
 
    End Sub

[Invité]

Merci Sankasssss, c'est vraiment tout cuit dans le bec! Je voulais juste le faire chercher un peu... c'est quand on cherche qu'on se souvient.

NB: T'a oublié ton -1 à la fin, sinon tu pètes ton index.

Donc pour mettre en code ce que yroubag exprime :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
   Sub maSub(ByVal tab() As String)
 
        For i as integer = 0 To tab.Length -1
            MsgBox(tab(i))
        Next
 
    End Sub

[Sankasssss]

oui d'office le - 1
quand on tape vite quelque chose...
Sinon je me doute que tu voulais le faire chercher mais je trouve que les info pour le faire chercher n'étaient pas suffisante, beaucoup de personnes ne seraient pas par où chercher avec cette info

et t'inquiète qu'une fois aqui, une chose aussi simple on s'en souviens (du moins je l'espère pour vous)

[jeandadaf]

Merci les gars,

çà je l'avais déja fait, je voulais juste caster pour voir apparaitre tout les membres de l'objet lorsque je developpe et pour être sur de ne pas me tromper d'orthographe du membre. C'est vrai que lorsque débuté la discution je n'avais expliqué le pourquoi du comment.

Je connais mieux Java que VB même si je débute également dans Java, mais en java on peut caster pour voir apparaitre les membres d'un objets. je me suis juste demandé si on pouvait faire la meme chose avec l'objet de type tableau et je ne suis pas arrivé a répondre à cette question.

Voilà, j'espère que j'ai réussi à m'expliquer cette fois.

A+

[Sankasssss]

Tu peux faire la même chose bien sur, pour caster utilise cType(ObjetACaster,Type)
ou :
- cStr(ObjetACaster) pour les string
- cInt(ObjetACaster) pour les integer
donc ca donnerais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Sub maSub(ByVal tab As Object)
        For i As Integer = 0 To CType(tab, Array).Length - 1
            MsgBox(CStr(CType(tab, Array).GetValue(i)))
        Next
    End Sub

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Sub maSub(ByVal tab As Object)
        For Each elem As Object In CType(tab, Array)
            MsgBox(CStr(elem))
        Next
    End Sub

bien à toi.