recuperer une partie de ma variable [Résolu]

[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 :

Code :

1
2
3
 
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

Code :

1
2
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

Code :

1
2
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)

Code :

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

?

[quentincabo]

Bonjour,
ce ceode n'est pas optimise mais bon

Code :

1
2
3
4
5
6
7
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...

Code :

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

Ou encore plus simple:

Code :

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]

Code :

1
2
3
4
5
6
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

Code :

1
2
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,

Code :

1
2
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

Code :

1
2
3
4
5
6
7
8
9
 
 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 :

Code :

Imports System.IO

[cortex59]

j'ai ajouté Imports System.IO au deut de mon fichier mais il me dit :

Instruction incorrecte a l'exterieur d'une procedure

est ce que cela est posible sur Visio??
merci

[tomlev]

Laisse moi deviner... tu fais du VBA (Visual Basic pour Applications) ?
Dans ce cas tu n'es pas sûr le bon forum... ici c'est le forum VB.NET, donc les solutions qu'on te donne ne marchent qu'avec VB.NET et non avec VBA...

Confirme moi si c'est ça, je déplacerai la discussion

[cortex59]

ok desolé
oui c'est bien du VBA
merci

[tomlev]

Code VB :

1
2
3
    svgfilename = "D:/toto/cortex.svg"
    s = Mid(svgfilename, InStrRev(svgfilename, "/") + 1)
    MsgBox s

Ca devrait marcher sous VBA

Je déplace la discussion

[cortex59]

bonjour,

maintenant plus fort!!

je voudrai recuperer le repertoir sans le titre du fichier cad :

D:\toto\...\cortex.svg

recuperer
D:\toto\...\

merci