Cet exemple permet de retourner un msgBox indiquant l'expression dans laquelle la recherche est effectuée, l'expression que l'on cherche et le résultat obtenu, c'est à dire la position du dernier "-" dans la chaîne "toto-tata-titi-tete". Public Function fInStrRev_EXE() Dim strExpression As String Dim strMatch As String Dim strMsgBox As String strExpression = "toto-tata-titi-tete" strMatch = "-" strMsgBox = "Dans l'expression : """ & strExpression & """" & vbCrLf & vbCrLf strMsgBox = strMsgBox & "l'expression : """ & strMatch & """" & vbCrLf & vbCrLf strMsgBox = strMsgBox & "se trouve à la position : " strMsgBox = strMsgBox & fInStrRev(strExpression, strMatch) MsgBox strMsgBox
End Function
Cet exemple retournera le msgBox suivant : Remarque : L'argument start bien que optionel peut-être utile si par exemple ou souhaite retrouver la position de la 2ème expression recherchée, on pourra imbriquer la fonction fInStrRev de la manière suivante : fInStrRev(strExpression, strMatch, fInStrRev(strExpression, strMatch))
Si l'on reprend les valeurs de l'exemple supérieur, cette syntaxe retournera 10. |