Discussion :

[Mikiman]

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

[LaChips]

Salut,
La méthode .Trim(Tab())
permet de retirer les chaînes que tu passes dans le tableau Tab()

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

[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

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

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

[Mikiman]

Salut,

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

Code :

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

1
2
3
4
pos1 = taChaine.IndexOf("ab")
pos2 = taChaine.IndexOf("ef")
 
taNouvelleChaine = taChaine.Substring(pos1 +2, pos2 - pos1 -2);

Bonne journée

[neguib]

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 :

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

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

copyright : neguib & StormimOn associés