[VB.Net] Comment extraire un texte entre deux arguments ?

Version imprimable

16/08/2006, 20h19
Mikiman

[VB.Net] Comment extraire un texte entre deux arguments ?

Bonjour,

J'aimerai savoir comment faire pour trouver un texte dans une chaîne entre deux arguments.

Je m'explique.
Imaginons qu'on ai une variable variable1 ayant comme contenu : abcdefghijkl
Maintenant je cherche le contenu se trouvant entre abc et jkl soit defghi.
Y'a-t'il une méthode en VB.Net qui permet d'obtenir un tel résultat ?

Merci d'avance
Cordialement
Michaël
16/08/2006, 22h07
LaChips

Salut,
La méthode .Trim(Tab())
permet de retirer les chaînes que tu passes dans le tableau Tab()
16/08/2006, 23h33
Mehdi Feki

Ce n'est pas trop clair, dans ce cas "abc***abc***jkl***abc**jkl" qu'est ce qui se passe ? Est-ce que abc et jkl sont toujours en debut et fin du string ?
17/08/2006, 05h28
Mikiman

En fait j'aurai besoin de trouver une méthode pour récuperer le texte se situant entre deux arguments.

Par exemple dans la variable variable1 qui a pour contenu abcdef, je met comme premier argument ab et comme deuxième argument ef.
Il me renvoi le texte se trouvant entre ces deux arguments soit cd.

Existe-t'il une fonction qui permet de faire celà ?
Merci d'avance
Cordialement
17/08/2006, 13h19
Mehdi Feki

Salut,

t'as pas tout à fait repondu à ma question mais c'est pas grave.
Tu peux regargder la fonction Split dans l'exemple 2c)

Citation:

string [] result = s2.Split(stringSeparators, StringSplitOptions.RemoveEmptyEntries);

Mais dans ton cas avec un string en entrée "abeeabcdef" elle va te retourner "ee" et "cd" parce que ee est delimité par ab de droite et de gauche.

Sinon regarde de coté des expressions regulieres, c'est la meilleure facon d'extraire les sous-strings
17/08/2006, 13h54
Mikiman
Salut,

Un ami m'a donné la solution.
Je vous la laisse sa peut toujours être utile à quelqu'un :)
Code:

1 2 3 4 pos1 = taChaine.IndexOf("ab") pos2 = taChaine.IndexOf("ef") taNouvelleChaine = taChaine.Substring(pos1 +2, pos2 - pos1 -2);
Bonne journée
17/08/2006, 14h00
Mehdi Feki

Non elle n'est pas bonne ta solution, si ta chaine contient ef avant ab (du genre "ef**abcdef") tu vas avoir dans ce cas une exception.

Citation:
Envoyé par Mikiman
Salut,

Un ami m'a donné la solution.
Je vous la laisse sa peut toujours être utile à quelqu'un :)
Code:

1 2 3 4 pos1 = taChaine.IndexOf("ab") pos2 = taChaine.IndexOf("ef") taNouvelleChaine = taChaine.Substring(pos1 +2, pos2 - pos1 -2);
Bonne journée
Bon je vois un souci peut être car imagine la chaîne par exemple :

Citation:

abcabdefghi

tu obtiendras certainement (;) j'ai testé)

Citation:

cabdefg

donc tu n'obtiens pas la chaîne minimale comprise entre les bornes
Dans ce cas, je suggère une fonction de ce type
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public Shared Function ExtraireChaineMimale(ByVal chaine As String, _ ByVal borneDepart As String, ByVal borneFin As String) As String If (Not chaine.Contains(borneDepart)) _ OrElse (Not chaine.Contains(borneFin)) Then Return String.Empty Dim indexdepart As Integer = chaine.LastIndexOf(borneDepart) indexdepart += borneDepart.Length Dim longueur As Integer = chaine.IndexOf(borneFin) - indexdepart Return chaine.Substring(indexdepart, longueur) End Function

17/08/2006, 17h57
Mehdi Feki
Re salut,

Neguib, vous pouvez avoir une exception avec votre code (une longueur negative) dans le cas ou il y a un ab apres le ef.

La meilleure solution est les expressions regulieres, aller je m'y mes :
Code:

1 2 3 Dim m As Match = Regex.Match(input, "ab(?<mot>.*)ef") Console.WriteLine(m.Groups(1))
Dans ce cas tu vas recuperer un la substring entre la premiere occurence de ab et la derniere de ef ou une chaine vide s'il y en a pas

Citation:

Envoyé par mehdi_tn

...
Neguib, vous pouvez avoir une exception avec votre code (une longueur negative) dans le cas ou il y a un ab apres le ef.

