Discussion :

[tibofo]

Bonjour,

Je lis un fichier et je stocke une information texte dans la variable EMPLACEMENT. (la valeur lue peut varier de 5 à 80 caractères)

Mais je dois obligatoirement réduire à 69 caractères. Je donc tronquer ma variable MAIS j'aimerais le faire le mieux possible : c'est à dire que je voudrais (avant de tronquer à 69 caract), enlever les espaces à partir du 30ème caractères et ensuite tronquer.

j'ai trouvé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
EMPLACEMENT = Replace(EMPLACEMENT, " ", "")
EMPLACEMENT = Left(EMPLACEMENT, 69)

Mais cela me supprime tous les espaces.

Est-il possible de ne supprimer qu'à partir du 30ème caractère ?

Exemple, j'ai :
"ROUEN LA VILLE AUX CENTS CLOCHERS EST BELLE ET LES HABITANTS SONT CHARMANTS ET JOYEUX"

je voudrais :
"ROUEN LA VILLE AUX CENTS CLOCHERSESTBELLEETLESHABITANTSSONTCHARMANTSE" soit suppression des espaces à partir du 30éme caract. et chaine tronquée au 69ème

Merci

[pc75]

Bonjour,

Une idée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Debut = Left(EMPLACEMENT, 30)
Fin = Mid(EMPLACEMENT, 31)
Fin = REPLACE(Fin, " ", "")
Chaine = Debut & Fin
Chaine = Left(Chaine, 69)

[OhMonBato]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim a As String
a = "ROUEN LA VILLE AUX CENTS CLOCHERS EST BELLE ET LES HABITANTS SONT CHARMANTS ET JOYEUX"
a = Left(Left(a, 30) & Replace(Mid(a, 31), " ", ""), 69)
Debug.Print a

[tibofo]

Merci à vous 2, cela marche parfaitement
J'ai appliqué la première solution.