1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Séparation chaine de caractères

Résolu
Signaler
Messages postés
18
Date d'inscription
dimanche 20 janvier 2008
Statut
Membre
Dernière intervention
12 avril 2008
 -
Messages postés
18
Date d'inscription
dimanche 20 janvier 2008
Statut
Membre
Dernière intervention
12 avril 2008
 -
Bonjour à tous !


J'ai une chaine de caractère composée de variables séparées par un tiret - : 1254-2004 ou 45689-6587...


En fait je souhaite fractionner ces  chaines :


var1 = 1254

var2 = 2004


J'ai commencé avec ça, mais... :


    Dim Lon, Cpt As Integer

   

    Lon = Len(DesOf)

    Cpt = 1

    OfOr = ""

    OfDest = ""

   

    For Cpt = 1 To Lon + 1

        If Right(Left(DesOf, Cpt), 1) = "-" Then

       

        Else

        OfOr = OfOr & Right(Left(DesOf, Cpt), 1)

        MsgBox OfOr

        End If

    Cpt = Cpt + 1

    Next


Comment faire?


Merci de votre aide...

5 réponses

Réponse 1 / 5
Messages postés
14845
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
16 janvier 2022
 160
Bonjour

Regardes la fonction Split.

Nous captons le cockpit coupable qui a capoté
VB (6, .NET1&2), C++, C#.Net1
Mon site
Réponse 2 / 5
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 58
Salut,
Pas mieux

@+: Ju£i?n
Pensez: Réponse acceptée
Réponse 3 / 5
Messages postés
18
Date d'inscription
dimanche 20 janvier 2008
Statut
Membre
Dernière intervention
12 avril 2008
Comment la fonction retourne t-elle les valeurs dans les variables?

J'ai essayé ce matin, sans succès...

Merci.
Réponse 4 / 5
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 58
Re,
Regarde sur la MSDN sur le NET tu trouveras rapidement la solution
Ou bien en effectuant une recherche dans le forum

@+: Ju£i?n
Pensez: Réponse acceptée
Réponse 5 / 5
Messages postés
18
Date d'inscription
dimanche 20 janvier 2008
Statut
Membre
Dernière intervention
12 avril 2008
Trouvé, merci.
Répondre Posez votre question