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

[gastoncs]

ok, et ou est ce que je place mon mot de début (Intervention) et de fin (Fin) entre lesquels je dois extraire ?

[tomlev]

Bon, on va reprendre depuis le début, parce je sais pas si j'ai bien compris ce que tu voulais...

Tu as un texte comme ça :

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

Et tu veux en extraire ça :

Intervention 95407639
transfert hospitalier
urgent
3 rue des lilas

Mais qu'est-ce que tu fais du texte qui suit ? Tu veux pas extraire les infos de la 2e intervention ?

[gastoncs]

exactement c'est bien ça !

[BenoitM]

de plus pq ne pas extraire les informations dans une classes "Transfert"
{
long NoIntervention
string TypeTransfert
string Severité
string Adresse
}

[gastoncs]

je fais le traitement un peu plus loin dans les informations que je récupère !

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
 
 
 
 'adresse
                    Dim debut_adresse As Integer = TextBox1.Text.IndexOf("Adresse : ")
                    If debut_adresse = -1 Then
                        adresse_s = "inconnue"
                    Else
                        debut_adresse = debut_adresse + 10
                        Dim fin_adresse As Integer = TextBox1.Text.IndexOf(ControlChars.NewLine, debut_adresse)
                        If fin_adresse = -1 Then
                            adresse_s = "inconnue"
                        Else
                            Dim longeur_adresse As Integer = fin_adresse - debut_adresse
                            adresse_s = TextBox1.Text.Substring(debut_adresse, longeur_adresse)
                        End If
                    End If
                    'nature
                    Dim debut_nature As Integer = TextBox1.Text.IndexOf("Nature : ")
                    If debut_nature = -1 Then
                        motif_depart = "inconnue"
                    Else
                        debut_nature = debut_nature + 9
                        Dim fin_nature As Integer = TextBox1.Text.IndexOf(ControlChars.NewLine, debut_nature)
                        If fin_nature = -1 Then
                            motif_depart = "inconnue"
                        Else
                            Dim longeur_nature As Integer = fin_nature - debut_nature
                            motif_depart = TextBox1.Text.Substring(debut_nature, longeur_nature)
                        End If
                    End If
                    'severite
'etc......

mais pour ce faire il faut que j'arrive à recupéré seulement ce que j'ai entre Intervention et Fin !

[BenoitM]

Tu as toujours le meme nombre de champs?
NoIntervention
TypeTransfer
Urgent
Adresse
ou certains sont optionel?

[gastoncs]

malheureusement certains son optionnel, je cherche juste à récupérer les lignes entre les lignes contenants "Intervention" et "Fin".

j'ai essayé ceci, ainsi j'affiche dans une boite de dialogue chaque ligne, il me reste à trouver le moyen pour afficher seulement les lignes entre "Intervention" et "Fin" :

Code :

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

1
2
3
4
5
6
7
        Using reader As New StringReader(TextBox2.Text)
            Dim line As String = reader.ReadLine()
            While line IsNot Nothing
                line = reader.ReadLine()
                MsgBox(line)
            End While
        End Using

Pour le traitement qui suit afin de récupérer les données pas de problème.

[BenoitM]

Je ferai quelque chose du genre

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
Dim arrStr() As String = textBrut.Split(Environment.NewLine)
Dim listTransfert As List(of Transfert) = new List(of Transfer)()
Dim transfert  As Transfert
Dim i As Integer = 0;
ForEach(line in arrStr)
{
if(larrStr[i].Contain(Intervention))  then
{
transfer = new Tranfert()
transfer.ListLines = new List(of String)
transfer.ListLines.Add(line)
}
else if(line="Fin") then
{ 
transfert.ConvertLine();
listTransfert.Add(transfert)
}
else
transfer.ListLines.Add(line)
 
}
}

[gastoncs]

j'ai essayé ton code Benoit M, mais trop complexe pour moi !

pour faire plus simple, si je fais ceci :

Code :

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

1
2
3
4
5
6
7
        Dim unique As String
        For Each ligne As String In TextBox2.Text.Split(ControlChars.NewLine)
            If ligne.Contains("Intervention") Then
 
            End If
 
        Next

je repère la ligne qui contient intervention ce que j'ai fait maintenant il faut que je trouve celle ou il y a Fin et que j'extrait dans ma variable unique tous ce qui se trouve entre !

[tomlev]

Moi j'aurais fait ça :

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
    Public Function Extraction(ByVal attente As String) As String
        Using reader As New StringReader(attente)
            Dim result As StringBuilder = Nothing
            Dim line As String = reader.ReadLine()
            While line IsNot Nothing
                If line.StartsWith("Intervention") Then
                    result = New StringBuilder()
                End If
                If line = "Fin" Then
                    Exit While
                End If
                If result IsNot Nothing Then
                    result.AppendLine(line)
                End If
                line = reader.ReadLine()
            End While
            If result IsNot Nothing Then
                Return result.ToString()
            Else
                Return Nothing
            End If
        End Using
    End Function
 
 
    ...
 
    TextBox1.Text = Extraction(TextBox2.Text)

[tomlev]

j'ai essayé ton code Benoit M, mais trop complexe pour moi !

C'est surtout un mélange de VB.NET et de C#, donc ça veut pas dire grand chose... on va dire que c'est du pseudo code

[MABROUKI]

bonjour gastoncs
Quelque soit le texte à analyser ,il faudrait tout d'abord utiliser LastIndexOf qui permet de se positionner en fin de chaine ....
Ensuite on remonte -à rebours- en cherchant avec EndsWith et LastIndexOf
Voici comment il faudrait revoir extraction que microsoft prefere appeler StripEndTags...
le code:

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
 
Public Class Form1
    'textbox2 contient ton texte a analyser
    'textbox1 contient le resulat souhaite
    Private Sub btnSearchString_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearchString.Click
 
        textBox1.Text = StripEndTags(TextBox2.Text)
 
    End Sub
    'Fonction extract qui cherche -à rebours- en partant du dernier texte "Fin" trouve
    'et remonte en arriere jusqu'à ce qu'elle trouve le premier texte "Intervention" 
    Private Shared Function StripEndTags(ByVal item As String) As String
 
        ' try to find a tag "Fin" at the end of the line using EndsWith
        If item.Trim().EndsWith("Fin") Then
 
            ' now search for the opening tag "Intervention"...
            Dim lastLocation As Integer = item.LastIndexOf("Intervention")
            If lastLocation >= 0 Then
                ' remove the non-identified section, if it is a valid region
                item = item.Substring(lastLocation, item.Length - lastLocation)
            End If
        End If
 
        Return item
    End Function 'StripEndTags

bon code..............

[gastoncs]

merci tomlev ça fonctionne bien quand Intervention est seul mais lorsque il y a un numéro derrière ça ne fonctionne pas !
comment puis je modifier ça ?