Comment lookbehind négatif pour les caractères spéciaux

Question

Je veux

1. exclure toute phrase qui n'a pas ou pas moins que le non est suivi par deux points ou un point d'interrogation
2. Je veux me débarrasser de toute phrase contenant un point d'interrogation ou un deux-points suivi d'un N ou Non ou non.

texte d'entrée:

N-Acetyl-cysteine used Yes or no?No. 
Acetic acid used Yes or no?Y. 
NBI used Yes or no? Y. 
Diaphragmatic pinch:40cm 
: Y -33cm. 
Inlet patch - Yes or No: N. 
No loss of stain. 

sortie souhaitée

Acetic acid used Yes or no?Y. 
NBI used Yes or no? Y. 
Diaphragmatic pinch:40cm 
: Y -33cm. 

tentative actuelle r:

gsub(".*[Nn][Oo](?![:]|[?]).*?(\\.|\n|:|$)", "", x[, y], perl = T) 

résultats dans:

N-Acetyl-cysteine used Yes or no?No. 
    Acetic acid used Yes or no?Y. 
    NBI used Yes or no? Y. 
    Diaphragmatic pinch:40cm 
    : Y -33cm. 
    Inlet patch - Yes or No: N. 

puis

gsub(".*[Nn][Oo](:|\\?)(\\s*).*?(\\.|\n|:|$)", "", x[, y]) 

résultats dans:

Diaphragmatic pinch:40cm 
: Y -33cm. 

Le premier gsub fonctionne très bien, mais la seconde ne débarrasse pas de obtient trop. Y a-t-il une meilleure manière de faire cela?

Answer 1

Votre deuxième exigence doit inclure un espace facultatif entre le deux-points ou le point d'interrogation et N.

Le regex doit ressembler à

.*(?:no(?![?:])|[?:]\s*N).*\R* 

Voir la regex demo

Détails

• .* - tout 0+ caractères autres que les caractères de saut de ligne
• (?:no(?![?:])|[?:]\s*N) - non -capturer le matchi de groupe d'alternance ng ou l'autre des deux alternatives:
  • no(?![?:]) - no pas suivi avec ? ou :
  • | - ou
  • [?:]\s*N - un ? ou :, 0+ espaces blancs, N
• .* - le reste de la ligne
• \R* - toutes les séquences de rupture de ligne 0+.

L'argument perl=TRUE fait R analyser le motif avec le moteur de regex PCRE, et ignore.case=TRUE argument fait le cas de motif insensible.

Voici le fixed R code:

x <- "N-Acetyl-cysteine used Yes or no?No. 
Acetic acid used Yes or no?Y. 
NBI used Yes or no? Y. 
Diaphragmatic pinch:40cm 
: Y -33cm. 
Inlet patch - Yes or No: N. 
No loss of stain." 
cat(gsub(".*(?:no(?![?:])|[?:]\\s*N).*\\R*", "", x, perl=TRUE, ignore.case=TRUE), sep="\n") 

Sortie:

Acetic acid used Yes or no?Y. 
NBI used Yes or no? Y. 
Diaphragmatic pinch:40cm 
: Y -33cm.