StreamReader - Lecture à partir de lignes

J'ai le code suivant;

Public Sub writetofile()

  ' 1: Append playername
    Using writer As StreamWriter = New StreamWriter("highscores.txt", True)
        writer.WriteLine(PlayerName)
    End Using

    ' 2: Append score
    Using writer As StreamWriter = New StreamWriter("highscores.txt", True)
        writer.WriteLine(Score)
    End Using

End Sub

Ce que je veux faire est de lire toutes les lignes impaires du fichier (le nom des joueurs) et les lignes paires séparément dans deux zones de liste, comment pourrais-je aller à ce sujet??

J'ai besoin de les modifier;

Using reader As StreamReader = New StreamReader("file.txt")
            ' Read one line from file
            line = reader.ReadLine
        End Using

J'ai utilisé l'une des solutions suivantes, mais ne peut pas le faire fonctionner 🙁

Public Sub readfromfile()
    Using reader As New StreamReader("scores.txt", True)
        Dim line As Integer = 0
        While Not reader.EndOfStream
            If line Mod 2 = 0 Then
                frmHighScores.lstScore.Items.Add(line)
            Else
                frmHighScores.lstScore.Items.Add(line)
            End If
            line += 1
        End While
    End Using
End Sub
InformationsquelleAutor developer__c | 2010-10-13
  1. 4

    Vous pouvez utiliser le Mod opérateur:

    Using reader As New StreamReader("highscores.txt", True)
    Dim line As Integer = 0
    Dim text As String
    Do
        text = reader.ReadLine()
        If text = Nothing Then
            Exit Do
        End If

        If line Mod 2 = 0 Then
            ''# even line
        Else
            ''# odd line                        
        End If
        line += 1
    Loop
End Using

    Cette approche fonctionne aussi pour les cas où il n'est pas un pair/impair modèle, mais un autre numéro de repetions. Disons que vous disposez de 3 lignes pour chaque joueur:

    player name 1
score 1
avatar url 1
player name 2
score 2
avatar url 2
...

    Alors vous pouvez vous procurer ce modèle à l'aide de Mod avec 3

    Dim subLine As Integer = line Mod 3
If  subLine = 0 Then
    ''# player name
ElseIf subLine = 1 Then
    ''# score                 
Else
    ''# avatar url
End If
line += 1
    • cela permet de garder le bouclage pour les expressions du FOLKLORE, correct?
    • En fait, ce sera une boucle sans fin parce que votre boucle While n'a pas de déclaration qui avance les flux de pointeur! Vous avez besoin d'un ReadLine ou quelque chose, quelque part.
    • vous avez absolument raison, merci pour ça. Mise à jour de répondre à la plus complète (c'est ce que je peux avoir pour pas réellement l'exécution du code).
    InformationsquelleAutor Fredrik Mörk
  2. 2

    Si fiable qu'il y ait un nombre pair de lignes dans le fichier, alors vous pouvez simplifier ce, par la lecture des deux à la fois.

    Using reader As StreamReader = New StreamReader("file.txt")
    While Not reader.EndOfStream
        Dim player as String = reader.ReadLine()
        Dim otherInfo as String = reader.ReadLine()

        'Do whatever you like with player and otherInfo
    End While
End Using
    InformationsquelleAutor Adam Robinson
  3. 1

    Je ne sais pas vraiment la syntaxe de VB, mais quelque chose comme ceci:

    dim odd as boolean = True
Using reader As StreamReader = New StreamReader("file.txt")
            line = reader.ReadLine
            if odd then 
                ' add to list A
            else
                ' add to list B
            end
            odd = Not Odd
End Using
    InformationsquelleAutor Preet Sangha
  4. 0

    Une autre possibilité est de se contenter de lire l'intégralité du fichier comme un bloc dans une seule chaîne, et la séparation de la chaîne sur vbcrlf

        Dim buf = My.Computer.FileSystem.ReadAllText(Filename)
    Dim Lines() = Split(Buf, vbcrlf)

    Puis, lignes contient toutes les lignes du fichier indexé.

    De sorte que vous ne pouvait pas marcher à travers eux pour obtenir chaque joueur et de ses autres info.

     For x = 0 to ubound(Lines)
       'do whatever with each line
 next

    Si le fichier a été ÉNORME, vous ne pouvez pas forcément envie de faire de cette façon, mais pour les petits fichiers, c'est un moyen facile et rapide de le gérer.

    InformationsquelleAutor DarinH