Découpage d'un champ texte, en 2 champs en tenant compte de la découpe

Messages postés
20
Date d'inscription
lundi 26 août 2002
Statut
Membre
Dernière intervention
26 avril 2005
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
Bonjour,

J'ai un champ texte de 70 caractères maxi.
Mais ce champ est trop long, j'ai besoin de le découper en 2 champs de 38 caractères. Le truc c'est que comme ces champs servent à un affichage télématique, la découpe des mots doit être cohérente, afin d'en faciliter la lecture.

Chaine à découper = Champ1 & Champ2 (pour résumer c'est ça ...)

Merci à ceux qui peuvent m'indiquer une méthode simple

%-6

1 réponse

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Tu fais un truc du genre
For i = 36 to len(Chaîne_à_découper) ' ou 35 ou 37 ...
If Mid(Chaîne_à_découper,i,1) = " " Then 'espace
Champ1 = Left(Chaîne_à_découper, i - 1)
Champ2 = Mid(Chaîne_à_découper, i + 1)
Exit For
End If
Next i