Pseudo score Pseudo 2 score2
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub ecriture() Dim file As System.IO.StreamWriter Dim mywriteline, T(2) As String Dim i As Integer Dim A, B As String ' variables à écrire A = bienvenue2.pseudo1lab & " " & bienvenue2.cagnottej1 B = bienvenue2.pseudo2lab & " " & bienvenue2.cagnottej2 'On rentre les variables dans un tableau T(0) = A T(1) = B 'Ouverture du fichier en écriture, en effaçant les lignes existantes. 'Pour faire un ajout de données, mettre True au lieu de False en fin de ligne. file = My.Computer.FileSystem.OpenTextFileWriter(My.Computer.FileSystem.CurrentDirectory & "\highscore.txt", True) 'écriture ligne par ligne mywriteline = "" Do Until i > 2 mywriteline = T(i) file.WriteLine(mywriteline) i = i + 1 Loop file.Close() End Sub