Discussion :

[pascb423]

Bonjour,
j'ai un fichier ini qui contient ca:

[Prochain entretien]
Atelier Mr24;Tour Schaublin n°1;changer l'huile=23.10.2019
Atelier Mr30;Fraiseuse 213 n°1;évaluation=14.12.2018
Atelier Mr24;Tour Schaublin n°1;évaluation de la poupée=15.10.2018

et j'aimerai récupérer tout ce qu'il y a dans la clà Prochain entretien et le mettre dans une combobox, merci

[Delaney]

tu lis ton fichier jusqu'à trouver ton critère de sélection :

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
 Dim filename As String
        Dim ligne As String
        Dim result As DialogResult = OpenFileDialog1.ShowDialog()
        If result = System.Windows.Forms.DialogResult.OK Then
            filename = OpenFileDialog1.FileName
        End If
 
 
        Dim sr As StreamReader = New StreamReader(Filename)
        While sr.EndOfStream = False
            ligne = sr.ReadLine()
            If ligne = "[Prochain entretien]" Then
                For i = 1 To 3
                    ComboBox1.Items.Add(sr.ReadLine())
                Next
                Exit While
            End If
        End While

[pascb423]

merci, ca marche.
juste un petit point dans le for i= 1 to 3 si je ne connais pas le nombre d'enregistrement je remplace le 3 par quoi?

[Delaney]

tu crées une boucle avec une condition: au lieu d'un For next, tu utilise un while / end while

Code :

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

1
2
3
while ligne <> "" 'si la ligne suivant ton bloc à récupérer est vide
while ligne <> "[Bloc suivant]" 's'il y a un autre bloc juste après
while sr.EndOfStream = False 'si c'est le dernier bloc et la fin du fichier

Code :

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

1
2
3
4
5
6
7
8
If ligne = "[Prochain entretien]" Then
      dim ligne2 as string=ligne 'permet de ne pas avoir ligne2 vide pour le premier passage de la boucle while tu peux mettre ="" si il n'y a aucune ligne vide dans le fichier
       While ligne2<> critère
               ligne2 = sr.ReadLine()
               If ligne2 <> critère Then ComboBox1.Items.Add(ligne2) ' ce test permet d'éviter d'avoir la ligne du critère dans la combobox  
                                                                     ' tu n'en as pas besoin si le critère c'est la fin du fichier               
       end while
End If

[pascb423]

merci beaucoup