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

Blasfem Messages postés 20 Date d'inscription lundi 26 août 2002 Statut Membre Dernière intervention 26 avril 2005 - 26 déc. 2002 à 18:02
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 26 déc. 2002 à 19:22
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

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
26 déc. 2002 à 19:22
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
0
Rejoignez-nous