1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Texte
  5. Vb.net supprimer espace dans string avec gyrophare !

Vb.net supprimer espace dans string avec gyrophare !

Soyez le premier à donner votre avis sur cette source.

Vue 15 734 fois - Téléchargée 312 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
Signaler
Messages postés
117
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
2 juillet 2009
 1
le truc en haut de la voiture de police ;-)

... ici il est en bas du code
c'est le timer qui retir les espace de droit puis de gauche et puis de droite.... etc..
Signaler
Messages postés
113
Date d'inscription
vendredi 5 mars 2004
Statut
Membre
Dernière intervention
11 février 2008
c koi le gyrophare?
Signaler
Messages postés
122
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
2 juillet 2014
Moi c'est le gyrophare lol
Signaler
Messages postés
117
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
2 juillet 2009
 1
Pardon je suis alle trop vite.... j'avais pas vu le Gyrophare ;-)

c'est le "supprimer les espaces", ca me semblait etrange!
Signaler
Messages postés
42
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
19 juillet 2010
Biensur !

Mais pour ceux qui ne connaissent pas left et right ...

sinon c "supprimer les espaces" ou le "gyrophare" qui t'as fait venir voir ma source ???

lol
Afficher les 6 commentaires
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)