Chaîne de caractèreRésolu

Question

Je suis bientôt à la fin de mon programme, mais il me manque une dernière chose.
Je voudrais bien extraire une chaine de caractère à l'interieur d'une autre.
Voici le problème:

Chaîne de caractère d'origine: g:\jeux\jeux1\jeux1.exe
Chaîne de caractère désiré: g:\jeux\jeux1\

ou

g:\jeux2.exe
g:\

Le problème est que le nombre de \ n'est pas constant. Alors comment faire pour extraire tout la chaîne précédent le dernier \ ????? Merci de votre aide

cs_casy · Accepted Answer

InStrRev pour trouver le premier \ en partant de la fin.

Ensuite un Left pour extraire tout ce qui est à gauche, en prenant comme longueur le résultat précédent -1

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

jmfmarques · Answer

Bonsoir,

Utilise donc InstRev avec le caractère "". C'est tout !...

gouzou44 · Answer

J'ai juste eu a rajouter un Mid et c'est nickel merci

Kristof_Koder · Answer

rajouté un mid ? Inutile ! La solution de Casy est correcte et complète !
Par curiosité, tu as codé quoi ?

cs_JMO · Answer

Bonjour à tous,

Ce qui donne:

chemin_complet = "D:\Mes scripts VBFrance\Test\Fichiers\mon fichier.txt"

MsgBox Left(chemin_complet,Len(chemin_complet)-Len(Mid(chemin_complet, InStrRev(chemin_complet, "") + 1))) &vbCrLf& _
             Mid(chemin_complet, InStrRev(chemin_complet, "") + 1)

jean-marc

jmfmarques · Answer

Bonjour Jean-Marc,

Pourquoi recalculer avec le len ?

 MsgBox Mid(chemin_complet, 1, InstrRev(chemin_complet, "")) & vbCrLf & Mid(chemin_complet, InstrRev(chemin_complet, "") + 1)

gouzou44 · Answer

Voilà ce que j'ai utilisé. Marche nickel

repertoire = Mid(wbExcel.Worksheets(1).Cells(j, 4), 1, InStrRev(wbExcel.Worksheets(1).Cells(j, 4), "", -1))
    ShellExecute vbNull, "open", exe, vbNull, repertoire, SW_SHOWNORMAL

Kristof_Koder · Answer

ouais !
Plutot que de faire un mid(ch, 1, L), fais simplement un left(ch, L), cela marchera de ma même façon et sera plus simple à lire

cs_JMO · Answer

Bonjour à tous,

Bonjour Jacques,
Entièrement raison, je me suis emporté ! 

jean-marc

Chaîne de caractère

9 réponses

Votre réponse

Discussions similaires