在字符串中查找字符的位置

Question

我想查找字符串中字符的位置。

說：string = "the2quickbrownfoxeswere2tired"

我想函數返回4和24 - 在string的2 S的字符位置。

Answer 1

您可以使用gregexpr

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


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

或者是從包stringrstr_locate_all這是gregexprstringi::stri_locate_all的包裝（如1.0 stringr版）

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

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

注意，你可以簡單地使用stringi

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

在基地R另一種辦法是像

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

應該工作（給定一個字符向量x）

Answer 2

這裏還有一個簡單的選擇。

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

Answer 3

您只需4和24使用不公開使輸出：

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

Answer 4

發現STR2在STR1的第n次出現（順序相同的參數，如Oracle SQL INSTR）的位置，返回0如果找不到

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