Discussion :

[krina85]

Bonjour

A partir d'une chaîne de caractères, j'aimerai récupérer tout ce qui se trouve avant le dernier \. J'ai regardé dans le forum et la faq tout ce qui concerne split mais je ne vois pas comment spécifier dans la fonction "avant le dernier \".

Merci pour vos conseils

[Ragnarok85]

Salut,

Tu peux combiner les fonctions Mid et InStr en VBA.
InStr pr trouver en qlq postions est le dernier /, pour cela tu cherches tu utilises une boucle.
Puis Mid pour extraire à partir de la position trouvée.
Je sais pas si je suis clair.

Cordialement,

Antoine

[pc75]

Bonjour,

Tiens, un extrait de MSDN :

InStrRev, fonction


Description

Renvoie la position d'une occurrence d'une chaîne dans une autre, à partir de la fin de la chaîne.

Syntaxe

InstrRev(string1, string2[, start[, compare]])

La syntaxe de la fonction InstrRev comprend les éléments suivants :

Élément Description
string1 Expression de chaîne dans laquelle la recherche est effectuée.
string2 Expression recherchée.
start Facultatif.Expression numérique définissant la position de départ de chaque recherche. Si elle est omise, -1 est employé, ce qui signifie que la recherche commence à la dernière position de caractère. Si l'argument start contient la valeur
Null, une erreur se produit.

compare Facultatif. Valeur numérique indiquant le type de comparaison à utiliser lors de l'évaluation des sous-chaînes. Si elle est omise, une comparaison binaire est effectuée. Reportez-vous à la section Valeurs.


Valeurs

L'argument compare prend les valeurs suivantes :

Constante Valeur Description
vbUseCompareOption –1 Effectue une comparaison à l'aide de l'instruction Option Compare.
vbBinaryCompare 0 Effectue une comparaison binaire.
vbTextCompare 1 Effectue une comparaison de texte.
vbDatabaseCompare 2 Microsoft Access seulement. Effectue une comparaison basée sur des informations contenues dans votre base de données.


Valeurs renvoyées

La fonction InStrRev renvoie les valeurs suivantes :

Si la fonction InStrRev renvoie
string1 a une longueur nulle 0
string1 est Null Null
string2 a une longueur nulle start
string2 est Null Null
string2 est introuvable 0
string2 est trouvée dans la chaîne string1 la position à laquelle une correspondance est trouvée
start > Len(string2) 0


Remarques

Notez que la syntaxe de la fonction InstrRev est différente de celle de la fonction Instr.

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
SELECT 
StrReverse(Right(StrReverse([monchamp]),Len([monchamp])-InStr(StrReverse([monchamp]),"\"))) AS resu
, monchamp
FROM Table1;

[krina85]

Bonjour à tous (j'en ai des réponses, merci à vous)

Dans mes recherches, notamment sur l'aide d'access, j'avais trouvé InStrRev (la réponse de pc75 me dit que j'étais sur la bonne voie).

Donc pour le moment, je procède ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Emplacement As String
Dim NomFichier As String
 
Emplacement = InStrRev(MaChaîneDeCaractères, "\")
NomFichier = Left(MaChaîneDeCaractères, Emplacement )

Soit en 4 lignes de code. Ce n'est pas bien lourd et ça fonctionne mais je me demande si je ne peux pas réduire le nombre de lignes pour arriver au même résultat.

Pour random : je ne vois pas comment utiliser ta proposition. (en réfléchissant bien, je me suis peut être trompée de sous forum).

Merci pour vos conseils

[pc75]

Re,

En une ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
NomFichier = Left(MaChaîneDeCaractères, InStrRev(MaChaîneDeCaractères, "\"))

[krina85]

Bonjour

J'ai un peu honte après coup. Je m'emmêlais pour rien avec les [] à partir de ton message précédent.

Merci, tout fonctionne.