Bonjour,
J'ai un problème avec mon code pour rechercher la fin d'une liste dans mon fichier.
Voici ce que j'ai dans mon dit fichier :
"Nom :
Prenom :
Classe :
6ème
5ème
CM2
CM2
CM2
CM1

dhsd"
Ce que j'aimerais faire c'est me placer a la fin des classes (donc au dessous de CM1) pour y inscrire d'autre classes.
Mon code est le suivant :

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
34
Public Sub InsertNewClass(className As String)
 
    ' on lit le contenu du fichier que l'on place dans une list de string
 
    Dim lines = File.ReadAllLines(ClassesFileName).ToList()
 
    'on recherche l'index dans cette liste ou se trouve ""Classes :""
 
    Dim classIndex = lines.IndexOf("Classe :")
 
    ' on n'en a pas trouvé, on s'en va
 
    If classIndex = -1 Then Exit Sub
 
    ''On ajoute 1 ligne à l'index pour ce placer à la ligne en dessous de classe et on cherche la fin de la liste
    Do
 
        classIndex += 1
 
    Loop Until classIndex.ToString("")
 
    'on insère la nouvelle classe dans la liste
 
    lines.Insert(classIndex, className)
 
    'on supprime le fichier texte existant
 
    File.Delete(ClassesFileName)
 
    'on recrée le fichier avec le nouveau contenu
 
    File.WriteAllLines(ClassesFileName, lines.ToArray())
 
End Sub
Voila.
Ce que ce code me fait est qu'il ajoute les nom des classes après "Classe" et non pas à la fin de la liste.
Merci pour votre aide.

P.S : dhsd est juste là pour m'assurer que quand j'affiche les classes, la suite n'est pas affichée. Mais il y aura d'autres données en lieu et place.