J'avais besoin d'une fontion qui me supprime les espaces dans une string ...
Je vous la met également à disposition...
Source / Exemple :
Dim FlagB As Boolean
'Fonctions utilisés :
'--------------------
'InStr : Combien d'espaces sont dans ma string
'InStreRev : Retour la place du 1er espace en partant de la droite
'Left : retourne une string coupée a partir de la gauche
'Right : retourne une string coupée a partir de la droite
Function SupprimeEspace(ByVal Phrase As String)
Dim ChercheCaratere As String = " "
Dim strDroite As String
Dim strGauche As String
Do While Microsoft.VisualBasic.InStr(Phrase, " ") <> 0
Dim PlaceEspace As Integer = InStrRev(Phrase, " ")
strGauche = Microsoft.VisualBasic.Left(Phrase, PlaceEspace - 1)
strDroite = Microsoft.VisualBasic.Right(Phrase, Len(Phrase) - PlaceEspace)
Phrase = strGauche & strDroite
Loop
Return Phrase
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox2.Text = SupprimeEspace(Me.TextBox1.Text)
FlagB = True
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
'Gyrophare
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If FlagB = True Then
FlagB = False
Me.TextBox2.ForeColor = System.Drawing.Color.Black
Else
FlagB = True
Me.TextBox2.ForeColor = System.Drawing.Color.Red
End If
End Sub
Conclusion :
Avec un gyrophare !!!! lol (<-- dans le zip !)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.