Discussion :

[gastoncs]

Bonsoir,

j'ai dans une textbox un texte qui peut se finir par :

ALERTE
Intervention

mais dans certains cas aucun de ces 2 mots apparaissent, et je souhaite récupérer tous le texte avant ces mots ou dans la cas ou le texte ne présente aucun de ces deux mots, le récupéré malgré tous.

j'ai donc fait ceci :

Code :

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

1
2
3
4
  'attente est la chaine de caractère reçu par le port série
  Dim fin1 As Integer = InStr(30, attente, "Intervention")
                Dim fin2 As Integer = InStr(30, attente, "ALERTE")
                TextBox1.Text = Mid(attente, 1, fin2 Or fin2 Or attente.Length)

Mais malheureusement avec mon code, j'obtiens tout le texte même après alerte ou intervention !
pouvez vous m'aider ?

[mdevaux62]

Bonjour,
1) Tu ne précises pas pourquoi la recherche débute à partir du caractère 30.
2) Ta ligne 4 fait référence à une condition qui, ne revoyant que true ou false, se traduira numériquement par 0 ou -1. Ca ne va pas aider à l'extraction de la chaîne !
3) Tu utilises des fonctions VB6 en lieu et place des fonctions .Net. Et ça c'est franchement bofbof...

Ci-joint une portion de code (fonction) qui pourrait peut-être t'aider :

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
 
    Public Function Extraction(ByVal attente As String) As String
        'Je définis les mots à rechercher
        Dim motARechercher1 As String = "intervention"
        Dim motARechercher2 As String = "alerte"
        'Je recherche la position des mots dans le texte (ici à partir de la position 0 et en confondant majuscules et minuscules)
        Dim fin1 As Integer = attente.IndexOf(motARechercher1, 0, System.StringComparison.InvariantCultureIgnoreCase)
        Dim fin2 As Integer = attente.IndexOf(motARechercher2, 0, System.StringComparison.InvariantCultureIgnoreCase)
        'En fonction des valeurs de fin1 et fin2 je retourne la chaîne 
        If fin1 > -1 Then
            Return attente.Substring(0, fin1)
        ElseIf fin2 > -1 Then
            Return attente.Substring(0, fin2)
        Else
            Return attente
        End If
    End Function

[gastoncs]

Merci,

désolé j'ai omis quelques informations, j'ai fait débuté la recherche à 30, car le premier mot de ma textbox est dans tous les cas : "Intervention" et celui ci je dois le garder.
à la ligne 4 la méthode mid est censé me récupéré le texte situé entre 1 et la valeur numérique ou ce trouve fin1 ou fin2