Retirer espaces dans une chaine

Bonjour!

Dans la plupart de mes programmes, j'ai besoin d'importer des fichiers textes pour faire du traitement dessus.
Seulement voilà, l'espacement entre les mots varie entre 1 espace et 7 espaces et je n'en veut qu'un seul donc je fais des Remplace(MaChaine," ", " ") etc. vous avez compris le principe je pense.
Je trouve ça horripilant et complètement dégueulasse.

Y-a-t'il une autre alternative qui m'aurait échappé?

Merci par avance,

Bonjour

Tes chaines dans ton fichier ont-ils des séparateurs ? genre ;

Autrement tu as la fonction SansEspace();

-> https://doc.pcsoft.fr/?3024034&verdisp=200

Absolument pas, ce sont des documents "classiques" (facture, bon de commande, etc.)
Et il ne me faut pas retirer tous les espaces, seulement avoir un espacement max de 1...

Et bien puisque tu parles de factures, bons de commandes.. Toutes ces données que tu inscris dans ton fichier txt, elles émanent bien d'une BDD non ?

Bonjour,

@Mr Ananas

Citation:

---

Et bien puisque tu parles de factures, bons de commandes.. Toutes ces données que tu inscris dans ton fichier txt, elles émanent bien d'une BDD non ?

---

Clairement non, puisqu'il importe des fichiers texte, il ne les exporte pas.

@SuddenDeathMTFK:

Il n'y a malheureusement pas de solutions miracle pour ce genre de chose, si ce n'est de le faire avec des Remplace(). Sache tout de même qu'à la fonction Remplace tu peux lui passer un tableau d'éléments à remplacer

Code:

---

Remplace(MaChaine,[" "," "," ", " "," "," "," "]," ")

---

Remplace(MaChaine," ", " ")

Ce qui permet de remplacer deux espaces par 1 seul.
Tant que l'instruction rencontrera deux espaces elle en laissera un seul.
Et voilà.

Citation:

---

Envoyé par serendib

Remplace(MaChaine," ", " ")

Ce qui permet de remplacer deux espaces par 1 seul.
Tant que l'instruction rencontrera deux espaces elle en laissera un seul.

---

Il faut donc bien penser à appeler la procédure en boucle, tant qu'il existe une suite de 2 espaces.

Code:

---

1 2 3 4 5

sChaine est une chaine = "chaîne à traiter" TANTQUE sChaîne [=] " " sChaîne = Remplace(sChaîne, " ", " ") FIN

---