Il y a t'il une facon simple de pouvoir utiliser des guillements dans une chaine sans la découper et la reconstituer ?
Merci
c'est tout bête mais comme c'est prise de tête, on fait une fonction ... car s'il faut réfléchir maintenant, autant changer tout de suite de métier !
FONCTION Entre_Guillemet(pCh,suprespace=Vrai) // 1. Double les Guillemet dans la chaine // 2. Entoure avec des Guillemet
Pos est un entier Ch est une chaîne
SI suprespace ALORS Ch=SansEspace(pCh) SINON Ch=pCh FIN
Pos=Position(Ch,Caract(34)) TANTQUE Pos>0 Ch=Gauche(Ch,Pos-1)+Caract(34)+Caract(34)+Milieu(Ch,Pos+1) Pos=Position(Ch,Caract(34),Pos+2) FIN
RENVOYER Caract(34)+Ch+Caract(34)
-- Eric Roumégou http://cerbermail.com/?TSoulBerPA (cliquez sur le lien ci-dessus pour me contacter en privé)
Carlos Lobo
Roumegou Eric a couché sur son écran :
Jean-Luc Baptiste vient de nous annoncer :
Bonjour,
Il y a t'il une facon simple de pouvoir utiliser des guillements dans une chaine sans la découper et la reconstituer ?
Merci
c'est tout bête mais comme c'est prise de tête, on fait une fonction ... car s'il faut réfléchir maintenant, autant changer tout de suite de métier !
FONCTION Entre_Guillemet(pCh,suprespace=Vrai) // 1. Double les Guillemet dans la chaine // 2. Entoure avec des Guillemet
Pos est un entier Ch est une chaîne
SI suprespace ALORS Ch=SansEspace(pCh) SINON Ch=pCh FIN
Pos=Position(Ch,Caract(34)) TANTQUE Pos>0 Ch=Gauche(Ch,Pos-1)+Caract(34)+Caract(34)+Milieu(Ch,Pos+1) Pos=Position(Ch,Caract(34),Pos+2) FIN
RENVOYER Caract(34)+Ch+Caract(34)
Pourquoi ne pas faire comme ça: FONCTION Entre_Guillemet(pCh,suprespace=Vrai) // 1. Double les Guillemet dans la chaine // 2. Entoure avec des Guillemet SI suprespace ALORS RENVOYER Caract(34)+SansEspace(Remplace(pCh,caract(34),caract(34)+caract(34)))+Caract(34) SINON RENVOYER Caract(34)+Remplace(pCh,caract(34),caract(34)+caract(34))+Caract(34) FIN
@++
-- ^^ le désinterressement m'intéresse ^^
Roumegou Eric a couché sur son écran :
Jean-Luc Baptiste vient de nous annoncer :
Bonjour,
Il y a t'il une facon simple de pouvoir utiliser des guillements dans une
chaine sans la découper et la reconstituer ?
Merci
c'est tout bête mais comme c'est prise de tête, on fait une fonction ... car
s'il faut réfléchir maintenant, autant changer tout de suite de métier !
FONCTION Entre_Guillemet(pCh,suprespace=Vrai)
// 1. Double les Guillemet dans la chaine
// 2. Entoure avec des Guillemet
Pos est un entier
Ch est une chaîne
SI suprespace ALORS
Ch=SansEspace(pCh)
SINON
Ch=pCh
FIN
Pos=Position(Ch,Caract(34))
TANTQUE Pos>0
Ch=Gauche(Ch,Pos-1)+Caract(34)+Caract(34)+Milieu(Ch,Pos+1)
Pos=Position(Ch,Caract(34),Pos+2)
FIN
RENVOYER Caract(34)+Ch+Caract(34)
Pourquoi ne pas faire comme ça:
FONCTION Entre_Guillemet(pCh,suprespace=Vrai)
// 1. Double les Guillemet dans la chaine
// 2. Entoure avec des Guillemet
SI suprespace ALORS
RENVOYER
Caract(34)+SansEspace(Remplace(pCh,caract(34),caract(34)+caract(34)))+Caract(34)
SINON
RENVOYER
Caract(34)+Remplace(pCh,caract(34),caract(34)+caract(34))+Caract(34)
FIN
Il y a t'il une facon simple de pouvoir utiliser des guillements dans une chaine sans la découper et la reconstituer ?
Merci
c'est tout bête mais comme c'est prise de tête, on fait une fonction ... car s'il faut réfléchir maintenant, autant changer tout de suite de métier !
FONCTION Entre_Guillemet(pCh,suprespace=Vrai) // 1. Double les Guillemet dans la chaine // 2. Entoure avec des Guillemet
Pos est un entier Ch est une chaîne
SI suprespace ALORS Ch=SansEspace(pCh) SINON Ch=pCh FIN
Pos=Position(Ch,Caract(34)) TANTQUE Pos>0 Ch=Gauche(Ch,Pos-1)+Caract(34)+Caract(34)+Milieu(Ch,Pos+1) Pos=Position(Ch,Caract(34),Pos+2) FIN
RENVOYER Caract(34)+Ch+Caract(34)
Pourquoi ne pas faire comme ça: FONCTION Entre_Guillemet(pCh,suprespace=Vrai) // 1. Double les Guillemet dans la chaine // 2. Entoure avec des Guillemet SI suprespace ALORS RENVOYER Caract(34)+SansEspace(Remplace(pCh,caract(34),caract(34)+caract(34)))+Caract(34) SINON RENVOYER Caract(34)+Remplace(pCh,caract(34),caract(34)+caract(34))+Caract(34) FIN
@++
-- ^^ le désinterressement m'intéresse ^^
Roumegou Eric
Carlos Lobo a écrit :
Pourquoi ne pas faire comme ça: FONCTION Entre_Guillemet(pCh,suprespace=Vrai) // 1. Double les Guillemet dans la chaine // 2. Entoure avec des Guillemet SI suprespace ALORS RENVOYER Caract(34)+SansEspace(Remplace(pCh,caract(34),caract(34)+caract(34)))+Caract(34) SINON RENVOYER Caract(34)+Remplace(pCh,caract(34),caract(34)+caract(34))+Caract(34) FIN
@++
Parce que cette fonction était tellement vieille qu'elle date d'avant l'arrivée de la fonction Remplace...
Comme quoi il faudrait toujours revoir son code :D
-- Eric Roumégou http://cerbermail.com/?TSoulBerPA (cliquez sur le lien ci-dessus pour me contacter en privé)
Carlos Lobo a écrit :
Pourquoi ne pas faire comme ça:
FONCTION Entre_Guillemet(pCh,suprespace=Vrai)
// 1. Double les Guillemet dans la chaine
// 2. Entoure avec des Guillemet
SI suprespace ALORS
RENVOYER
Caract(34)+SansEspace(Remplace(pCh,caract(34),caract(34)+caract(34)))+Caract(34)
SINON
RENVOYER
Caract(34)+Remplace(pCh,caract(34),caract(34)+caract(34))+Caract(34)
FIN
@++
Parce que cette fonction était tellement vieille qu'elle date d'avant
l'arrivée de la fonction Remplace...
Comme quoi il faudrait toujours revoir son code :D
--
Eric Roumégou
http://cerbermail.com/?TSoulBerPA
(cliquez sur le lien ci-dessus pour me contacter en privé)
Pourquoi ne pas faire comme ça: FONCTION Entre_Guillemet(pCh,suprespace=Vrai) // 1. Double les Guillemet dans la chaine // 2. Entoure avec des Guillemet SI suprespace ALORS RENVOYER Caract(34)+SansEspace(Remplace(pCh,caract(34),caract(34)+caract(34)))+Caract(34) SINON RENVOYER Caract(34)+Remplace(pCh,caract(34),caract(34)+caract(34))+Caract(34) FIN
@++
Parce que cette fonction était tellement vieille qu'elle date d'avant l'arrivée de la fonction Remplace...
Comme quoi il faudrait toujours revoir son code :D
-- Eric Roumégou http://cerbermail.com/?TSoulBerPA (cliquez sur le lien ci-dessus pour me contacter en privé)
