Discussion :

[gastoncs]

Bonsoir

j'ai une textbox1, et dedans je cherche un mot, dans mon cas :
Renseignements complementaires :

j'ai donc fait ceci :

Code :

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

1
2
3
4
5
6
7
8
          Dim renseignement As String = "Renseignements complementaires :"
        Dim test_renseignement As Integer = TextBox1.Text.IndexOf(renseignement)
        If test_renseignement > -1 Then
            'ici j'aurais besoin de déscendre d'une ligne pour récupérer les renseignements
            op_renseignement = 
        Else 'si il n'existe pas 
            op_renseignement = ""
        End If

et moi je souhaite récupérer la ligne en dessous de la ligne ou j'ai Renseignements complementaires : afin de l'affecter à op_renseignement comment puis je faire ?

merci

[Pol63]

si c'est bien des lignes découpées avec un saut de ligne :

Code :

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

1
2
3
4
5
6
7
dim lignes() as string = split(montextbox.text,vbcrlf)
for i as integer = 0 to lignes.count -1
  if lignes(i) = "Renseignements complementaires :" then
    op_renseignement = lignes(i+1)
    ' si tu ne cherches rien d'autre, mettre Exit For
  end if
next

si Renseignements complementaires peut etre la dernière ligne et qu'il n'y a donc pas de ligne après, il faudrait le tester pour ne pas que lignes(i+1) plante

edit après relecture de la question : avec indexof il y a moyen de faire beaucoup plus performant que mon code en effet
si indexof retourne autre chose que -1 c'est qu'il retourne la position du début de ce que tu cherches, tu ajoutes donc la longueur de ce que tu recherches + 2 (vbcrlf c'est 2 caractères) et tu prends ce qu'il y a après jusqu'à un saut de ligne
substring peut aider

[gastoncs]

merci ca fonctionne bien, j'ai juste changé ceci

Code :

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

to lignes.count -1

par ca

Code :

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

To lignes.Length - 1

merci pour ton aide !