Récupérer le array de paypal

http://regexstorm.net/tester?p=%5c%5bmc_gross%28%5cd*%29%5c%5d%5cs%2b%3d%3e%5cs%2b%28%3f%3cprix%3e%5cd%2b%5c.%5cd%7b2%7d%29.%2b%5c%5bitem_name%5c1%5c%5d%5cs%2b%3d%3e%5cs%2b%28%3f%3carticle%3e%5b%5cw+%5d%2b%29.%2b%5c%5bquantity%5c1%5c%5d%5cs%2b%3d%3e%5cs%2b%28%3f%3cquantite%3e%5cd%2b%29&i=++++%5bmc_gross1%5d+%3d%3e+49.99%0d%0a++++%5bitem_name1%5d+%3d%3e+ECRAN+ASUS+VK193D%0d%0a++++%5bquantity1%5d+%3d%3e+1%0d%0a++++%5bmc_gross2%5d+%3d%3e+119.96%0d%0aDu+texte+au+mileu%0d%0a++++%5bitem_name2%5d+%3d%3e+CLAVIER+ASUS%0d%0aEt+l%c3%a0+aussi%0d%0aEt+encore++++%5bquantity2%5d+%3d%3e+4%0d%0a&o=s

il y a t'il pas un moyen de faire lire le document et que quand cela lit par exemple item name 1 et bien cela sélectionne l'article ?

http://regexstorm.net/tester?p=%5c%5bitem_name%28%5cd%2b%29%5c%5d%5cs%2b%3d%3e%5cs%2b%28%3f%3carticle%3e%5b%5cw+%5d%2b%29.%2b%5c%5bquantity%5c1%5c%5d%5cs%2b%3d%3e%5cs%2b%28%3f%3cquantite%3e%5cd%2b%29.%2b%5c%5bmc_gross_%5c1%5c%5d%5cs%2b%3d%3e%5cs%2b%28%3f%3cprix%3e%5cd%2b%5c.%5cd%7b2%7d%29&i=Array%0d%0a%28%0d%0a++++%5baddress_city%5d+%3d%3e+VILLE%0d%0a++++%5bverify_sign%5d+%3d%3e+An9hM76wM2U3wzRYjt6.GGRJApCP3kb8Hzs15Fyhu-rrUE%0d%0a++++%5bpayer_email%5d+%3d%3e+autre%40autre.fr%0d%0a++++%5btxn_id%5d+%3d%3e+6K9278121V%0d%0a++++%5bpayment_type%5d+%3d%3e+instant%0d%0a++++%5blast_name%5d+%3d%3e+WILSON%0d%0a++++%5bitem_name1%5d+%3d%3e+ECRAN+ASUS+VK193D%0d%0a++++%5baddress_state%5d+%3d%3e+%0d%0a++++%5breceiver_email%5d+%3d%3e+mail%40mail.fr%0d%0a++++%5bpayment_fee%5d+%3d%3e+%0d%0a++++%5bshipping_discount%5d+%3d%3e+0.00%0d%0a++++%5bquantity1%5d+%3d%3e+1%0d%0a++++%5binsurance_amount%5d+%3d%3e+0.00%0d%0a++++%5breceiver_id%5d+%3d%3e+PDL8NVAEN%0d%0a++++%5btxn_type%5d+%3d%3e+cart%0d%0a++++%5bdiscount%5d+%3d%3e+0.00%0d%0a++++%5bmc_gross_1%5d+%3d%3e+49.99%0d%0a++++%5bmc_currency%5d+%3d%3e+EUR%0d%0a++++%5bresidence_country%5d+%3d%3e+FR%0d%0a++++%5bshipping_method%5d+%3d%3e+Default%0d%0a++++%5btransaction_subject%5d+%3d%3e+%0d%0a++++%5bpayment_gross%5d+%3d%3e+%0d%0a++++%5bipn_track_id%5d+%3d%3e+8727780cde%0d%0a%29%0d%0a&o=s

    [item_name1] => ECRAN ASUS VK193D 'item1
    [receiver_email] => mail@mailfr
    [item_name2] => Acer aspire M1100                     'item2
    [payment_fee] => 
    [item_name3] => Ordi portable ASUS                                      'item3
    [shipping_discount] => 0.00
    [quantity1] => 1                                           'item1
    [insurance_amount] => 0.00
    [quantity2] => 1                                                           'item2
    [receiver_id] => PDL8AEN
    [quantity3] => 2                                                                            'item3
    [txn_type] => cart
    [discount] => 0.00
    [mc_gross_1] => 49.99                             'item1
    [mc_currency] => EUR
    [mc_gross_2] => 149.99                                             'item2
    [mc_gross_3] => 760.02                                                             'item3
    [residence_country] => FR
    [shipping_method] => Default
    [transaction_subject] => 
    [payment_gross] => 
    [ipn_track_id] => b05dae

