scinde une chaîne avec la regex

Je suis à la recherche de découper une chaîne d'une forme générique, où les crochets désigner les "sections" de la chaîne. Ex:

x <- "[a] + [bc] + 1"

Et le retour d'un personnage vecteur qui ressemble à:

"[a]"  " + "  "[bc]" " + 1"

EDIT: Fini l'utilisation de ce:

x <- "[a] + [bc] + 1"
x <- gsub("\\[",",[",x)
x <- gsub("\\]","],",x)
strsplit(x,",")

InformationsquelleAutor Jeff Keller | 2013-03-22

r regex strsplit

6

J'ai vu TylerRinker du code et pensez que cela peut être plus clair que cela, mais cela peut servir comme un moyen d'en apprendre un ensemble de fonctions différent. (J'ai aimé son mieux avant, j'ai remarqué qu'il se diviser sur les espaces.) J'ai essayé d'adapter ce de travailler avec strsplit mais cette fonction supprime toujours les séparateurs.
Cela pourrait peut-être être adapté pour faire un newstrsplit qui se divise à l'séparateurs mais les laisse dans? Probablement pas divisé en première ou en dernière position et la distinction entre l'ouverture et la fermeture des séparateurs.
```
scan(text=   # use scan to separate after insertion of commas
            gsub("\\]", "],",   # put commas in after "]"'s
            gsub(".\\[", ",[",  x)) ,  # add commas before "[" unless at first position
        what="", sep=",")    # tell scan this character argument and separators are ","
#Read 4 items
#[1] "[a]"  " +"   "[bc]" " + 1"
```
- J'aime cette approche car elle ne dépend pas de blanc espace pour le fractionnement. Le maintien de l'espace blanc de la sortie n'était pas important pour cette tâche, j'ai donc modifié ce de travailler avec strplit:
- Merci pour le commentaire positif, mais je considère @juba est une meilleure réponse. Je vais l'utiliser pour construire une analyse simple fonction qui accepte un couple d'arguments pour le signal de début et de fin des séparateurs qui sera préservé.
InformationsquelleAutor 42-

C'est un paresseux approche:

FUN <- function(x) {
    all <- unlist(strsplit(x, "\\s+"))
    last <- paste(c(" ", tail(all, 2)), collapse="")
    c(head(all, -2), last)
}

x <- "[a] + [bc] + 1"    
FUN(x)

## > FUN(x)
## [1] "[a]"  "+"    "[bc]" " +1"

Vous dites "paresseux" parce que vous utilisez les espaces plutôt que d'utiliser des parenthèses pour séparer?
Oui ( pas de réel intense regexing)

InformationsquelleAutor Tyler Rinker

5

Vous pouvez calculer les points de scission manuellement et utiliser substring :
```
split.pos <- gregexpr('\\[.*?]',x)[[1]]
split.length <- attr(split.pos, "match.length")
split.start <- sort(c(split.pos, split.pos+split.length))
split.end <- c(split.start[-1]-1, nchar(x))
substring(x,split.start,split.end)
#  [1] "[a]"  " + "  "[bc]" " + 1"
```
- Il y nous allons. De grands progrès vers un "newsplit'. Non pas que je le comprends totalement, mais j'ai pensé gregexpr serait utile. J'ai été surpris que vous n'avez pas besoin d'utiliser "\]" dans le modèle.
- Je pense que ] n'a pas besoin d'être échappé, car il n'est pas interprété comme une fin de classe de personnage en raison du fait que [ est. Hmm, pas sûr que je suis très clair 🙂
- J'ai eu la même pensée, mais il suggère de "caractère spécifique" est plus dépendantes du contexte que je l'aurais imaginé.
InformationsquelleAutor juba

Et voici une version qui se divise sur les crochets ET les maintient dans la suite, à l'aide d'anticipation positif et lookbehind:

splitme <- function(x) {
  x <- unlist(strsplit(x, "(?=\\[)", perl=TRUE))
  x <- unlist(strsplit(x, "(?<=\\])", perl=TRUE))
  for (i in which(x=="[")) {
    x[i+1] <- paste(x[i], x[i+1], sep="")
  }
  x[-which(x=="[")]
}
splitme(x)
#[1] "[a]"  " + "  "[bc]" " + 1"

InformationsquelleAutor Theodore Lytras

Vous devez vous connecter pour publier un commentaire.