cs_SEB73460
Messages postés271Date d'inscriptionvendredi 15 avril 2005StatutMembreDernière intervention29 novembre 2022
-
12 août 2007 à 09:15
cs_SEB73460
Messages postés271Date d'inscriptionvendredi 15 avril 2005StatutMembreDernière intervention29 novembre 2022
-
13 août 2007 à 10:59
Bonjour et bon dimanche à tous
J'effectue le lecture d'un fichier Hexa dans un listview, à la fin de ma lecture si la ligne est incomplete je retrouve des "FFFF" jusqu'à la fin de ma ligne
Peut-on eviter cela, c'est à dire que la lecture de mon fichier s'arrete si il n 'y a plus de données dans mon fichier ?
Mes remerciements pour votre aide
Voici mon code :
Dim i
As
Integer
Dim li
As ListViewItem
Dim compteur
As
Integer
'Le chemin du fichier
Dim fichier
As
String =
""
'Configuration de la boite de dialogueOpenFileDialog1.Title "Ouvrir fichier hexad‚cimal"OpenFileDialog1.InitialDirectory Application.StartupPath &
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 13 août 2007 à 08:28
pas de là ton erreur, mais étrange ton test puis ta boucle finale....
If fs.Length Mod 16 > 1 Then
li = ListView1.Items.Add(fs.ReadByte.ToString("X").PadLeft(2, "0"))
EndIf
For i = 1 To (fs.Length Mod 16) - 1
li.SubItems.Add(fs.ReadByte.ToString("X").PadLeft(2, "0"))
Next
pourquoi ne pas avoir fait, par exemple :
If fs.Length Mod 16 > 1 Then
For i = 1 To (fs.Length Mod 16)
li.SubItems.Add(fs.ReadByte.ToString("X").PadLeft(2, "0"))
Next
End If