Jeromedu79120
Messages postés dimanche 9 janvier 2011Date d'inscription
23 décembre 2012
Dernière intervention
-
1 mars 2011 à 09:26 - Dernière réponse : cs_ShayW3238
Messages postés jeudi 26 novembre 2009Date d'inscription
14 mars 2018
Dernière intervention
- 1 mars 2011 à 11:49
Dim str As String
Dim lettres() As String
Dim countlettre As Integer
str = "toto"
countlettre = 0
For Each lettre As Char In str
ReDim Preserve lettres(countlettre)
lettres(countlettre) = lettre
countlettre += 1
Next
le split ici ne marche il faut un char delimiter
entre chaque lettre
par ex T*O*T*0
La méthode ToCharArray de la classe String joue exactement ce rôle (à ceci près qu'elle renvoie un tableau de Char plutôt qu'un tableau de String)
Une autre option serait d'utiliser la méthode de ShayW en utilisant une List(Of String) (les ReDim Preserve c'est limite obsolète mais surtout couteux comme opération) et s'il faut vraiment un tableau en sortie de boucle faire
Dim tableau As String() = maListe.ToArray()
Une dernière façon si tu utilises au moins la version 3.0 du framework serait d'utiliser LINQ
Dim str As String = "salut"
Dim tableau As String() = str.Select(Function(c) c.ToString()).ToArray()
Pas certain de l'utilité ici, mais à signaler tout de même.
Ah sinon je viens d'y penser utiliser la méthode de ShayW mais au lieu de s'embeter avec des ReDim Preserve, autant créer un tableau de la bonne taille dès le début (on la connait c'est la longueur de la chaine)
Dim str As String = "salut"
Dim lettres As String() = new String(str.Length - 1) {}
a aidé 96 internautes ce mois-ci