un problème d'expression régulière

[Stéphane Laurent]

Bonjour,

J'ai une châine de caractères de ce style:

Code : Tout sélectionner

x = "3037//1922 3038//1921 3039//1924"

Je voudrais retirer les slashs ainsi que les nombres qui suivent les slashs. Ainsi pour l'exemple précédent cela donnerait:

Code : Tout sélectionner

"3037 3038 3039"

Idéalement il me faudrait même le vecteur numérique

Code : Tout sélectionner

c(3037, 3038, 3039)

Une idée ? Merci pour votre attention.

[Stéphane Laurent]

Ah si je démarre comme ça je sais m'en sortir avec strsplit:

Code : Tout sélectionner

> x <- c("3037//1922", "3038//1923")
> strsplit(x, "//")
[[1]]
[1] "3037" "1922"

[[2]]
[1] "3038" "1923"


Je vais voir si je m'en sors comme ça, mais la question de départ m'intéresse encore.

[Stéphane Laurent]

Ouaip, jai réussi avec strsplit. Voici le code qui permet de lire un fichier OBJ, si ça intéresse quelqu'un:

Code : Tout sélectionner

obj <- readLines("myobj.obj")

verticesIdxs <- grep("v ", obj)
cvertices <- strsplit(obj[verticesIdxs], " ", fixed=TRUE)
vertices <- apply(do.call(rbind, cvertices)[,-1], 2, as.numeric)


facesIdxs <- grep("f ", obj)
cfaces <- strsplit(obj[facesIdxs], " ", fixed=TRUE)
cfaces2 <- lapply(cfaces, `[`, -1)
cfaces3 <- lapply(cfaces2, function(x) strsplit(x, "//", fixed=TRUE))
faces <- lapply(cfaces3, function(x) as.numeric(unlist(lapply(x, `[`, 1))))

facesCoordinates <- function(i){
  vertices[faces[[i]],]
}


[Michaël Delorme]

Code : Tout sélectionner

x <- "3037//1922 3038//1921 3039//1924"
unlist(strsplit(gsub("//\\d{4}", "", x), " "))

[1] "3037" "3038" "3039"

[François Bonnot]

Code : Tout sélectionner

gsub("//[[:digit:]]+","",x)

[Stéphane Laurent]

Parfait, merci à vous.