trovare la posizione del carattere nella stringa

Question

Vorrei trovare la posizione di un carattere in una stringa.

Di ': string = "the2quickbrownfoxeswere2tired"

Vorrei la funzione per tornare 4 e 24 - la posizione del carattere dei 2 s in string.

Answer 1

È possibile utilizzare gregexpr

gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired") 


[[1]] 
[1] 4 24 
attr(,"match.length") 
[1] 1 1 
attr(,"useBytes") 
[1] TRUE 

o forse str_locate_all dal pacchetto stringr che è un wrapper per gregexprstringi::stri_locate_all (come di stringr versione 1,0)

library(stringr) 
str_locate_all(pattern ='2', "the2quickbrownfoxeswere2tired") 

[[1]] 
    start end 
[1,]  4 4 
[2,] 24 24 

nota che si può semplicemente utilizzare stringi

library(stringi) 
stri_locate_all(pattern = '2', "the2quickbrownfoxeswere2tired", fixed = TRUE) 

Un'altra opzione a base di R sarebbe qualcosa di simile

lapply(strsplit(x, ''), function(x) which(x == '2')) 

dovrebbe funzionare (dato un vettore di carattere x)

Answer 2

Ecco un'altra alternativa semplice.

> which(strsplit(string, "")[[1]]=="2") 
[1] 4 24 

Answer 3

È possibile effettuare l'output appena 4 e 24 utilizzando non elencati:

unlist(gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired")) 
[1] 4 24 

Answer 4

trovare la posizione del verificarsi n-esima di str2 in str1 (stesso ordine di parametri come Oracle SQL INSTR), restituisce 0 se non trovato

instr <- function(str1,str2,startpos=1,n=1){ 
    aa=unlist(strsplit(substring(str1,startpos),str2)) 
    if(length(aa) < n+1) return(0); 
    return(sum(nchar(aa[1:n])) + startpos+(n-1)*nchar(str2)) 
} 


instr('xxabcdefabdddfabx','ab') 
[1] 3 
instr('xxabcdefabdddfabx','ab',1,3) 
[1] 15 
instr('xxabcdefabdddfabx','xx',2,1) 
[1] 0