Lecture d'un fichier Hexa [Résolu]
cs_SEB73460
- Messages postés
- 259
- Date d'inscription
- vendredi 15 avril 2005
- Dernière intervention
- 5 février 2015
- Messages postés
- 259
- Date d'inscription
- vendredi 15 avril 2005
- Dernière intervention
- 5 février 2015
A voir également:
- Vb.net hexadecimal
- Lecture d'un fichier hexa par hexa ✓ - Forum - Visual Basic
- Création et lecture d'un fichier de configuration - Conseils pratiques - Visual Basic / VB.NET
- Enlever la lecture seule des fichiers d'un dossier et des sous-répertoires - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Utilisation de xml avec vb lecture ecriture de fichiers xml - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Ecriture et lecture d'un fichier - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
7 réponses
Meilleure réponse
- Messages postés
- 2717
- Date d'inscription
- vendredi 28 juin 2002
- Dernière intervention
- 13 janvier 2016
salut,
ben, tu fais 16 colonnes puis un truc dans le genre de :
dim fichier as string = "",i as integer
dim fl as long = filelen(fichier)
dim data() as byte
redim data(fl-1)
open fichier for binary as #1
get #1,,data
close #1
dim pages as integer
pages = fl \ 16
for i = 0 to pages - 1
dim li as listitem
set li = ton_listview.items.add(hex$(data(i)))
li.subitems.add(hex$(data(i+1)))
li.subitems.add(hex$(data(i+2)))
li.subitems.add(hex$(data(i+3)))
...
next
if fl mod 16 = 1 then
dim li as listitem
set li = ton_listview.items.add(hex$(data(pages*16)))
end if
for i = 1 to (fl mod 16) - 1
li.subitems.add(hex$(data(pages*16+i)))
next
ShareVB
ben, tu fais 16 colonnes puis un truc dans le genre de :
dim fichier as string = "",i as integer
dim fl as long = filelen(fichier)
dim data() as byte
redim data(fl-1)
open fichier for binary as #1
get #1,,data
close #1
dim pages as integer
pages = fl \ 16
for i = 0 to pages - 1
dim li as listitem
set li = ton_listview.items.add(hex$(data(i)))
li.subitems.add(hex$(data(i+1)))
li.subitems.add(hex$(data(i+2)))
li.subitems.add(hex$(data(i+3)))
...
next
if fl mod 16 = 1 then
dim li as listitem
set li = ton_listview.items.add(hex$(data(pages*16)))
end if
for i = 1 to (fl mod 16) - 1
li.subitems.add(hex$(data(pages*16+i)))
next
ShareVB
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
98 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2717
- Date d'inscription
- vendredi 28 juin 2002
- Dernière intervention
- 13 janvier 2016
salut,
oupss, j'avais pas fait gaffe que tu voulais du vb.net...
EBArtSoft> je me le suis demandé aussi...
'le cheminde ton fichier
dim fichier as string = ""
'pour lire ton fichier
dim fs as filestream = new filestream(fichier)
dim pages as integer = fs.length \ 16 ' 16 est le nombre de colonnes de ton affichage
'pour chaque ligne entière (16 bytes)
for i as integer = 0 to pages - 1
dim li as listviewitem
'remplit la ligne avec 16 octets
set li = ton_listview.items.add(hex(fs.readbyte()))
li.subitems.add(hex(fs.readbyte()))
li.subitems.add(hex(fs.readbyte()))
li.subitems.add(hex(fs.readbyte()))
...
next
'si il reste une ligne incomplète, moins de 16 octets de la position en cours à la fin du fichier
if fs.length mod 16 > 1 then
dim li as listviewitem
set li = ton_listview.items.add(hex(fs.readbyte()))
end if
'pour chaque octet supplémentaire de la ligne incomplète jusqu'à la fin du fichier
for i = 1 to (fs.length mod 16) - 1
li.subitems.add(hex(fs.readbyte()))
next
ShareVB
oupss, j'avais pas fait gaffe que tu voulais du vb.net...
EBArtSoft> je me le suis demandé aussi...
'le cheminde ton fichier
dim fichier as string = ""
'pour lire ton fichier
dim fs as filestream = new filestream(fichier)
dim pages as integer = fs.length \ 16 ' 16 est le nombre de colonnes de ton affichage
'pour chaque ligne entière (16 bytes)
for i as integer = 0 to pages - 1
dim li as listviewitem
'remplit la ligne avec 16 octets
set li = ton_listview.items.add(hex(fs.readbyte()))
li.subitems.add(hex(fs.readbyte()))
li.subitems.add(hex(fs.readbyte()))
li.subitems.add(hex(fs.readbyte()))
...
next
'si il reste une ligne incomplète, moins de 16 octets de la position en cours à la fin du fichier
if fs.length mod 16 > 1 then
dim li as listviewitem
set li = ton_listview.items.add(hex(fs.readbyte()))
end if
'pour chaque octet supplémentaire de la ligne incomplète jusqu'à la fin du fichier
for i = 1 to (fs.length mod 16) - 1
li.subitems.add(hex(fs.readbyte()))
next
ShareVB
- Messages postés
- 4530
- Date d'inscription
- dimanche 29 septembre 2002
- Dernière intervention
- 23 décembre 2014
Pourquoi dans un listview ?
la plus part des editeurs hexa ont leur propre controle d'affichage et d'edition ce qui leur permait :
1 - d'avoir une plus grand souplesse visuelle
2 - d'afficher plus vite les données
3 - de pouvoir editer les valeurs directement
Je te conseil fortement de créer un controle perso
@+
la plus part des editeurs hexa ont leur propre controle d'affichage et d'edition ce qui leur permait :
1 - d'avoir une plus grand souplesse visuelle
2 - d'afficher plus vite les données
3 - de pouvoir editer les valeurs directement
Je te conseil fortement de créer un controle perso
@+
E.B.
- Messages postés
- 259
- Date d'inscription
- vendredi 15 avril 2005
- Dernière intervention
- 5 février 2015
- Messages postés
- 259
- Date d'inscription
- vendredi 15 avril 2005
- Dernière intervention
- 5 février 2015
- Messages postés
- 259
- Date d'inscription
- vendredi 15 avril 2005
- Dernière intervention
- 5 février 2015
Merci pour ta réponse,
Mla lecture se fait bien dans mon listview, mais a la fin de mon fichier j'ai des
FFFFFFFFF partout
Je souhaiterai egalement qu'a la premiere colonne de mon affichage , le comptage des lignes se fasse en Hexa
Mais je pense deja avoir une base solide avec ton bout de code
Je vais etudier cela pour complete mon code
Mes remerciements encore une fois
A+
Mla lecture se fait bien dans mon listview, mais a la fin de mon fichier j'ai des
FFFFFFFFF partout
Je souhaiterai egalement qu'a la premiere colonne de mon affichage , le comptage des lignes se fasse en Hexa
Mais je pense deja avoir une base solide avec ton bout de code
Je vais etudier cela pour complete mon code
Mes remerciements encore une fois
A+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.