1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

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

Réponse 1 / 3
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
Réponse 2 / 3
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.
Réponse 3 / 3
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)
Posez votre question