ajouter un caractére entre chaque caractére d'une chaine stringRésolu

Question

Voila je ne suis pas un pro, et je voudrai savoir comment je peux ajouter un caract&#233;re (une virgule par exemple) entre chaque caract&#233;re d'une variable de type string.

ou si je peux remplir un tableau dont chaque case est une lettre d'un string

je suis pas clair voici un exemple:

ma variable contient la phrase suivante

les voitures rouges vont plus vite

et je voudrai la mettre dans un tableau ( une lettre par case)

l|e|s| |v|o|i|t|u|r|e|s| |r|o|u|g|e|s| |v|o|n|t| |p|l|u|s| |v|i|t|e|

je sais d&#233;ja faire un tableau avec un mot par case (avec la fonction split) mais je ne sais pas le faire avec une lettre par case, cela ne doit pas &#234;tre bien difficile; mais je d&#233;bute c'est pas &#233;vident.

merci

crenaud76 · Accepted Answer

Pardon pour la présentation du précédent post ... foutue Freetextbox ...

Dim Phrase As String
Dim L as Long, i As Long
Dim T() as String
Phrase = "Les voitures ..."
L = Length(Phrase)
Redim T(1 To L)
For i = 1 To L 
  T(i) = Mid$(Phrase,i,1)
Next

Christophe R

crenaud76 · Answer

Dim Phrase As String
Dim L as Long, i As Long
Dim T() as String

Phrase = "Les voitures ..."
L = Length(Phrase)
Redim T(1 To L)
For i = 1 To L
  T(i) = Mid$(Phrase,i,1)
Next

Christophe R

Utilisateur anonyme · Answer

merci

entre temps j'avais trouv&#233; une solution &#233;quivalente:

voici un extrait de mon code:

' routine pour metre le fichier converti dans un tableau
ReDim tableau(Len(converti))
For i = 1 To Len(converti)
    tableau(i) = Asc(Mid(converti, i, 1))
Next

puis je r&#233;cup&#232;re le caract&#233;re avec : Chr( tableau(n)) ou (n) d&#233;signe la case du tableau que je veux extraire

encore merci
cau'X

crenaud76 · Answer

Pourquoi convertir le caractèr en code ascii pour le reconvertir ensuite en caractère ??

Christophe R

Ajouter un caractére entre chaque caractére d'une chaine string

4 réponses

Discussions similaires