probleme de lecture d'un fichier txt

Version imprimable

Bonjour,

Mon problème, je voudrais lire mon fichier txt dans listview1 mais j'arrive pas à afficher correctement les données dans listview1.

exemple txt :

Citation:

SMNE01
New Super Mario Bros.

0 continue utilisé
047789F0 38A00000

1 ups ne compte pas
04060568 60000000

....etc

Mon code de lecture

Code:

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
Private CodeLine As New Regex("^[0-9A-Fa-f]{8} [0-9A-Fa-f]{8}$")
        ListView1.Items.Clear()
        Dim Cheats As New List(Of cheat)
        Dim txt As String() = File.ReadAllLines(filename)
        If (txt.Length = 6) Then Throw New FileLoadException("Erreur de lecture du fichier txt !")
        TextBox1.Text = txt(0)
        TextBox2.Text = txt(1)
        For i = 3 To txt.Count - 1
            Dim cheat As New cheat()
            Dim lines As String() = txt(i).Split(New String() {Environment.NewLine}, StringSplitOptions.None)
            Dim name As String = lines.First
            Dim code As New StringBuilder
            For Each line As String In lines.Skip(1)
                If Not CodeLine.IsMatch(line) Then
                    Continue For
                End If
                code.AppendLine(line)
            Next
            If name.Count > 0 Then
                cheat.names = name
            End If
            If code.Length > 0 Then
                cheat.codes = code.ToString
            End If
            Cheats.Add(cheat)
        Next
        For Each cheat As cheat In Cheats
            ListView1.Items.Add(New ListViewItem(New String() {cheat.names, cheat.codes}))
        Next

Pouvez-vous m'aider à résoudre le problème de lecture? merci d'avance

04/04/2023, 18h55
umfred

Et c'est quoi le problème que tu rencontres ?
et il nous manque ta classe cheat

Sinon pour commencer ta ligne 11 ne sert à rien, txt est un tableau des lignes, donc par définition ne contient pas de retour à la ligne, donc lines sera toujours égal à txt(i) et ne contiendra donc qu'une seule ligne; à partir de là toute la logique derrière s'effondre.
04/04/2023, 20h30
Miska59

1 pièce(s) jointe(s)
Bonsoir,

le code cheat :
Code:

1 2 3 4 5 6 7 Class cheat Property names As String Property codes As String End Class
le problème que je rencontre que j'arrive pas affiche correctement dans listview1 . (voir photo)
image dans listview1 :
Pièce jointe 636862

exemple dans listview1 que je voudrais afficher :
Titre codes
0 continue utilisé 047789F0 38A00000
1 ups ne compte pas 04060568 60000000

Avec le code, je commence par la ligne 3 mais j'arrive pas à afficher correctement (voir exemple au dessus ).merci d'avance
05/04/2023, 13h16
umfred

voir également ma remarque sur ta ligne 10 (bizarre hier j'indiquais la ligne 11 pour le split, problème d'yeux bancals peut-être :weird:)... relance en pas à pas tu devrais comprendre.

C'est parce que ta liste n'a pas le contenu que tu crois.
Avec ces données et ce code, tu vas avoir 5 lignes avec le code à Nothing et le nom qui correspond à chaque ligne du fichier.

Essaie ceci :

Code:

1
2
3
4
5
6
7
8
        Dim lines As String() = File.ReadAllLines(filename) _
            .Skip(3).Where(Function(it) Not String.IsNullOrWhiteSpace(it)).ToArray()
 
        For i As Integer = 0 To lines.Length - 1 Step 2
            If CodeLine.IsMatch(lines(i + 1)) Then
                Cheats.Add(New Cheat With {.names = lines(i), .codes = lines(i + 1)})
            End If
        Next

09/04/2023, 11h55
Miska59

Merci popo . pour la solution ça fonctionne très bien.