Это однострочный синтаксический анализатор для анализа запроса из текущего URL-адреса в массив:
parse_str($_SERVER['QUERY_STRING'], $query);
Вы можете использовать gregexpr
gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired")
[[1]]
[1] 4 24
attr(,"match.length")
[1] 1 1
attr(,"useBytes")
[1] TRUE
или, возможно, str_locate_all
из пакета stringr
, который является оберткой для gregexpr
stringi::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
)
найти позицию 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
Вот еще одна простая альтернатива.
> which(strsplit(string, "")[[1]]=="2")
[1] 4 24
Вы можете сделать вывод только 4 и 24 с помощью unlist:
unlist(gregexpr(pattern ='2',"the2quickbrownfoxeswere2tired"))
[1] 4 24