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

 987879 visiteurs

 2 visiteurs en ligne

Recherche
 
Fermer

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 4891 fois