найти расположение символа в строке

Я хотел бы найти расположение символа в строке.

говорят: string = "the2quickbrownfoxeswere2tired"

Я хотел бы, чтобы функция возвращала 4 и 24 -- расположение символов 2 s в string.

4 63
javascript regex string

4 ответа:

можно использовать gregexpr

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


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

или, возможно,str_locate_all пакета stringr, который является оболочкой для gregexprstringi::stri_locate_all (по состоянию на stringr версия 1.0)

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)

89

вот еще одна простая альтернатива.

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

вы можете сделать вывод только 4 и 24, используя unlist:

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

найти позицию N-го вхождения str2 в str1 (тот же порядок параметров, что и 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
1