Extrction de caractères dans plusieurs TextBox vb6 left...Résolu

Question

Bonjour,

Je souhaite créer un code client automatiquement en utilisant les 3 1er caractères du nom, de la ville et du département de cette façon: 

Nom: BOURVIL
Ville: Maubeuge
CodePostal: 59260

Donc: BOUMAU59

Je teste sur VBA EXCEL avec la fonction LEFT, N°Car etc et cela foncionne bien mais petite différence avec VB6 LEFT("CHAINE",0,3) = "AutreChose"

For NumEnreg = 1 To NumRows
Get #1, NumEnreg, VarEnreg
    If Trim(VarEnreg.ChampNom) = Trim(liste_nom) Then
                    txt_code_client = Trim(VarEnreg.ChampNom) & Trim(VarEnreg.ChampVille) & Trim(VarEnreg.ChampCodePostal) & Trim("-") & Trim(NumEnreg)

En concaténant de cette façon, je n'arrive pas à trouver de solution
pour l'extraction. J'ai la Bilble de VB6 mais malheureusement pas
facile de m'y retrouver. 
Quelqun pourrait-il me mettre sur la voie s'il
vous plaît ?
Je n'ai pas trouvée d'équivalent sur le forum, enfin pas certaine d'avoir compris.
Licence de VB.NET encore trop chère pour cette année.
Je vous remercie de m'éclairer SVP.

@pluche

Nadia

cs_ghuysmans99 · Accepted Answer

Function
DecomposeCode(ByVal Pack As String, Nom As String, Ville As String, CP As String) As Boolean
'Returns FALSE if OK, otherwise TRUE
'Returne FALSE si OK, sinon TRUE
If Len(Pack) <> 8 Then
 DecomposeCode = True
 Exit Function
End If
Nom = Left(Pack, 3)
Ville = Mid(Pack, 4, 3)
CP = Right(Pack, 2)
End Function ,

----

Syntax color by Renfield

AndreBourvil · Answer

Bonsoir,

Merci c'est super !

@+

Extrction de caractères dans plusieurs TextBox vb6 left...

2 réponses

Votre réponse

Discussions similaires