Parcourir chaine de caractere

Question

Bonsoir,
J'ai ine chaine de charactere (string)  qui prend le format suivant
Dim chaine as String
chaine= numero &  "-" nom  & " " & prenom
 de telle façon que:
numero est un entier (integer)
nom est un chaine de caractères (string)
prenom est un chaine de caractères (string)

exemple: chaine="1- jean pierre"  ( dans cet exemple  numero="1" , nom ="jean"  prenom="piere" )

j'aimerai créer une fonction qui me permet de retourner le champ numero de ma chaine de caractere sachant que numero peut être constitué de plusieur chiffres.

Merci d'avance pour votre aide.

The Meteorologist · Answer

Je n'ai pas le courage de coder une fonction toute faite et puis c'est pas trop l'esprit de vbfrance. A ta place je me renseignerais sur la fonction Mid() qui permet de découper une chaîne à un endroit précis, le tout dans une boucle et ça doit pas être bien compliqué.

Exemple :
Mid("1- jean pierre", 1, 1") 'retourne "1"
Mid("1- jean pierre", 4, 4") 'retourne "jean"
Mid("1- jean pierre", 9, 6") 'retourne "pierre"

++

jocker132 · Answer

Oui mais c'est juste un exemple car je pourrai avoir
chaine="123-Michel Vaillant"
ou encore
chaine="59831-Alanis Morisette"

Donc le numero peut comporte un nombre indétérminé de chiffres.
Et je voudrais savoir comment je vais faire pour le récuperer d'une manière générale.
Merci d'avance pour votre aide précieuse;

The Meteorologist · Answer

Oui bien par exemple :

Je n'ai pas VB6 sous la main, mais tu peux faire ça assez facilement dans un boucle :

Dim i as integer = 1
Dim c as String = ""
Dim num as String
Dim maChaine = "59831-Alanis Morisette"

Do
    num = num & c 
    c = mid(maChaine, i, 1)
    i = i + 1
Loop until c = "-"

De cette manière tu devrais récupérer le numéro dans la variable num. En l'adaptant tu peux récupérer les autres éléments de la chaîne.

The Meteorologist · Answer

Allez soyons fous :

        Dim i As Integer = 1
        Dim c As String = ""
        Dim num As String = ""
        Dim nom As String = ""
        Dim prenom As String = ""
        Dim maChaine = "59831-Alanis Morisette"

        Do
            num = num & c
            c = Mid(maChaine, i, 1)
            i = i + 1
        Loop Until c = "-"

        c = ""

        Do
            nom = nom & c
            c = Mid(maChaine, i, 1)
            i = i + 1
        Loop Until c = " "

        Do
            prenom = prenom & c
            c = Mid(maChaine, i, 1)
            i = i + 1
        Loop Until i = Len(maChaine) + 2


Fait à la va-vite sans VB6 mais cela devrait fonctionner ;) 

++

jocker132 · Answer

Merci beaucoup celà répond exactement à ma question.
Merci infiniment

pile_poil · Answer

bonjour

pour extraire juste le numero il y a quand meme plus simple  ! 

numero = val(chaine) 

maintenant pour tout extraire comme le fait  The Metorologist on peut utiliser  Split ce qui fera un code un poil plus léger et rapide ! 

a = split (chaine,"-")
numero = a(0)
b = split(a(1)," ")
nom = b(0)
prenom = b(1)

[reglement.aspx ]si c'est la solution, penser : REPONSE ACCEPTEE

Mikaels35 · Answer

Salut

Et pourquoi pas faire simple quand on le peut:

Dim c As String, num As String

c =  "123-jean pierre"
num = Left$(c, InStr(1, c, "-") - 1)

@+

Parcourir chaine de caractere

7 réponses

Votre réponse

Discussions similaires