Me taduire 1 ligne de javascript à VB svp...

Quelqu'un serait-il traduire çà en VB :

(c'est du javascript...)
var toto = " test.tst"
document.write("Extension : "+toto.substring(toto.lastIndexOf('.')+1));

le principe :
On recherche le dernier point dans une chaîne pour retourner tous ce qu'il y a après ce dernier point ( = l'extension de la chaîne)

Pas de right(xxx) svp car l'extension peut faire 1,2,3,4 ou 5 caractères... ( exemple : X, JS, EXE, DOC, HTML, CLASS...)

Merci pour ceux qui auront déjà lu jusque là !
Encore plus pour ceux qui répondront !

Ben au mieux d'utiliser Right, utilise Mid :

Tu part de la fin du texte, puis tu remonte caractère par caractère jusqu'à trouver le caractère "."

Ensuite, tu peux facilement récupérer le texte situé à droite du "."

Si tu n'y arrive pas, demande moi la où tu bloques.

DARK SIDIOUS


-------------------------------
Réponse au message :
-------------------------------

> Quelqu'un serait-il traduire çà en VB :
>
> (c'est du javascript...)
> var toto = " test.tst"
> document.write("Extension : "+toto.substring(toto.lastIndexOf('.')+1));
>
> le principe :
> On recherche le dernier point dans une chaîne pour retourner tous ce qu'il y a après ce dernier point ( = l'extension de la chaîne)
>
> Pas de right(xxx) svp car l'extension peut faire 1,2,3,4 ou 5 caractères... ( exemple : X, JS, EXE, DOC, HTML, CLASS...)
>
> Merci pour ceux qui auront déjà lu jusque là !
> Encore plus pour ceux qui répondront !
>

On peut utiliser ceci aussi :
Mid$("test.extension", InStrRev("test.extension", ".") + 1)

Cela renvoie "extension"
InStrRev renvoie la position de la dernière occurence d'une string.


-------------------------------
Réponse au message :
-------------------------------

> Quelqu'un serait-il traduire çà en VB :
>
> (c'est du javascript...)
> var toto = " test.tst"
> document.write("Extension : "+toto.substring(toto.lastIndexOf('.')+1));
>
> le principe :
> On recherche le dernier point dans une chaîne pour retourner tous ce qu'il y a après ce dernier point ( = l'extension de la chaîne)
>
> Pas de right(xxx) svp car l'extension peut faire 1,2,3,4 ou 5 caractères... ( exemple : X, JS, EXE, DOC, HTML, CLASS...)
>
> Merci pour ceux qui auront déjà lu jusque là !
> Encore plus pour ceux qui répondront !
>

Merci pour tout,
J'ai utilisé çà trouvé sur un forum US :

extension=mid(chaîne,(((InstrRev(Chaîne,".")))+1))
Mais la technique de Piwee revient au même en plus simple...

Merci.