Discussion :

[Invité]

Bonjour à tous,
Dans un programme VB.NET, j'ai besoin de récupérer des éléments particuliers dans un string pour en faire un tableau contenant chaque élément.
Les éléments sont tous séparés d'un espace ...
Vous allez me dire :

Fais un Split !

Seulement, lorsque des caractères sont entourés de guillemets, la séparation ne doit pas avoir lieu et doit mettre la chaine dans un seul item du tableau.
Petit exemple :

J'aime les fleurs "mais pas les roses" et toi "tu aimes quoi ?"

Si cette chaine passe dans la fonction, la fonction retournera un tableau :

J'aime
les
fleurs
"mais pas les roses"
et
toi
"tu aimes quoi ?"

Si vous avez une fonction permettant cet exploit, je suis preneur
Bonne soirée

[rv26t]

Bonjour,

Tu peux procéder ainsi,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Function DecoupeChaine(ByVal s As String) As String()
        Dim i As Integer = 0
        Dim sb As New System.Text.StringBuilder
        Dim guillemet As Boolean = False
        sb.Append(s)
        While i < sb.Length
            If sb(i) = " " Then If Not guillemet Then sb(i) = "|"
            If sb(i) = """" Then guillemet = Not guillemet
            i += 1
        End While
        Return Split(sb.ToString, "|")
    End Function

A+, Hervé.

[chrismonoye]

Bonsoir,
les expressions régulières peuvent être envisagées dans un cas de recherches différentes comme ici :

Code :

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

1
2
3
4
5
6
7
8
    Private Function SplitPlus(ByVal source As String) As MatchCollection
 
        Dim pattern As String = "(?<=\s)"".+?""(?=\s)|[^\s]+"
        Dim matches As MatchCollection = Regex.Matches(source, pattern)
 
        Return matches
 
    End Function

ne pas oublier de faire l'import suivant :

Code :

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

Imports System.Text.RegularExpressions

Exemple d'utilisation :

Code :

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

1
2
3
        For Each match As Match In SplitPlus(tbxSplitPlus.Text)
            Console.WriteLine(match.Value)
        Next

PS 1 : modif pattern "\b[\w\W-[""\s]]+\b|""[\w\W-[""]]+""" en "(?<=\s)"".+?""(?=\s)|[^\s]+"
La recherche sera insensible aux fautes de frappe ou espaces intempestifs.
Exemple d'occurences trouvées :
J'ai"me les fleurs " mais pas les ro"ses" et toi "tu aimes quoi ?"
C'est tiré par les cheveux, mais montre la puissance des Regex.

[Invité]

Merci pour vos deux réponses