recuperer une partie de ma variable

[cortex59]

bonjour,

je voudrais recuperer une partie de ma variable (string) en VBA

ma variable "FileName" contient un chemin
D:/toto/cortex.svg

et moi je voudrais recuperer cortex.svg

est ce que quelqu'un a une idée?

merci

[robri]

salut,
en utilisant les fonctions Mid et InstrRev tu dois pouvoir le faire.

la fonction Mid(Chaine, Start, Length) extrait une partie de la chaine

la fonction InstrRev(Start, ChaineConteneur, CaratereRecherche) te renvoi la position du caractère recherché dans la chaine, ici en commencant par la fin de la chaine (utile si ton chemin contient un nombre indéterminé de "\"), sinon Instr commence par le début

j'espère que ça pourra t'aider

[pacmann]

Salut !

Tu peux également utiliser la méthode split de la classe String :

 
s = "D:/toto/cortex.svg"
Dim res() as string = s.split(TonSeparateur)
 

split parse la chaîne selon le séparateur, et renvoie un tableau de string.
=> res(s.length -1) est le nom de ton fichier...

[cortex59]

re

Dim res As String
res = svgFileName.Split("/")

ceci ne fonctione pas!
le qualifiquateur est incorect (svgFileName)

svgFileName : est la variable qui contient mon chemin

merci

sinon j'ai essayer aussi

Dim res As String
res = Mid(svgFileName, InStrRev(svgFileName, "/"))

mais ca ne fonctionne pas!

merci

[pacmann]

split renvoie un tableau !
(relis mon post...)

Et lis aussi les messages d'erreur quand ça ne marche pas :
- ça peut t'aider à avancer
- ça peut nous aider à comprendre ce qui ne marche pas

[robri]

j'avais complètement oublié split

par contre la syntaxe correcte est : Split(Chaine, Separateur)

Dim res() As String
res = Split(svgFileName,"/")

?

[quentincabo]

Bonjour,
ce ceode n'est pas optimise mais bon

Dim nom As String = "Nom/belge/mons"
        Dim i As Integer
        For i = 1 To Len(nom)
            If (Mid(nom, i, 1) = "/") Then
                MsgBox(Mid(nom, i + 1, Len(nom) - i))
            End If
        Next
 

A la fin de la boucle j'obtiens mons

Bonne continuation

[tomlev]

Il y a plus simple que de passer par des Split...

Dim fi As New FileInfo("D:\toto\cortex.svg")
Dim name As String = fi.Name

Ou encore plus simple:

Dim name As String = Path.GetFileName("D:\toto\cortex.svg")

(Pour les 2 méthodes, il faut importer le namespace System.IO)

[quentincabo]

merci Tomlev

Simple, cours, performant que demander de plus???

Et encore merci

[cortex59]

Dim ii As Integer
        For ii = 1 To Len(svgFileName)
            If (Mid(svgFileName, ii, 1) = "/") Then
             res = (Mid(svgFileName, ii + 1, Len(svgFileName) - ii))
            End If
        Next

ceci me renvoi :
res =""

ensuite j'ai essayer

Dim res As String
res = Mid(svgFileName, InStrRev(svgFileName, "/"))

il me retourne l'erreur suivante : "argument ou appel de procedure incorect"

[tomlev]

utilise ce que j'ai indiqué 3 posts plus haut...

[cortex59]

re,

Dim res As String
res = Path.GetFileName("svgFileName")

ceci me dit que Path n'est pas defini

merci

[quentincabo]

Pour répondre à ta question:

Pour les 2 méthodes, il faut importer le namespace System.IO

J'ai réessayer avec ma procédure et j'obtiens le résultat escompté càd cortex.svg

 
 Dim svgfilename As String = "D:/toto/cortex.svg"
Dim ii As Integer
        For ii = 1 To Len(svgFileName)
            If (Mid(svgFileName, ii, 1) = "/") Then
             res = (Mid(svgFileName, ii + 1, Len(svgFileName) - ii))
            End If
        Next ii
msgbox(res)
 
 

[cortex59]

je travail sur visio, importer le namespace System.IO est ce posible ?

si oui comment faire?

merci

[tomlev]

Tout au début de ton fichier, ajoute ça :

Imports System.IO