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

 1219568 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 : - String
Page lue 6159 fois

Vous êtes ici :   Accueil » Position inversé