Discussion :

[tavekapaclike1er]

Salut à tous!

Je voudrais supprimer tous les espaces d'une chaine.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub text_licence_ajouter_LostFocus()
While InStr(1, text_licence_ajouter.Text, "  ") <> 0
    text_licence_ajouter = Replace(text_licence_ajouter, "  ", "")
 
Wend
text_licence_ajouter.Text = Trim(text_licence_ajouter)
 
end sub

Ce code me permet de supprimer le premier espace mais pas les autres, pourquoi ?

Je vous remercie d'avance pour les solutions que vous pourrez me suggérer.

[ar_men]

c peut etre pas le plus rapide

Code :

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

1
2
3
4
5
6
7
8
9
10
machaine_avant
machaine_apres = ""
a= ""
 
for i = 1 to len(machaine_avant)
a=mid(machaine_avant,i,1)
if i<>" " then
machaine_apres=machaine_apres + a
end if
next i

[ar_men]

erreur de frappe sur mes précédent c pas
i <>" " mais a bien sur
éventuellement asc(a) <> 32

[SfJ5Rpw8]

Salut à tous!

Je voudrais supprimer tous les espaces d'une chaine.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
Private Sub text_licence_ajouter_LostFocus()
While InStr(1, text_licence_ajouter.Text, "  ") <> 0
    text_licence_ajouter = Replace(text_licence_ajouter, "  ", "")
 
Wend
text_licence_ajouter.Text = Trim(text_licence_ajouter)
 
end sub

Ce code me permet de supprimer le premier espace mais pas les autres, pourquoi ?

Je vous remercie d'avance pour les solutions que vous pourrez me suggérer.

tu utilise mal la fonction replace.... :

Code :

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

1
2
3
Private Sub text_licence_ajouter_LostFocus()
text_licence_ajouter.Text = Replace(text_licence_ajouter.Text , "  ", "")
end sub

[zazaraignée]

Salut

Un petit exemple avec l'utilisation de Split, Join et une boucle For... Next

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
Private Sub Command1_Click()
    If Text1.Text <> "" Then
        ' variables
        Dim texte As String   ' pour construire la nouvelle chaine
        Dim mots() As String  ' pour séparer la chaine
        Dim i As Integer      ' compteur
        ' séparer la chaîne en un tableau de mots
        mots() = Split(Text1.Text)
        ' construire la chaine sans les espaces
        For i = 0 To UBound(mots)
            texte = texte & mots(i)
        Next i
        ' afficher la nouvelle chaîne
        Text1.Text = texte
        ' reconstruire la chaîne avec les espaces
        texte = Join(mots)
        Label1.Caption = texte  ' et l'afficher
    End If
End Sub