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 |
Partager