Bien vu ;) celà est aisément résolvable par une conditionnelle qui permettrait de raccourcir la chaine à partir de la borne de départ mal placée
Par contre, bien que d'accord sur le principe de l'utilisation de RegularExpressions.dll, c'est loin d'être prouvé que c'est la voie à prendre systématiquement. Cela peut s'avérer beaucoup moins rapide sur certains cas de figure. La proposition que j'ai avancé permettait d'obtenir la chaîne minimale ;) ta suggestion fait exactement la même chose que ce qu'avait déjà trouvé Mikiman et celà pour un même temps d'execution :)
Donc pourrais-tu proposé l'expression régulière qui obtiendrait la chaîne minimale stp :merci:

Par exemple voici un exemple de code qui s'execute (et qui fonctionne sans exception cette fois) dans la même milliseconde
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Public Shared Function ExtraireToutesChaines(ByVal chaine As String, ByVal borneDepart As String, ByVal borneFin As String) As String Dim s As String = ExtraireChaine(chaine, borneDepart, borneFin) Dim result As New List(Of String)() If Not s = String.Empty Then While Not s = String.Empty result.Add(s) s = ExtraireChaine(s, borneDepart, borneFin) End While End If Return String.Join(Environment.NewLine, result.ToArray()) End Function ' Private Shared Function ExtraireChaine(ByVal chaine As String, ByVal borneDepart As String, ByVal borneFin As String) As String If (Not chaine.Contains(borneDepart)) _ OrElse (Not chaine.Contains(borneFin)) Then Return String.Empty Dim indexdepart As Integer = chaine.IndexOf(borneDepart) + borneDepart.Length Dim longueur As Integer = chaine.LastIndexOf(borneFin) - indexdepart If longueur <= 0 Then Return String.Empty Return chaine.Substring(indexdepart, longueur) End Function
Utilisée par exemple avec la chaine

Citation:

...)(myValue = (myFunction(myParameter,myVar)* myConst))(...

et les délimitateur "(" et ")", j'obtiens bien

Citation:

myValue = (myFunction(myParameter,myVar)* myConst)
myFunction(myParameter,myVar)* myConst
myParameter,myVar

Comment ferais-tu avec Regex :question: stp

18/08/2006, 15h02
Mehdi Feki

Salut,

Oui vous avez raison Neguib, je n'avais pas pensé au temps d'excution, mais plutot à eviter de tester sur les differents cas de figure qui peuvent mener à des exceptions.

Je ne suis pas vraiment un As des RegExp, mais je vais essayer, juste je voulais savoir ce que vous entendez dire par chaîne minimale : c'est bien la chaine entre la derniere occurence de ab et la premiere de ef qui la suit :? ?
18/08/2006, 15h09
neguib

Citation:

Envoyé par mehdi_tn

Salut,

Oui vous avez raison Neguib, je n'avais pas pensé au temps d'excution, mais plutot à eviter de tester sur les differents cas de figure qui peuvent mener à des exceptions.

Je ne suis pas vraiment un As des RegExp, mais je vais essayer, juste je voulais savoir ce que vous entendez dire par chaîne minimale : c'est bien la chaine entre la derniere occurence de ab et la premiere de ef qui la suit :? ?

J'ai édité mon post pour te donner un exemple à faire correspondre si possible avec Regex, comme c'est sur une chaine courte je ne crois pas que Regex sera plus rapide mais sait-on jamais :)
18/08/2006, 16h33
Mehdi Feki

Je crois que vous encore un pobleme, par exemple pour une chaine d'entree "****)****(***" mais ca peut encore une fois se resoudre facilement.

Bon pour une solution en RegEx pour ce que vous proposez est assez complexe parce que les RegEx ne sont pas faites pour resoudre des problemes itératifs (ou recursif) comme c'est le cas ici, je vais comme meme esayer de trouver une solution.

A+
18/08/2006, 16h55
m-mas

excellent mehdi et neguib :applo:

comment un petit problème simple se transforme en une discussion à valeur ajoutée.
18/08/2006, 17h01
neguib

Citation:

Envoyé par mehdi_tn

Je crois que vous encore un pobleme, par exemple pour une chaine d'entree "****)****(***" mais ca peut encore une fois se resoudre facilement...
A+

oui c'est :resolu: ;)
Sinon je me demandais en fait comment utiliser peux-être les fonctionnalités de Groups et Captures , qu'en penses-tu ? ne serait-ce pas la piste mais j'avoue que pour la formulation du pattern je suis plutôt nul :)

