Discussion :

[gastoncs]

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 ?

[tomlev]

Bah je viens de tester ton code, pour moi ça fonctionne bien

Par contre tu vas avoir un problème si par exemple l'adresse contient "Fin"... Tu ferais mieux de traiter ça ligne par ligne, et de t'arrêter quand la ligne entière est égale à "Fin"

[gastoncs]

Oui j'ai fait un parcours ligne par ligne dans une méthode (Affiche_ASCII) qui appel la fonction (Extraction), que voici : (ça doit être ici que ça bug, car parfois ça fonctionne, j’obtiens bien tout avant fin et parfois j obtient plus que le mot fin)

Code :

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

1
2
3
4
5
6
7
8
9
10
 Private Sub Affiche_ASCII()
 
        For Each ligne As String In TextBox2.Text 'dans cette textbx j'ai toutes données avec plusieurs fois le mot Fin
            Try
                TextBox1.Text = Extraction(Textbox2.Text)
            Catch ex As Exception
 
            End Try
        Next
    End Sub

[Bluedeep]

: (ça doit être ici que ça bug, car parfois ça fonctionne, j’obtiens bien tout avant fin et parfois j obtient plus que le mot fin)

C'est limpide .....

[tomlev]

Oui j'ai fait un parcours ligne par ligne dans une méthode (Affiche_ASCII) qui appel la fonction (Extraction), que voici : (ça doit être ici que ça bug, car parfois ça fonctionne, j’obtiens bien tout avant fin et parfois j obtient plus que le mot fin)

Code :

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

1
2
3
4
5
6
7
8
9
10
 Private Sub Affiche_ASCII()
 
        For Each ligne As String In TextBox2.Text 'dans cette textbx j'ai toutes données avec plusieurs fois le mot Fin
            Try
                TextBox1.Text = Extraction(Textbox2.Text)
            Catch ex As Exception
 
            End Try
        Next
    End Sub

Ce code n'a aucun sens, tu n'utilises jamais la variable de boucle... en plus, tu boucles sur les caractères et non sur les lignes. Donc en fait tu exécutes Extraction autant de fois qu'il y a de caractères, ce qui ne sert à rien (une fois suffirait)

[gastoncs]

oui je comprend, mais je ne sais pas comment faire pour boucler sur les lignes !

[tomlev]

Tu peux faire un Split selon le caractère de saut de ligne, mais c'est pas très pratique ; perso je préfère utiliser un StringReader :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Imports System.IO
 
...
 
Using reader As New StringReader(TextBox2.Text)
    Dim line As String = reader.ReadLine()
    While line IsNot Nothing
        ...
        line = reader.ReadLine()
    End While
End Using