Discussion :

[fleurparis]

Bonjour,

Le problème semble simple mais je ne trouve pas de solution.
Je pars d'une chaîne de caractères composée de x caractères dont je dois mettre un espace tous les 2 caractères:

chaîne_entrée = "ABCDEFGHI"
chhaîne_sortie =""A BC DE FG HI"

Avez-vous une solution à ce problème ?

Merci

[ProgElecT]

Comment extraire une partie d'une chaîne ?
Comment connaitre la longueur d'un chaîne ?
Comment concaténer deux chaînes ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim chaine_entree
Dim chaine_sortie
Dim T
chaine_entree = "ABCDEFGHI"
For T = 1 To Len(chaine_entree) Step 2
    chaine_sortie = chaine_sortie & Mid(chaine_entree, T, 2) & " "
Next
chaine_sortie = Left(chaine_sortie, Len(chaine_sortie) - 1)
'chaîne_sortie = "AB CD EF GH I"
MsgBox chaine_sortie
 
 
chaine_sortie = Left(chaine_entree, 1) & " "
For T = 2 To Len(chaine_entree) Step 2
    chaine_sortie = chaine_sortie & Mid(chaine_entree, T, 2) & " "
Next
chaine_sortie = Left(chaine_sortie, Len(chaine_sortie) - 1)
'chaîne_sortie = "A BC DE FG HI"
MsgBox chaine_sortie

[fleurparis]

Merci pour la réponse.

Est-il possible de simplifier le code en insérant le séparateur " " en commençant la lecture de la chaine_entree par la droite ?

La longueur de la chaine_entrree peut-être paire ou impaire.
La fonction Mid() commence son traitement par la gauche, il faudrait une fonction équivalente qui commence par la droite.

[omen999]

bonjour,

il faudrait une fonction équivalente qui commence par la droite.

tu te compliques la vie...
teste si la longueur de ta chaine est paire ou impaire (par un mod ou un And 1)
si pair, l'algo est bon
si impair, tu traites le 1er caractère et tu utilises l'algo à partir de la position 2

[ProgElecT]

Salut omen999, fleurparis
Il peut aussi y arriver en utilisant StrReverse, se qui ne l'oblige pas a tester la longueur de chaine_entree

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
Dim chaine_entree
Dim chaine_sortie
 '--------------------------- prog. principal--------------------------
chaine_entree = "ABCDEFGHI" ' 9 caractères
AjoutEspaces
MsgBox chaine_sortie
 
chaine_entree = "ABCDEFGHIJKL" ' 12 caractères
AjoutEspaces
MsgBox chaine_sortie
 
'++++++++++++++++++++++++ Routine +++++++++++++++++++++++++++++++++++++
Sub AjoutEspaces()
Dim T
chaine_entree = StrReverse(chaine_entree)'< ******** nouveauté
chaine_sortie = ""
For T = 1 To Len(chaine_entree) Step 2
    chaine_sortie = chaine_sortie & Mid(chaine_entree, T, 2) & " "
Next
chaine_sortie = Left(chaine_sortie, Len(chaine_sortie) - 1)
chaine_sortie = StrReverse(chaine_sortie)'< ******** nouveauté
end sub
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Ou j'ai pas compris, le doute étant que je ne suis pas sûr si chaine_sortie doit systematiquement commencer par une lettre suivit immediatement par un espace ?

[fleurparis]

Merci pour votre aide.