vb.net comment récupérer du texte entre deux "\'"

Version imprimable

bonjour, j'essaie de récupérer du texte dans un nom de répertoire qui se trouve entre deux "\". Je cherche depuis ce matin à faire cela mais je n'y arrive pas. J'ai essayé plein de chose, regarder plein d'aide comme msdn et ça me semble impossible. J'ai essayé la fonction trim, la fonction split, la fonction regex, la fonction ltrim, la fonction rtrim... rien ne marche. A chaque fois que j'écris ces nom dans mon code, il le souligne et me donne un message. J'ai beau lire tout ce que je peux trouver sur le net, rien ne fonctionne. Je vous précise que je commence en VB.net. Les 14 premier caractère sont toujours identiques et je les soustrait du path. Le reste est toujours aléatoire, selon le répertoire de créer.

voilà mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub LireRep(ByVal Rep As String) Dim repertoire As New DirectoryInfo("z:\test") Dim NewRep As DirectoryInfo = Repertoire.CreateSubdirectory("Transfert PDF") Dim Extention As String = ("_pdf") Dim SousRep As String() = Directory.GetDirectories(Rep) Dim DirRep As String Dim dirrep2 As String Dim NomRep As String Extention = Path.GetFileNameWithoutExtension("_pdf") For Each Extention In Directory.GetFiles("x:\projects", Extention, SearchOption.AllDirectories) NomRep = Path.GetDirectoryName(Extention).ToUpper DirRep = NomRep.Substring(14) dirrep2 = DirRep.Split() 'C'est ici que je bloque Next End Sub
donc ce que je cherche à faire, c'est de récupérer le texte entre deux backslash ex: z:\test\écris1\livre\enfant. Je voudrais récupérer écris1. Dans un autre cas, je peux avoir; z:\test\ecris divers\montagne\ valée. Dans ce cas, je voudrais récupérer montagne.

Merci de voter aide.

cadeau:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 Private Function search_Char(data As String, Start_char As String, Index As Integer, End_Char As String) As String        
        Dim start_pos As Integer = 0
        Dim end_pos As Integer = -1
        For i As Integer = 0 To Index
            start_pos = data.IndexOf(Start_char, start_pos)
            start_pos += 1
        Next
        end_pos = data.IndexOf(End_Char, start_pos)
        If end_pos = -1 Then end_pos = data.Length
        Dim result As String = data.Substring(start_pos, end_pos - start_pos)
        Return result
    End Function

et pour l'utiliser:

Code:

1
2
3
4
5
 Dim data As String = "z:\test\écris1\livre\enfant"
MsgBox(search_Char(data, "\", 0, "\")) ' = test
MsgBox(search_Char(data, "\", 1, "\")) ' = écris1
MsgBox(search_Char(data, "\", 2, "\")) ' = livre
MsgBox(search_Char(data, "\", 3, "\")) ' = enfant

29/10/2014, 08h53
mactwist69
Code:

dirrep2 = DirRep.Split() 'C'est ici que je bloque

Parce que tu n'utilises pas le split comme il faut.
Le Split, déjà te retourne un tableau de String... Donc tu ne pourras pas le mettre dans un simple string.
Ensuite, il faut lui indiquer le caractère séparateur... Il va pas deviner.

Donc ça donne plutôt ça :
Code:

1 2 3 4 Dim dirrep2() As String dirrep2 = DirRep.Split(CChar("\"))
ShadowTzu, je parie que tu viens du C++... Ça fait un peu Old School comme méthode ;)
Le Split permet de faire la même chose, en une ligne.... Il faut s'appuyer sur .NET
29/10/2014, 12h11
infodes

merci pour vos réponse. J'ai trouvé une autre solution qui fait ce que je veux mais le tableau aurait été probablement la meilleur solution. Je vais regarder cela.

merci beaucoup pour votre aide.