| |
| Posté le 12 juin 2007 - 23:56 |
Comment supprimer un nombre inconnu de RC qui se trouvent à la fin d'une chaîne ?
Merci de vos suggestions.
Jean-Pierre |
| |
| |
| | | |
|
| | |
| |
| Posté le 13 juin 2007 - 08:57 |
Bonjour,
j'utilise Remplace pour ce problème :
tx est chaîne=Remplace(SAI_Saisie1,RC,"-") remplace tous les RC de mon champ par des -
Bon dev.
D.Gourdier |
| |
| |
| | | |
|
| | |
| |
| Posté le 13 juin 2007 - 08:57 |
| Se servir de : Position(...) et Caract(...) |
| |
| |
| | | |
|
| | |
| |
| Posté le 13 juin 2007 - 12:21 |
Oui. Merci.
Il faut une combinaison des 2.
Jean-Pierre |
| |
| |
| | | |
|
| | |
| |
| Posté le 13 juin 2007 - 12:46 |
Bonjour,
Voici un code qui permet de supprimer les RC à la fin d'une chaine:
Machaine est une chaîne = "hé"+RC+"voila"+RC+RC+RC
Trace(Machaine)
i est un entier = Taille(Machaine)
TANTQUE Machaine[[i-1 A]] = RC // RC correspond à Caract(13) + Caract(10)
Trace(Machaine+"--"+Machaine[[i-1 A]])
Machaine = Gauche(Machaine,i-2)
i -= 2
FIN
Machaine = Gauche(Machaine,i)
Trace(Machaine)
Bon dev,
Eric |
| |
| |
| | | |
|
| | |
| |
| Posté le 13 juin 2007 - 13:57 |
OK !!
Voila le code parfait !
Merci de cett contribution Eric.
Je l'utilise tout de suite et je le mets de côté.
Bon dev à toi aussi.
Jean-Pierre |
| |
| |
| | | |
|
| | |
| |
| Posté le 13 juin 2007 - 14:15 |
ou, en plus fainéant 
maFonction(local sChaine)
tantque (taille(sChaine) > 2) _et_ (droite(sChaine,2) = rc)
schaine = schaine[[1 à taille(schaine) - 2]]
fin
renvoyer schaine
>Ericdk a écrit :
Bonjour,
Voici un code qui permet de supprimer les RC à la fin d'une chaine:
Machaine est une chaîne = "hé"+RC+"voila"+RC+RC+RC
Trace(Machaine)
i est un entier = Taille(Machaine)
TANTQUE Machaine[[i-1 A]] = RC // RC correspond à Caract(13) + Caract(10)
Trace(Machaine+"--"+Machaine[[i-1 A]])
Machaine = Gauche(Machaine,i-2)
i -= 2
FIN
Machaine = Gauche(Machaine,i)
Trace(Machaine)
Bon dev,
Eric
|
| |
| |
| | | |
|
| | |
| |
| Posté le 13 juin 2007 - 15:29 |
| |
| |
| | | |
|
| | |
| |
| Posté le 13 juin 2007 - 19:04 |
Il se trouve que Jean-Pierre Bloch a formulé :
Comment supprimer un nombre inconnu de RC qui se trouvent à la fin d'une
chaîne ?
Merci de vos suggestions.
Jean-Pierre
Pourquoi cherchez vous à vous compliquer ?
Une seule ligne suffit:
MaChaine=Remplace(MaChaine,RC,"")
C'est tout !!!
--
Eric Laurent
nospam.laurent.systel@wanadoo.fr
(enlever nospam.) |
| |
| |
| | | |
|
| | |
| |
| Posté le 13 juin 2007 - 19:38 |
Bonjour,
Ton code fonctionne pour supprimer tout les RC de la chaine. Mais dans ce cas Jean Pierre souhaite la suppression des RC en fin de chaîne. Voila pourquoi c'est un peu plus compliqué.
Eric |
| |
| |
| | | |
|
| | |