vb.net - VB .net - 文字列内の char の N 番目の出現を見つけるための最短かつ最速の方法は?

Question

これを達成するための専門的な方法は何ですか？

ありがとう。

Answer 1

この質問の例を恥知らずに切り取って、C# から VB.net に変換しました。

Public Function GetNthIndex(s As String, t As Char, n As Integer) As Integer
    Dim count As Integer = 0
    For i As Integer = 0 To s.Length - 1
        If s(i) = t Then
            count += 1
            If count = n Then
                Return i
            End If
        End If
    Next
    Return -1
End Function

Answer 2

これがLinqでそれを行う方法です。

Public Function GetNthIndex(searchString As String, charToFind As Char, n As Integer) As Integer
    Dim charIndexPair = searchString.Select(Function(c,i) new with {.Character = c, .Index = i}) _
                                    .Where(Function(x) x.Character = charToFind) _
                                    .ElementAtOrDefault(n-1)
    Return If(charIndexPair IsNot Nothing, charIndexPair.Index, -1)
End Function

使用法：

Dim searchString As String = "Assessment"
Dim index As Integer = GetNthIndex(searchString, "s", 4) 'Returns 5

Answer 3

Andew'sの私のバージョンですが、最初のキャラクターが探しているキャラクターである場合、これは考慮に入れられていると思います

 Public Function GetNthIndexStringFunc(s As String, t As String, n As Integer) As Integer
        Dim newFound As Integer = -1
        For i As Integer = 1 To n
            newFound = s.IndexOf(t, newFound + 1)
            If newFound = -1 Then
                Return newFound
            End If
        Next
        Return newFound
    End Function

Answer 4

より速くする場合：

Public Function NthIndexOf(s As String, c As Char, n As Integer) As Integer
    Dim i As Integer = -1
    Dim count As Integer = 0

    While count < n AndAlso i >= 0
        i = s.IndexOf(c, i + 1)
        count += 1
    End While

    Return i

End Function

「a」の長い文字列でn番目の「a」を探している場合、Mike Cの回答よりも少し遅くなりますが（たとえば）。

編集：spacemonkeysのコメントに従って調整。