En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1176219 visiteurs

 2 visiteurs en ligne

Nous contacter

Contact

Position inversé

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 5913 fois
Vous êtes ici :   Accueil » Position inversé