Discussion :

[suistrop]

Bonjour,

J'utilise les REGEXP Perl et je suis confronté au probleme suivant :
J'ai une chaine de caractère :var1 var1. W var2 $var2. var3 var5 var5. var6
Je souhaite reperer les mots qui ne sont pas suivi par un mot qui termine par un .
Donc je souhaite repérer ici w var3 var6 afin de les remplacer par du vide et donc les supprimer de ma chaine de caractère.
Et donc avoir ma chaine traitée suivante : var1 var1. var2 $var2. var5 var5.

Je bloque car les regexp me permettent pas de dire ce que veux garder mais uniquement ce que je veux supprimer.

Cordialement,

Suistrop

[CosmoKnacki]

les regexp me permettent pas de dire ce que veux garder mais uniquement ce que je veux supprimer

C'est le début de la sagesse!

Pourquoi ne pas utiliser un test avant négatif ( negative lookahead: non suivi de): (?!.....).

Pense aussi au quantificateur possessif ++ qui interdit au moteur de récupérer des caractères pour tester d'autres solutions.

Avec ça tu devrais t'en sortir.

[suistrop]

Salut CosmoKnacki,

Merci pour ta réponse c'est exactement ca ! Malheureusement, j'utilisais ( negative lookahead: non suivi de): (?!.....) mais la doc que j'ai lu m'a embrouillé sur son utilisation (je pensais que le pattern de ?! devait se trouver dans le pattern avant :/) !!

Si ça intéresse du monde le pattern est : (\w*[^\.]) (?!\$?\w*\.)!!!

Merci !!!


Cordialement,

Suistrop

[CosmoKnacki]

Pas mal, par contre ta pattern ne prend pas var6 s'il est en fin de chaîne (non suivi d'un espace), mais tu peux ajuster ta pattern en ajoutant une alternative:

Code :

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

\w*[^.](?: |$)(?!\$?\w*\.)

(pas besoin d'échapper les caractères spéciaux dans une classe de caractères et le groupe de capture n'est pas utile.)

Moi je pensais plutôt à:

Code :

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

[^\s.]++(?!(?>\s+[^\s.]+)?\.)\s*

(Le terme "mot" est défini comme une suite de caractères qui ne sont ni des caractères blancs, ni un point.) Voir la doc sur les quantificateurs possessifs et les groupes atomiques (possessive quantifiers, atomic groups).

ou une autre méthode plus efficace:

Code :

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

[^\s.]++(?:(?>\s+[^\s.]+)?\.\s*(*SKIP)(*FAIL))?\s*

qui force la pattern à échouer (avec la directive (*FAIL)) quand un mot est suivi d'un autre mot avec un point et qui interdit au moteur de tester à nouveau toutes les positions de la sous-chaîne en question (avec la directive (*SKIP)). Voir la doc sur les "verbes de contrôle du backtracking" (backtracking control verbs).

À noter pour que les trois patterns vont laisser un espace en fin de chaîne si un mot en fin de chaîne est remplacé, il faut donc faire un trim à droite. Autre chose, les "mots" tels qu'ils sont définis ne doivent pas contenir de point.

[suistrop]

Salut CosmoKnacki,

Merci de ton feedback. Je ne peux pas utiliser les ?> dans avec le langage (SAS) que j'ai.
En utilisant ton premier pattern : \w*[^.](?: |$)(?!\$?\w*\.), il fait pas ce que je lui demande :/ à cause de mot commencant par $.

Mon pattern a un peu évolué : (\S*[^\.]) (?!\$?\S*\.)

Je n'ai plus qu'un seul soucis c'est que je n'arrive pas à détecter lorsque dans ma chaine de caractere il y a plusieurs espace entre les mots. J'utilise donc une fonction qui ne laisse que 1 espace au plus entre chaque mot.

Cordialement,

[CosmoKnacki]

Dans ce cas la, une autre approche conviendrait mieux. Elle consiste à chercher d'abord les mots suivis d'un point avec éventuellement le mot précédent, puis ceux qui ne le sont pas. Dans le premier cas on capture tout dans un groupe dans l'autre non.

Code :

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

1
2
machaine = prxchange('s/([^\s.]+(?:\s+[^\s.]+)?\.\s*)|\S+\s*/$1 /', -1, machaine);
machaine = trim(machaine);

[suistrop]

Et bien la ca fonctionnne nickel !

Merci.