Discussion :

[martsigo]

Voila je cherche à exclure les espaces dans une zone de texte. Aprés avoir consulter la faq et l'aide access a propos de la propriété format je n'ai toujours rien trouvé qui pourrai resoudre mon pb.

Voila un exemple de ce que je veux obtenir :
Dans une zone de texte un utilisateur colle une serie de caractere :
123 345 345 222
Je shouterais que la zone de texte affiche 123345345222

Merci d'avance

[stigma]

tu utilises la fonction MID dans une boucle et tu recherche l'espace CHR(32) par exemple, puis tu reconstruis ta chaîne sans ces espaces.

[martsigo]

je ne vois pas du tout comment tu peux y arriver avec une fonction mid , je ne suis pas un expert , plutot debutant c'est peut etre pour ca !

[stigma]

Code :

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

1
2
3
4
5
6
7
8
For i = 1 to Len(s_texte)
 
    If Mid(s_Texte, i, 1) = chr(32) then
       ........
       .........
    End If
 
Next i

La structure est là.

[denils]

En algorithmie il faut faire ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Pour i de 0 à Len(chaine_source)
 Si chaine_source(i)!="espace"
 "on crée une chaine de destination allouée dynamiquement
  chaine_dest = new int(1)
 " on ajoute en fin de chaine le caractère lu de chaine_source si différent de espace
  chaine_dest[len(chaine_dest)]=chaine_source(i)
Fin si
i++
Fin pour

[martsigo]

je n'arrive pas à faire marcher ton code .

Voila ma structure sur mon formulaire :

il y deux zone de texte , une ( texte68) qui contient la chaine de caractere avec les espaces et la deuxieme (texte66) qui devrait contenir la meme chaine de caractere sans les espaces aprés avoir appuyer sur un bouton . J'ai appliquer ton code sur l'evenement onclik du bouton mais la chaine est copier dans la deuxieme zone de texte uniquement si la premier zone de texte contient des espaces

Comprends pas .
Voila mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For i = 1 To Len(Me.Texte68)
 
    If Mid(Me.Texte68, i, 1) = Chr(32) Then
 
       Texte66 = Texte68
 
    End If
 
Next i

merci

[Petogaz]

salut,

tu as des fonctions qui permettent de supprimer des espaces comme :
RTrim qui permet de supprimer des espaces à droite d'une chaine de caractère. c'est vrai qu'elle ne supprime pas les esapces entre mais il suffit de l'adapter dans ton code pour qu'elle le fasse. voici le code :

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
Dim chaine As String
For i = 1 To Len(Me.Texte68)
        chaine = chaine & RTrim(Mid(Me.Texte0, i, 1))
Next i
Texte66 = chaine
End Sub

voilà c'est tout !

[martsigo]

un grand merci !