• les datas clients
• une boucle pour les articles

Class Article
    Public Property Designation As String
    Public Property Quantite As Integer
    Public Property Prix As Double
End Class

Class Commande
    Public Property Nom As String
    Public Property Prenom As String
    Public Property Adresse As String
    Public Property CP As Integer
    Public Property Ville As String
    Public Property Articles As List(Of Article)
End Class

    Dim patternAcheteur As String = "\[address_street]\s+=>\s+(?<adresse>[\w ]+).*\[address_zip]\s+=>\s+(?<cp>[\w ]+).*\[first_name]\s+=>\s+(?<prenom>[\w ]+).*\[address_city]\s+=>\s+(?<ville>[\w ]+).*\[last_name]\s+=>\s+(?<nom>[\w ]+)" 'modèle de recherche des datas acheteur

    Dim commande As String = File.ReadAllText("test.txt") 'lecture du fichier

    Dim m As Match = Regex.Match(commande, patternAcheteur, RegexOptions.Singleline) 'passage dans la regex
    Dim c As Commande = Nothing

    If m.Success Then 'si la regex capture les datas on crée l'instance de Commande
        c = New Commande()
        c.Adresse = m.Groups("adresse").Value
        c.CP = Convert.ToInt32(m.Groups("cp").Value)
        c.Nom = m.Groups("nom").Value
        c.Prenom = m.Groups("prenom").Value
        c.Ville = m.Groups("ville").Value
        c.Articles = New List(Of Article)()
        Dim numero As Integer = 1

        While True 'boucle pour les articles
            Dim patternArticle As String = String.Format("\[item_name({0})", numero) & "\]\s+=>\s+(?<article>[\w ]+).+\[quantity\1\]\s+=>\s+(?<quantite>\d+).+\[mc_gross_\1\]\s+=>\s+(?<prix>\d+\.\d{2})" 'modèle de recherche dont le numéro change à chaque itération

            m = Regex.Match(commande, patternArticle, RegexOptions.Singleline) 'passage dans la regex

            If m.Success Then 'si elle trouve une occurence, on enregistre l'article
                Dim a As Article = New Article()
                a.Designation = m.Groups("article").Value
                a.Prix = Convert.ToDouble(m.Groups("prix").Value, CultureInfo.InvariantCulture)
                a.Quantite = Convert.ToInt32(m.Groups("quantite").Value)
                c.Articles.Add(a)
                numero += 1
            Else' sinon on sort de la boucle
                Exit While
            End If
        End While
    End If

    If c Is Nothing Then
        MessageBox.Show("La première regex n'a pas trouvé d'occurence")
    ElseIf c.Articles.Count = 0 Then
        MessageBox.Show("La deuxième regex n'a pas trouvé d'occurence")
    End If

"\[address_street]\s+=>\s+(?<adresse>[\w ]+).*"

'[ est un caractère clé dans la syntaxe regex, or je cherche vraiment ce caractère,
'il faut l'associer avec \ pour le signaler à la regex. On appelle cela "échapper" 
"\["

