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

cs_Jin Messages postés 30 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 1 février 2003 - 16 déc. 2002 à 14:09
cs_Jin Messages postés 30 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 1 février 2003 - 16 déc. 2002 à 22:59
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

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
16 déc. 2002 à 14:13
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
0
cs_piwee Messages postés 34 Date d'inscription lundi 10 juin 2002 Statut Membre Dernière intervention 20 octobre 2009
16 déc. 2002 à 14:25
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.
0
cs_Jin Messages postés 30 Date d'inscription mercredi 4 décembre 2002 Statut Membre Dernière intervention 1 février 2003
16 déc. 2002 à 22:59
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)
0