decouper le contenu d'un champ

Le
lou
bonsoir

un peux d'aide svp
j'ai un champ texte qui peux contenir ce genre de truc
ex dupond jaques
gatage alfred sa
abc leasig nv

ce que je voudrais faire c'est d'inserer le mot
avant le premier espace dans le champ A
et tout les mots apres le premier espace dans le champ B

MERCI pour votre aide
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
François Picalausa
Le #14757391
Bonjour/soir,

Tu peux trouver la position de l'espacement à l'aide de Instr:
Dim SepPos As Long
Const MyText = "gatage alfred sa"

SepPos = Instr(1, MyText, " ")

Pour découper ta chaine, tu peux utiliser Mid$ et Left$:
If SepPos Then 'On vérifie qu'il y avait bien un séparateur
Text1.Text = Left$(MyText, SepPos - 1)
Text2.Text = Mid$(MyText, SepPos + 1)
End If

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lou" news:406f26df$0$2015$
bonsoir

un peux d'aide svp
j'ai un champ texte qui peux contenir ce genre de truc
ex dupond jaques
gatage alfred sa
abc leasig nv

ce que je voudrais faire c'est d'inserer le mot
avant le premier espace dans le champ A
et tout les mots apres le premier espace dans le champ B

MERCI pour votre aide


lou
Le #14644491
parfait comme toujours
merci

"François Picalausa" #
Bonjour/soir,

Tu peux trouver la position de l'espacement à l'aide de Instr:
Dim SepPos As Long
Const MyText = "gatage alfred sa"

SepPos = Instr(1, MyText, " ")

Pour découper ta chaine, tu peux utiliser Mid$ et Left$:
If SepPos Then 'On vérifie qu'il y avait bien un séparateur
Text1.Text = Left$(MyText, SepPos - 1)
Text2.Text = Mid$(MyText, SepPos + 1)
End If

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"lou" news:406f26df$0$2015$
> bonsoir
>
> un peux d'aide svp
> j'ai un champ texte qui peux contenir ce genre de truc
> ex dupond jaques
> gatage alfred sa
> abc leasig nv
>
> ce que je voudrais faire c'est d'inserer le mot
> avant le premier espace dans le champ A
> et tout les mots apres le premier espace dans le champ B
>
> MERCI pour votre aide




Publicité
Poster une réponse
Anonyme