Discussion :

[dv-2008]

svp je voudrais supprimer les Espace d'une chaine donner mais je ne sais pas se qui cloche dans le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
  Dim A, B, C As String
        Dim i As Integer
        A = TextBox1.Text
        For i = 1 To A.Length
            B = Mid(A, i, 1)
            If B = "" Then
                C = Mid(A, 1, i - 1) & Mid(A, i + 1, A.Length - i)
            End If
        Next
        TextBox1.Text = C

[olsimare]

Bonjour.

2 choses clochent :

Code :

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

1
2
If B=" " then

Et puis pourquoi s'embêter :

Code :

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

1
2
3
 
Dim strTest As String = "RTT KLKL LJLK LKJLK"
strTest = Replace(strTest, " ", "")

Cdt.

[dv-2008]

Merci de m'avoir aider finalement vaut mieux utiliser les fonctions predefinies au lieu de se casser la téte
bonne soirée