RECUPERER LE NOM D UN FICHIER STOCKE DANS UNE VARIABLE [Résolu]

Signaler
Messages postés
70
Date d'inscription
mercredi 24 septembre 2003
Statut
Membre
Dernière intervention
20 mars 2007
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
Bonsoir

Dans une variable, je stocke le chemin d'accès d'un fichier. Par exemple, la variable A contient "C:\Toto\toto.txt".

Je voudrais récupérer dans une variable B la partie toto.txt
Je ne vois pas comment procéder.

Merci de votre aide

5 réponses

Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Bonsoir,
Une simple manipulation avec les fonctions de chaines de caractères InStrRev et Mid.

dim VarToto as string
VarToto ="C:\Toto\toto.txt"

'Position de la première occurence "" trouvée en partant de la fin de la chaine
dim pos as integer
pos=instrrev(vartoto,"")

msgbox mid$(vartoto, pos+1,len(vartoto)

vala
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Salut Laurent


Essaie ceci

fichcomplet$ = "C:\Toto\toto.txt"
fich$ = ""
For i% = Len(fichcomplet$) To 1 Step -1
car$= Mid$(fichcomplet$, i%, 1)
if car$= "" Then Exit For
fich$ = car$ + fich$
Next i%
MsgBox fich$

GRENIER Alain
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Désolé Willi je ne connaissais pas instrrev

GRENIER Alain
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
Y a pas de mal
Au passage Galain il est préférable de déclarer une variable dim fich as string que fich$
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Bonjour,

Détail des 2 méthodes (Alain et Willi)

'''''''''''''''''''''''''''''''''''''''''''''''''''''
' Extraction nom du fichier à partir d'une variable
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'exemple1 : Fonction InStrRev
Dim CheminComplet_1, Position
CheminComplet_1 = "C:\Exemples\Exemple_1.txt"
Position = ""
'
'Renvoie la position de la première occurence d'une chaîne dans une autre,
'à partir de la fin de la chaîne. . Dans cet exemple: ""
Position = InStrRev(CheminComplet_1,"")
Position = Mid(CheminComplet_1, Position+1, Len(CheminComplet_1))
MsgBox "Exemple1 : Fonction InStrRev => " & Position
'
'exemple2 : Fonction For...Next
Dim CheminComplet_2, i, Fichier, Caractere
CheminComplet_2 = "C:\Exemples\Exemple_2.txt"
i = 0
'
'Répète un groupe d'instructions un nombre spécifié de fois. Dans cet exemple: ""
For i = Len(CheminComplet_2) To 1 Step -1
Caractere = Mid(CheminComplet_2, i, 1)
If Caractere = "" Then Exit For
Fichier = Caractere & Fichier
MsgBox "Exemple2 : Fonction For...Next => " &vbCrLf&"caractère courant = " &_
Caractere &vbCrLf & "caractère + fichier = " & Fichier
Next
'
'
MsgBox "Exemple1 : Fonction InStrRev => " & Position &vbCrLf&_
"Exemple2 : Fonction For...Next => " & Fichier