Recherche
Recherche
Les mémos
Je débute...
Visites

 996165 visiteurs

 5 visiteurs en ligne

Position "inverse" d'un caractère dans une chaîne

Alternative à la fonction apparue avec Access 2000

Donne la position en partant de la gauche, du premier caractère trouvé en partant de la droite !!
 

Public Function fInStrRev(ByVal sIn As String, sFind As String, _
                          Optional nStart As Long = 1, _
                          Optional bCompare As Long = vbBinaryCompare) _
                          As Long
    Dim nPos As Long

    sIn = fStrReverse(sIn)
    sFind = fStrReverse(sFind)
    nPos = InStr(nStart, sIn, sFind, bCompare)

    If nPos = 0 Then
        fInStrRev = 0
    Else
        fInStrRev = Len(sIn) - nPos - Len(sFind) + 2
    End If

End Function


Catégorie : Les mémos - String
Page lue 4967 fois