Bonsoir,

j'ai crée une fonction pour extraire le texte situé entre un mot et un caractère que voici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
    Public Function Extraction(ByVal attente As String) As String
        Dim motARechercher1 As String = "Intervention"
        Dim motARechercher2 As String = "Fin"
        Dim fin1 As Integer = attente.IndexOf(motARechercher1, 0, System.StringComparison.InvariantCultureIgnoreCase)
        Dim fin2 As Integer = attente.IndexOf(motARechercher2, 0)
        Return attente.Substring(fin1, fin2)
    End Function
Lorsque la variable "attente" ce présente de ce façon pas de problème :

Intervention 95407639
transfert hospitalier
urgent
3 rue des lilas
Fin


Mais parfois il arrive que "attente" se présente de cette façon :

Intervention 95407639
transfert hospitalier
urgent
3 rue des lilas
Fin
Intervention 95407656
transfert intra-hospitalier
urgent
3 rue de la république
Fin


et dans ce cas je récupère tous le texte alors que je voudrais récupéré seulement le texte situé avant la première apparition de "Fin", ceci :

Intervention 95407639
transfert hospitalier
urgent
3 rue des lilas
Fin

auriez vous une idée à me donner ?