Rapidement, j'ai trouvé ca mais ce n'est pas ce qui est demandé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 public static void ExtraireChaine(string chaine, string BorneInf, string BorneSup)
        {
            Regex r = new Regex(@BorneInf + "(?<mot>.*)" + BorneSup);
            Match m = r.Match(chaine);
            string res = m.Groups["mot"].Value;
            if (!res.Equals(string.Empty))
            {
                Console.WriteLine(res);
                ExtraireChaine(res, BorneInf, BorneSup);
            }
        }

18/08/2006, 20h05
Mehdi Feki

Je crois que j'abondonne :triste: , trouver une solution avec une seule expression, c'est assez dûr. un truc du genre "(aaa)(bbbb)(cccc)" c'est simple mais pas ce cas.

En fin de compte ce n'est pas si mal d'utiliser les methodes de string :rire:
18/08/2006, 21h06
neguib

Bon on s'y est mis avec StormimOn et la piste devient très sérieuse. j'ai besoin de me reposer pour l'instant, je poste çà demain. Cependant tu as (j'avais ;)) raison pas de réelle différence notoire pour le gain de performance :)
19/08/2006, 00h21
Mehdi Feki

Citation:

Envoyé par neguib

Bon on s'y est mis avec StormimOn et la piste devient très sérieuse.

Aller courage, vous pouvez le faire, je serais au rendez-vous demain pour voir la solution

Citation:

Envoyé par neguib

