Discussion :

[jack-no]

Bonsoir à tous,
J'ai beau lire des docs là dessus, je ne comprends toujours pas bien comment fonctionne ces fameuses expressions régulières;
Mon problème est le suivant, j'ai le texte:
"mardi : Fabrice (Dispo)"
"lundi : Josianne (Occ)"
Je souhaiterais récupérer les prénoms "Fabrice" et "Josianne";

Quelqu'un peut-il m'aider svp?

Ps: Si vous connaissez un site où il y a de nombreux exemples je suis preneur. Merci

[mamounMob]

pour le lien : http://ciam.inra.fr/r4ciam/node/148


pour le code

Code :

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

1
2
3
 
ch <- c("mardi : Fabrice (Dispo)", "lundi : Josianne (Occ)")
gsub(pattern="[[:alpha:]]+ : ([[:upper:]]{1}[[:alpha:]]+) .+","\\1", ch)

[jack-no]

Merci mamounMob pour votre solution qui fonctionne en l'état mais je suis confronté à un problème;
En effet, en appliquant votre fonction comme tel il ne se passe rien.
Pour que ça marche, il faut que je fasse un c("mardi : Fabrice (Dispo)") à la main.
Or ce texte est dans une variable "fich" obtenue comme ceci:

Code :

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

fich <- xpathSApply(htmlParse(ListNoms[i]),"//div[contains(@class,...

Lorsque je fais :

Code :

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

fich <- gsub(pattern="[[:alpha:]]+ : ([[:upper:]]{1}[[:alpha:]]+) .+","\\1", fich)

Ou en faisant c(fich) comme ceci:

Code :

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

fich <- gsub(pattern="[[:alpha:]]+ : ([[:upper:]]{1}[[:alpha:]]+) .+","\\1", c(fich))

Cela ne fonctionne pas.
Je ne comprends vraiment pas pourquoi, d'autant plus que ça fonctionne "à la main"

[mamounMob]

OK,
il me faudrait un exemple reproductible, même minimal pour comprendre ce qui ne va pas

[jack-no]

Pas de problème; Voici un bout de mon code:

Code :

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

1
2
3
4
5
library(XML)
url <- htmlParse("http://www.geny.com/partants-pmu/2014-09-19-vincennes-pmu-prix-cleomede_c655563")
course <- xpathSApply(url,"//div[contains(@class, 'yui-gc cartoucheCourse')]/div[@class='yui-u first nomReunion']",xmlValue)
course <- gsub("\t|\n|\r","",course)
course

En lançant ce code vous obtiendrez: "vendredi : Vincennes (R4)"
Maintenant, lorsque j'applique votre solution;

Code :

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

course <- gsub(pattern="[[:alpha:]]+ : ([[:upper:]]{1}[[:alpha:]]+) .+","\\1", course)

Je n'ai pas le résultat escompté; ça me donne la même chose: "vendredi : Vincennes (R4)"
Au lieu de "Vincennes".

[mamounMob]

En exécutant ton code j'obtiens :
course
# "vendredi_:_Vincennes_(R4)"

Du coup le code précédent ne fonctionne plus, puisqu'il y avait des espaces alors qu'ici ce sont des tirets.

Tu peux essayer avec cette expression :

Code :

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

1
2
 
gsub(pattern='.+[[:punct:]]{3}([[:upper:]]{1}[[:alpha:]]+)[[:punct:]]{1}.+', replacement='\\1', course)

[[:punct:]] représente les signes ponctuation