tableau de char + liste le contenu !Résolu

Question

Bonjour,

Je suis sous vs2003 et vb net 

et j'apprends le vb net !

j'ai donc un tableau de char :

 

Private tabChar() 
As
Char = {"", ":", "", ".", "*", "|", ">", "<", "!", "?", "@", "&", "%", ",", ";"}

J'aimerais pouvoir mettre le contenu de ce tableau dans une variable et l'affichier dans un msgbox 

voila ce que j'ai fait mais cela ne marche pas !

Function

 listeBadCharacter()

Dim c 
As
Char

for
each(c 
in tabChar)c += c & " "

NextMsgBox(c)

End
Function

Qd je lance il me dit :
expression is a value therefore cannot be the target to assignement !

Si quelqu'un a une idee de comment faire pour lister un tableau de char je suis preneur !
Merci
Christophe

jrivet · Accepted Answer

salut,
Il ne rentre pas car ceci (For i = 0 To i < tabChar.Length ) a l'air faux (enfin peu etre que cela fonctionne en .NET)

cela ressemble a un mix entre un FOR et un DO (WHILE)
Peu etre qu avec For i = 0 To tabChar.Length  cela marcherait mieux 

@+, Julien
Pensez: Règlement/STRONG>

jrivet · Answer

Salut, (je ne fais pas de .NET) Mais toutefois je pense que le problème viens de cette ligne c+= c & " " Pour voir le resultat complet je pense qu'il te faut une variable de type string Function listeBadCharacter() Dim c As Char Dim Contenu As String For Each c In tabChar Contenu += Contenu & c & " " Next Call MsgBox(Contenu) End Function Coloration syntaxique automatique [AFCK] @+, Julien Pensez: Règlement/STRONG>

cs_drahcir · Answer

Salut,

Contenu &= c & " "

C'est normal que ça plante, tu essaies d'ajouter plusieurs char dans un e variable char. Ta variable 'destination' doit être de type String. De plus, si tu mets +=, tu n'as pas besoin de remettre ta variable après.
Soit c +"...." , soit c c + "...."

<hr />
@+

cs_jimmy69 · Answer

Salut a vous deux,

si je fais cela et que je l'appele j'ai une page enorme qui s'"affiche avec mes caracteres mais par milliers alors que mon tableau fait + - 20 caracteres !!!

Function listeBadCharacter() 
Dim c As Char 
Dim Contenu As String 
For Each c In tabChar 
Contenu +=  Contenu & c & " " 
Next 
Call  MsgBox (Contenu) 
End Function 

Alors apres recherche afin d'apprendre un peu quand meme ;-) j'ai essaye une boucle for :

Private

Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click

Dim c 
As
Char

Dim i 
As Int16

Dim Contenu 
As
String

' For Each c In tabChar Next

For i  = 0 
To i < tabChar.Length 
c = tabChar(i)

Contenu &= c & " "

Next iMsgBox(Contenu)

End
SubMais si je clique sur mon bouton mon msgbox est vide ! y'a rien qui s'affiche !!!
bon je continue a creuser mais je vois pas pourquoi !

Christophe

cs_drahcir · Answer

je viens de tester çà et ça marche trés bien :








Dim
 c 

As



Char






Dim
 i 

As



Integer






Dim
 Contenu 

As



String






For



Each
 c 

In
 tabChar   Contenu &= c & " "


Next

MsgBox(Contenu)


Avec ta boucle for, ça ne marche pas parce que tu ne rentres pas à l'intérieur de ta boucle...











<hr />

@+

cs_drahcir · Answer

Tout à fait, et plus précisement :



For



 i = 0 

To
 tabChar.Length - 1   Contenu &= tabChar(i) & " "


NextCa fonctionne trés bien aussi









<hr />

@+

cs_jimmy69 · Answer

re vous deux,

veuillez m'excuser pour l'erreur dans ma boucle mais j'ai fait un peu de c il y'a quelques annees :-(

ca tourne bien impeccable !

je vous remercie et vous souhaite un bon week end
Christophe

Tableau de char + liste le contenu !

7 réponses

Votre réponse

Discussions similaires