comment afficher hex editor

Version imprimable

1 pièce(s) jointe(s)

bonjour, je voudrais savoir comment afficher dans listview1 hex editor avec openfiledialog.
voici mes code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dialog As New OpenFileDialog
        dialog.Filter = "All files (*.*)|*.*"
        dialog.Title = "Ouvrer Le Fichier"
        If dialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = dialog.FileName
            ListView1.Items.Clear()
            ListView1.View = View.Details
            ListView1.Columns.Add("OFFSET", 100, HorizontalAlignment.Center)
            ListView1.Columns.Add("00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F", 350, HorizontalAlignment.Center)
            ListView1.Columns.Add("TEXTE", 200, HorizontalAlignment.Center)
            End If
    End Sub

pouvezvous m'aider merci.
voici en image afficher comme hex editor.

08/12/2013, 14h31
wallace1

Salut Hacker59,

Malheureusement ce n'est pas un simple listview qu'il faut utiliser !

Les éditeurs Hexa sont des contrôles complexes qui sont codés de A à Z afin de prendre en charge la modif d'Offset particulier, l'affichage dynamique selon navigation dans le fichier, sélection de zone et aperçu en temps réel, ...etc...

Je te conseil de te familiariser avec les contrôles de type : datagridView, Listview, textbox avant de te lancer dans un tel projet.

PS : la tache pourrait se compliquer si tu souhaites faire un Viewer/Editor car chaque bit devra être stocké sur une ligne du tableau dans une colonne.

Brefff...voilà un truc pas bien élégant mais pour débuter c'est tout de même plus adapté à ton besoin :

http://www.pokecommunity.com/showthread.php?t=303158

A+

bonsoir, j'ai trouver une partie la solution pour afficher mon fichier en hex editor.
voici mes codes:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Class Form1
    Dim ArrayHold() As Byte
    Dim Index As Integer = 0
    Dim Str As New StringBuilder
    Dim tStr As String = ""
    Dim tempStr As String = ""
    Dim IndexEnd As Integer = 0
    Dim InputString As String = ""
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dialog As New OpenFileDialog
        dialog.Filter = "All files (*.*)|*.*"
        dialog.Title = "Ouvrer Le Fichier"
        If dialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = dialog.FileName
            Dim myStreamReader As StreamReader = Nothing
            myStreamReader = File.OpenText(dialog.FileName)
            InputString = myStreamReader.ReadToEnd()
            ArrayHold = Encoding.Default.GetBytes(InputString)
            Do
                IndexEnd = Index + 15
                For x As Integer = Index To IndexEnd
                    If x > UBound(ArrayHold) Then
                        Str.Append("")
                        tempStr = tempStr & ""
                    Else
                        tStr = UCase(Convert.ToString(ArrayHold(x), 16))
                        If tStr.Length < 2 Then tStr = "0" & tStr
                        Str.Append(tStr & "")
                        If ArrayHold(x) < 32 Then
                            tempStr = tempStr & ""
                        Else
                            tempStr = tempStr & Chr(ArrayHold(x)) & ""
                        End If
                    End If
                Next
                Str.Append("    " & tempStr & vbCrLf)
                tempStr = ""
                Index = Index + 15
            Loop While IndexEnd < UBound(ArrayHold)
            TextBox2.Text = Str.ToString
        End If
    End Sub
End Class

voici en image mon projet:
http://imageshack.us/a/img703/6545/6ip9.jpg
voici avec hex editor :
http://imageshack.us/a/img826/364/93p1.jpg

voila, j'ai deux question : 1) quand j'ouvre avec hex editor , il m'affiche par 8C EF 4B 39 F6 AD 82 75 F0 D6 25 C2 2C 17 B2 9C avec mon projet il m'affiche le même résulta.
2) comment je fait pour afficher bien droit comme hex editor.

merci

Il te manque :

- une variable de stockage afin de séparer distinctement la partie Hexa et Text : Pour ce faire j'ai créé un stringBuilder
- le groupement par 2 de ta partie "Hexa" ! Ca nécessite un formatage de chaîne :
Voilà ce qu'on peut utiliser comme StringFormat : "{0,0:X2} "
- l'ajout de séparateurs dans la partie de droite "Text" : ce caractère devrait faire l'affaire "."c

...etc...

Enfin pour éviter que le chargement de gros fichiers ne gèlent la fenêtre de ton programme, il faudra créer tout ca dans un ThreadUI.

Voilà ce que je te propose :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 
        Dim ArrayHold() As Byte
        Dim Index As Integer = 0
        Dim Str As New StringBuilder
        Dim tStr As String = ""
        Dim InputString As String = ""
        Private Sub OnFileOpen(sender As Object, e As System.EventArgs)
            Dim dialog As New OpenFileDialog
            dialog.Filter = "All files (*.*)|*.*"
            dialog.Title = "Ouvrer Le Fichier"
            If dialog.ShowDialog = Windows.Forms.DialogResult.OK Then
 
                Dim myStreamReader As StreamReader = Nothing
                myStreamReader = File.OpenText(dialog.FileName)
                InputString = myStreamReader.ReadToEnd()
                ArrayHold = Encoding.Default.GetBytes(InputString)
 
                Dim StrbText As New StringBuilder()
                For x As Integer = 0 To UBound(ArrayHold) - 1 Step 16
                    StrbText.Length = 0
                    Str.Length = 0
                    For index As Integer = 0 To 15
                        If (x + index) > UBound(ArrayHold) - 1 Then
                            Exit For
                        End If
                        tStr = ChrW(ArrayHold(x + index))
                        Str.AppendFormat("{0,0:X2} ", AscW(tStr))
                        If (AscW(tStr) < 32) OrElse (AscW(tStr) > 127) Then
                            tStr = "."c
                        End If
                        StrbText.Append(tStr)
                    Next
                    StrbText.Append(vbCr & vbLf)
                    While Str.Length < 52
                        Str.Append(" ")
                    End While
                    Str.Append(StrbText.ToString())
                    textBox1.Text += Str.ToString()
                Next
            End If
        End Sub

A+

09/12/2013, 09h26
Pol63

pour l'affichage bien aligné il faut une police de caractère du type "courrier"
les 3/4 des polices ont des tailles variables d'un caractères à l'autre, certaines polices ont par contre la même taille pour tous les caractères, permettant l'alignement en colonne
09/12/2013, 09h37
wallace1

Citation:

Envoyé par Pol63

pour l'affichage bien aligné il faut une police de caractère du type "courrier"
les 3/4 des polices ont des tailles variables d'un caractères à l'autre, certaines polices ont par contre la même taille pour tous les caractères, permettant l'alignement en colonne

Effectivement, les caractères chinois ont cette caractéristique, permettant ainsi un alignement parfait.

;)