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

Messages postés
30
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
1 février 2003
-
Messages postés
30
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
1 février 2003
-
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 !
;)

3 réponses

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
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
Messages postés
34
Date d'inscription
lundi 10 juin 2002
Statut
Membre
Dernière intervention
20 octobre 2009

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.
Messages postés
30
Date d'inscription
mercredi 4 décembre 2002
Statut
Membre
Dernière intervention
1 février 2003

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)