web-dev-qa-db-ja.com

文字列内の文字の場所を見つける

文字列内の文字の場所を見つけたいです。

説明：string = "the2quickbrownfoxeswere2tired"

関数が4および24-stringの2sの文字位置を返すようにします。

regexstringr
79
ricardo

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が与えられた場合）

104
mnel

別の簡単な代替手段を次に示します。

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

Unlistを使用して、出力を4と24だけにすることができます。

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

str1内のstr2の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
2
Abdelmonem Mahmoud Amer

firstの場所のみを検索するには、lapply()をmin()とともに使用します。

my_string <- c("test1", "test1test1", "test1test1test1")

unlist(lapply(gregexpr(pattern = '1', my_string), min))
#> [1] 5 5 5

# or the readable tidyverse form
my_string %>%
  gregexpr(pattern = '1') %>%
  lapply(min) %>%
  unlist()
#> [1] 5 5 5

lastの場所のみを見つけるには、lapply()をmax()とともに使用します。

unlist(lapply(gregexpr(pattern = '1', my_string), max))
#> [1]  5 10 15

# or the readable tidyverse form
my_string %>%
  gregexpr(pattern = '1') %>%
  lapply(max) %>%
  unlist()
#> [1]  5 10 15
1
MS Berends