Bonsoir, et merci pour votre réponse.
Il s'agit d'un tableau VB.NET de type String de deux lignes et d'une colonne initié ainsi :
Dim Tableau(0, 1) As String
À chaque partie terminée, je sauvegarde le score et le détenteur de celui-ci dans un fichier texte, après quoi je remplis mon tableau de ces données après l'avoir redimensionné. Voici le code complet :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Imports System.IO
Public Class Form2
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Tableau(0, 1) As String
Dim i = 0
Dim ecrire_fichier As StreamWriter = File.AppendText("Sauvegarde.txt") ' j'ouvre le fichier en mode écriture
ecrire_fichier.WriteLine(Form1.c) ' la variable c de la Form1 contient le score
ecrire_fichier.WriteLine(Form1.Nom.Text) ' le TextBox de la Form1 contient le nom du joueur
ecrire_fichier.Close()
Dim lire_fichier As StreamReader = File.OpenText("Sauvegarde.txt") ' j'ouvre le fichier en mode lecture
Do While Not lire_fichier.EndOfStream
ReDim Preserve Tableau(i, 1)
Tableau(i, 0) += lire_fichier.ReadLine
Tableau(i, 1) += lire_fichier.ReadLine
i += 1
Loop
' et maintenant j'aimerais trier uniquement la première ligne par ordre décroissant et faire en sorte que la seconde suivent "logiquement" la première comme décris dans le premier message.
End Sub
End Class |
S'il y a des doublons, il ne faut pas les supprimer.
Merci du temps que vous me consacrez, car là je sèche complètement.
Partager