Vb.net supprimer espace dans string avec gyrophare !

Soyez le premier à donner votre avis sur cette source.

Vue 15 526 fois - Téléchargée 264 fois

Télécharger le projet
Commenter

Description

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 !)
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de jmenfous
S'inscrire maintenant

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.

Du même auteur (beetsy)