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

Question

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 !
 ;)

cs_DARKSIDIOUS · Answer

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

cs_piwee · Answer

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.

cs_Jin · Answer

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.
 :big)