'ensuite je cherche littéralement address_street donc je le mets
"\[address_street"

'] est aussi un caractère clé, mais il doit être précédé d'un [.
'or on a échappé le [ donc la regex ne prend pas ] pour une "fermeture"
"\[address_street]"

'ensuite, on vois qu'il y a plusieurs espaces ou tabulations \s correspond à un espacement,
'il doit y en avoir au moins 1, mais il n'y a pas de limite haute, on signifie cela par un +
"\[address_street]\s+"

'ensuite on cherche littéralement => et encore un ou plusieurs espacements
"\[address_street]\s+=>\s+"

'maintenant on en arrive au texte que l'on veut extraire, pour cela il suffit de le mettre dans un groupe.
'Un groupe est délimité par ( ). En .Net (et dans de nombreux autres moteurs, mais pas tous)
'on peut donner un nom à un groupe, le nom est délimité par ?< > . Finalement le modèle
'que l'on cherche se trouve entre > et )
'en gros
"(?<NomDuGroupe>Modèle)"

'pour le modèle, on cherche des mots séparés par des espaces, j
''aurais pu écrire, a ou b ou c ou d .... ou A ou B .... plusieurs fois comme cela
"(a|b|c....A|B...)+"

'C'est un peu long
'pour réduire un peu, tout ce qui est écrit entre [] est considéré comme une suite de ou
"[abc....AB...]+"
'mais c'est encore long, alors on peut mettre des ensemble par exemple
'tout ce qui va de a à z inclus (dans l'ordre du tableau ASCII), puis de A à Z
"[a-zA-Z]+"
'Bon là on exclut les accents, les cédilles, les tildes etc.. et les chiffres et dans les adresses
'des chiffres, il y en a. Si on veut inclure tout ca, on arrive à \w qui comprend tous les caractères
'alphanumériques et le point. Donc on veut \w ou un espace plusieurs fois
"[\w ]+"

'ce qui dans un groupe nommé "adresse" donne
"(?<adresse>[\w ]+)"

'Après cela, il faut capturer tout ce qui se trouve entre la fin de l'adresse et la data
'à extraire suivante. Le . veut dire tout et n'importe quoi sauf un saut de ligne.
'Mais des sauts de ligne on en a plein. Soit à chaque fois on met [.\n] le \n signifiant une saut
'de ligne, soit dire à la regex de traiter le texte comme s'il était écrit sur une seule ligne.
'C'est le rôle de l'option SingleLine
'Comme on ne sait pas combien de fois on devra trouver tout et n'importe quoi,
'on lui donne le quantifieur * qui veut dire de 0 à n
"\[address_street]\s+=>\s+(?<adresse>[\w ]+).*"

Dim patternAcheteur As String = "\[address_street]\s+=>\s+(?<adresse>[\w ]+).*\[address_zip]\s+=>\s+(?<cp>[\w ]+).*\[first_name]\s+=>\s+(?<prenom>[\w ]+).*\[address_city]\s+=>\s+(?<ville>[\w ]+).*\[last_name]\s+=>\s+(?<nom>[\w ]+)" 'modèle de recherche des datas acheteur

\[first_name]\s+=>\s+(?<prenom>[\w ]+).*
\[last_name]\s+=>\s+(?<nom>[\w ]+).*
\[payer_email]\s+=>\s+(?<email>[\w ]+).*
\[address_name]\s+=>\s+(?<raisonsocial>[\w ]+).*
\[address_street]\s+=>\s+(?<adresse>[\w ]+).*
\[address_zip]\s+=>\s+(?<cp>[\w ]+).*
\[address_city]\s+=>\s+(?<ville>[\w ]+).*
\[address_country]\s+=>\s+(?<pays>[\w ]+).*
\[mc_currency]\s+=>\s+(?<devise>[\w ]+).*
\[payment_date]\s+=>\s(?<paiementdate>[\w ]+).*
\[payment_status]\s+=>\s(?<paiementstatus>[\w ]+)