Cependant tu as (j'avais ;)) raison pas de réelle différence notoire pour le gain de performance :)

En fait on peut ameliorer la performance de l'execution de regexp avec l'option Compiled

Citation:

Envoyé par msdn2

Spécifie que l'expression régulière sera compilée dans un assembly. Génère le code MSIL (Microsoft Intermediate Language) correspondant à l'expression régulière ; entraîne une exécution plus rapide aux dépens du temps de démarrage.

Bon voilà un code générique qui permet pour l'instant d'obtenir systématiquement l'occurence minimale mais ceci ne fonctionne pour celà que sur des chaines ne contenant que des sous-chaines avec delimitateurs imbriquées les unes dans les autres. il reste donc à améliorer dans le cas de sous chaînes adjoints au même niveau ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Public Shared ReadOnly CaracteresSpecifiques() As Char = _
  {"("c, ")"c, "["c, "]"c, "."c, "^"c, "$"c, "*"c, "?"c, "+"c}
 
Public Shared Function ExtraireChaineMinCompiled( _
  ByVal chaine As String, ByVal borneDepart As String, _
  ByVal borneFin As String) As String
        borneDepart = PreparerChaine(borneDepart)
        borneFin = PreparerChaine(borneFin)
 
        Dim pattern As New StringBuilder(".*(")
        pattern.Append(borneDepart)
        pattern.Append(")(?<result>[^(")
        pattern.Append(borneDepart)
        pattern.Append(")(")
        pattern.Append(borneFin)
        pattern.Append(")]*)(")
        pattern.Append(borneFin)
        pattern.Append(").*")
        Dim m As Match = New Regex(pattern.ToString(), _
 RegexOptions.Compiled).Match(chaine)
        If m.Groups("result").Value = String.Empty Then Return _
pattern.ToString()
        Return m.Groups("result").Value
End Function
 
Private Shared Function PreparerChaine(ByVal chaine As String) As String
        If Array.IndexOf(CaracteresSpecifiques, CChar(chaine)) > -1 Then
            Dim sb As New StringBuilder("(\")
            sb.Append(chaine)
            sb.Append(")")
            Return sb.ToString()
        End If
        Return chaine
End Function

19/08/2006, 16h38
Mehdi Feki

Salut ,
Je comprends plus rien, quand je vous ai demandé ce que vous entendez dire par chaine minimale vous avez repondu :

Citation:

Envoyé par neguib

Utilisée par exemple avec la chaine

Citation:

...)(myValue = (myFunction(myParameter,myVar)* myConst))(...

et les délimitateur "(" et ")", j'obtiens bien

Citation:

myValue = (myFunction(myParameter,myVar)* myConst)
myFunction(myParameter,myVar)* myConst
myParameter,myVar

Mais votre solution retourne la derniere chaine à partir de gauche entre les delimtateurs, c'est bien ca ??

A part ca le pattern à l'air (sans doute :mrgreen: ) bien formulé
20/08/2006, 12h57
neguib

Citation:

Envoyé par mehdi_tn

Salut ,
Je comprends plus rien, quand je vous ai demandé ce que vous entendez dire par chaine minimale vous avez repondu :

Mais votre solution retourne la derniere chaine à partir de gauche entre les delimtateurs, c'est bien ca ??

A part ca le pattern à l'air (sans doute :mrgreen: ) bien formulé

Oui suis_je bête je t'ai mis le resultat d'un autre test qui m'avait mis sur la voie des groupes imbriqués donc j'obtiens bien

Citation:

myParameter,myVar

:mouarf: donc nous avons également la méthode qui retrouve tous les groupes imbriqués dont tu a vu le resultat anticipé et cela en une seule passe. En même temps toujours pas de différence significative en terme de performance. Pour ce qui est des groupes non imbriqués StormiOn a trouv le pattern pour retrouver les groupes minimaux mais nous planchons sur les groupes englobant qui reste encore introuveble via regexp. On s'accroche :)

Citation:

Envoyé par neguib

je t'ai mis le resultat d'un autre test qui m'avait mis sur la voie des groupes imbriqués

Ah ok vous me rassurez

Pour obtenir les groupes minimaux, j'ai utilisé ce pattern
Biensure à remplacer "\(" par borne inf et "\)" par borne Sup
Code:

1 2 3 4 5 MatchCollection mc = Regex.Matches(InputString, @"\((?<mot>[^\)\(]*)\)"); for (int i = 0; i < mc.Count; i++) { Console.WriteLine(mc[i].Groups["mot"].Value); }
PS: Je viens de verifier avant de poster et apparament c'est le meme pattern que vous utiliser avec moins de groupe et sans les .* :mouarf:

Edit :

Citation:

Envoyé par neguib

mais nous planchons sur les groupes englobant qui reste encore introuveble via regexp

Bon courage mais franchement je ne crois pas que c'est possible, parce que une fois que le RegExp a trouvé le premier groupe englobant, il le classe comme solution et ne l'utilise plus pour verifier s'il y a un groupe dedans, donc il faut trouver un moyen d'utiliser une recursivité avev la RegExp,

J'ai trouvé un article qui parle de la recursivité des RegEcp en Perl , mais j'ai pas encore testé en Dot Net :

Regexp Power

Citation:

Envoyé par mehdi_tn

Bon courage mais franchement je ne crois pas que c'est possible, parce que une fois que le RegExp a trouvé le premier groupe englobant, il le classe comme solution et ne l'utilise plus pour verifier s'il y a un groupe dedans

C'est le problème en effet, je ne pense pas que les expressions régulières soient la solution si l'on souhaite obtenir tous les groupes, sans exceptions, se trouvant entre les délimiteurs. Pour les groupes "minimaux" voici la version finale ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Sub Main()
    Dim results As String() = Test.ExtraireChaineMinCompiled("myValue = _
            myFunction(myParameter,myVar)*(myConst)", "(", ")")
End Sub
 
Public Class Test
    Public Shared Function ExtraireChaineMinCompiled( _
      ByVal chaine As String, ByVal borneDepart As String, _
      ByVal borneFin As String) As String()
        borneDepart = PreparerChaine(borneDepart)
        borneFin = PreparerChaine(borneFin)
 
        Dim pattern As New StringBuilder(borneDepart)
        pattern.Append("(?<output>[^")
        pattern.Append(borneDepart)
        pattern.Append(borneFin)
        pattern.Append("]*)")
        pattern.Append(borneFin)
        Dim matchColl As MatchCollection = _
  New Regex(pattern.ToString(), RegexOptions.Compiled And _
  RegexOptions.ExplicitCapture).Matches(chaine)
        If (matchColl.Count > 0) Then
            Dim tabString(matchColl.Count - 1) As String
            Dim i As Integer = 0
            While i < matchColl.Count
                tabString(i) = matchColl(i).Groups("output").Value
                i += 1
            End While
            Return tabString
        Else
            Return Nothing
        End If
    End Function
 
    Private Shared ReadOnly CaracteresSpecifiques() As Char = _
        {"("c, ")"c, "["c, "]"c, "."c, "^"c, "$"c, "*"c, "?"c, "+"c}
 
    Private Shared Function PreparerChaine(ByVal chaine As String) As _
    String
        If Array.IndexOf(CaracteresSpecifiques, CChar(chaine)) > -1 Then
            Dim sb As New StringBuilder("(\")
            sb.Append(chaine)
            sb.Append(")")
            Return sb.ToString()
        End If
        Return chaine
    End Function
End Class

20/08/2006, 14h08
Mehdi Feki

J'utilise les groupes parce que ca me permet d'obtenir exactement la chaine dont j'ai besoin, ca m'eviterais les differents Replace, mais bon chacun a son point de vue, l'essentiel est qu'on a compris les limites des RegExps

Edit : Oops désolé je n'ai pas vu l'edit