cs_SEB73460259
Messages postés vendredi 15 avril 2005Date d'inscription
5 février 2015
Dernière intervention
-
22 juil. 2007 à 14:55 - Dernière réponse : cs_SEB73460259
Messages postés vendredi 15 avril 2005Date d'inscription
5 février 2015
Dernière intervention
- 25 juil. 2007 à 18:39
Pourriez-vous m'indiquer la marche à suivre pour pouvoir lire et affcher le contenu d'un fichier Hexadécimal dans un listview
En effet, je souhaiterai visualiser le contenu d'un fichier .Hex dans un listview comme dans le cas d'un editeur Hexadecimal
- est-ce que je dois convertir ce fichier avec la visu sur le listview ?
Merci pour votre aide
A+
ShareVB2717
Messages postés vendredi 28 juin 2002Date d'inscription
13 janvier 2016
Dernière intervention -22 juil. 2007 à 21:55
3
Merci
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
ShareVB2717
Messages postés vendredi 28 juin 2002Date d'inscription
13 janvier 2016
Dernière intervention -23 juil. 2007 à 20:07
1
Merci
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
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+
a aidé 72 internautes ce mois-ci