Prendre la valeur d'un combo avant l'espace

vandir59 Messages postés 10 Statut Membre -  
Polux31 Messages postés 7219 Statut Membre -
bonjour,
je programme une application en VB6.
Je voudrais affecter à une variable "dim ref" par exemple, le début d'un combo structuré de la maniére suivante :
"cl001 Dupont"
"cl002 Henri"
Je voudrais donc que ma variable ref soit égal à cl001 et non pas "cl001 Dupont"

Merci pour votre aide!

A voir également:

1 réponse

Polux31 Messages postés 7219 Statut Membre 1 204
 
Bonjour,

Il peut y avoir plusieurs façons de procéder.

La chaine "cl001" ou "cl002" avant l'espace est-elle toujours de la même longueur ? ici la longueur est de 5.

Si oui:
Dim Ref As String

Ref = Mid(Combo1.Text,1,5)

Ou encore :

Ref = Left(Combo1.Text, 5)

;o)
1
vandir59 Messages postés 10 Statut Membre
 
Merci beaucoup !
est ce qu'il y a un moyen de le faire avec une chaine de longueur 5 ou 6 ? le programme peut détecter l'espace et prendre tout ce qu'il y a avant?
0
Polux31 Messages postés 7219 Statut Membre 1 204
 
Function ReturnPrefixe(ByVal chaine As String) As String
Dim i As Long
Dim lg As Long
Dim strChaine As String
Dim str As String

     If chaine = "" Then Exit Function

     lg = Len(chaine)
     For i = 1 To lg
          str = Mid(chaine,i,1)
          If str <> " " Then
               strChaine = StrChaine & str
          Else
               ReturnPrefixe = strChaine
               Exit Function
          End If
     Next i
End Function
0