Trouver 1 caractère dans une String en partant de la fin...........

Question

Bonjour!

Voilà, j'ai une numérotation de titre, par exemple "1.12.3" et je voudrais avoir la position du dernier "." dans cette chaîne de caractères. Je voulais juste savoir si il existe une fonction qui permet de trouver le "." en partant de la fin (j'ai déjà fait une boucle qui me permet de le trouver mais je voudrais trouver plus court). Je sais qu'il existe la fonction Instr mais elle va me donner la position deu 1er point. Est-ce que je peux faire qqchose avec ça? Ou est-ce qu'il faut utiliser une autre fonction?

Merci d'avance!

capoueidiablo · Answer

Et oui il y'a beaucoup plus simple  :) 
Une fonction identique à instr a été faite pour faire exactement ce que tu veux  :) , elle se nomme instrRev

Syntaxe
InstrRev(string1, string2[, start[, compare]])

'les paramettres sont les memes que pour Instr.
--Capoueidiablo--

cs_PhilippeE · Answer

Dans VB6 tu as InStrRev

cs_cissou06 · Answer

Merci... mais j'ai oublié de préciser que je programme avec VBA et apparemmet ça pose problème, il ne reconnaît pas la fonction. C'est normal?

capoueidiablo · Answer

C'est marrant moi ca marche sous VBA ...
Tappe Inst puis fais Ctrl+Space voir s'il t'affiche la liste des fonctions commencant pas Instr dont InstrRev
--Capoueidiablo--

cs_cissou06 · Answer

Je l'ai pas, c'est peut-être parce que je travaille avec office97?

capoueidiablo · Answer

Essaille de voir si tu peux pas le mettre a jour avec les new services pack sur le site de microsoft. Sinon tu vas devoir le coder à la main  :-p 

PS : 
je pence qu'il te donnera les mises a jours a faire automatiquement
Microsoft Office Update
--Capoueidiablo--

capoueidiablo · Answer

PS : 
Microsoft Office Update
--Capoueidiablo--

cs_PhilippeE · Answer

InStrRev n'est apparu qu'avec VB6, donc peut-être est-ce implémenté sous Office 2000, mais j'ai de gros doutes pour Office 97 (génération VB5)

louisvbfrance · Answer

Sinon, je te propose cela :

Public Function InstrReve(TxtOrig As String, TxtATrouver As String) As Integer
Dim i%
Dim l1%
Dim l2%
Dim Mot$

    l1 = Len(TxtOrig)
    l2 = Len(TxtATrouver)
    
    For i = (l1 - l2) + 1 To 1 Step -1
        Mot = Mid(TxtOrig, i, l2)
        If Mot = TxtATrouver Then
            InstrReve = i
            Exit For
        End If
    Next
End Function

Julien  :)

Trouver 1 caractère dans une String en partant de la fin...........

9 réponses

Discussions similaires