Prendre la valeur d'un combo avant l'espace
vandir59
Messages postés
10
Statut
Membre
-
Polux31 Messages postés 7219 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!
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!
1 réponse
-
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)-
-
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
-
