Bin Datei öffnen und als Hex auslesen

  • VB.NET

Es gibt 49 Antworten in diesem Thema. Der letzte Beitrag () ist von Artentus.

    ofd.FileName ist doch der Pfad, den du ausgewählt hast.
    Warte mal kurz, ich bastel dir ein kleines Beispiel.

    Edit:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. Dim ofd As New OpenFileDialog
    3. If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox1.Text = GetHexString(ofd.FileName)
    4. End Sub
    6. Private Function GetHexString(fileName As String) As String
    7. Dim hexString = String.Empty
    8. Using fs = File.OpenRead(fileName)
    9. Using br As New BinaryReader(fs)
    10. Do Until fs.Position = fs.Length
    11. hexString &= br.ReadByte.ToString("X")
    12. Loop
    13. End Using
    14. End Using
    15. Return hexString
    16. End Function

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Artentus“ ()

    Achso und da wird das schon in die TextBox eingebunden ja? Dann probier ichs mal aus...Erstmal danke ;D

    Edit:
    Also ich bekomme zwar keine Meldung mehr, aber der öffnet das auch nicht. Dauert stundenlang und dann keine Rückmeldung -_-
    Visual Basic zeigt mir dann diese Deadlock Meldung an...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Xylon“ ()

    Also zur Erklärung: Die Funktion GetHexString bekommt einen Dateipfad übergeben und liefert den Inhalt dieser Datei in Hex-Darstellung zurück. Im Form_Load wird dann ein OpenFileDialog erstellt, über den man eine Datei auswählen kann. Wenn man das getan hat wird diese Funktion mit der ausgewählten Datei aufgerufen und ihr Rückgabewert der TextBox zugewiesen.

    Wie groß ist denn die Datei? Ab dem Megabytebereich dauert das Einlesen mit unter schon mal ein paar Minuten.

    Xylon schrieb:

    Visual Basic zeigt mir dann diese Deadlock Meldung an...
    Poste bitte mal den aktuellen Code und schreib genau, in welcher Zeile welcher Fehler auftritt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Private Function GetHexString(ByVal fileName As String) As String
    2. Dim hexString = String.Empty
    3. Using fs = File.OpenRead(fileName)
    4. Using br As New BinaryReader(fs)
    5. Do Until fs.Position = fs.Length
    6. hexString &= br.ReadByte.ToString("X")
    7. Loop
    8. End Using
    9. End Using
    10. Return hexString
    11. End Function

    VB.NET-Quellcode

    1. Dim ofd As New OpenFileDialog
    2. Dim path2 As String = ofd.FileName
    3. ofd.InitialDirectory = "C:\"
    4. ofd.Filter = "RAM Dumps (*.bin)|*.bin|" & " All Files (*.*)|*.*"
    5. ofd.Title = "Choose a RAM Dump"
    6. If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox4.Text = GetHexString(ofd.FileName)


    Eine Zeile gibts da nicht, die Meldung steht einfach da.

    Vielleicht hilfts, wenn ich euch mal mit einem Screenshot zeige, was ich brauche.
    postimg.org/image/xkgldd2p3/

    Ist halt wie bei einem Hex Viewer und eben diese bin Datei soll so ausgegeben werden...

    So, hier hast dus jetzt vollständig durchoptimiert und auf Threading umgeschrieben, mit Events und allem drum und dran:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    4. Dim ofd As New OpenFileDialog
    5. If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
    6. Dim reader As New HexReader(ofd.FileName)
    7. AddHandler reader.ProgressChanged, AddressOf HexReader_ProgressChanged
    8. AddHandler reader.Completed, AddressOf HexReader_Completed
    9. reader.BeginRead(1024 * 1024)
    10. End If
    11. ofd.Dispose()
    12. End Sub
    14. Private Sub HexReader_ProgressChanged(sender As Object, e As HexReaderProgressChangedEventArgs)
    15. Invoke(Sub() ProgressBar1.Value = e.Percentage)
    16. End Sub
    18. Private Sub HexReader_Completed(sender As Object, e As HexReaderCompletedEventArgs)
    19. Invoke(Sub() TextBox1.Text = e.HexString) 'hier den String anders verarbeiten, da Textbox nicht geeignet
    20. End Sub
    21. End Class
    23. Public Class HexReader
    24. Private file As FileInfo
    25. Private _hex As String
    27. Public Event Completed As EventHandler(Of HexReaderCompletedEventArgs)
    28. Public Event ProgressChanged As EventHandler(Of HexReaderProgressChangedEventArgs)
    30. Sub New(fileName As String)
    31. file = New FileInfo(fileName)
    32. End Sub
    34. Public ReadOnly Property HexValue As String
    35. Get
    36. Return _hex
    37. End Get
    38. End Property
    40. Public Sub BeginRead(bufferSize As Integer)
    41. Dim t As New Thread(AddressOf GetHexString)
    42. t.IsBackground = True
    43. t.Start(bufferSize)
    44. End Sub
    46. Private Sub GetHexString(obj As Object)
    47. Dim bufferSize = DirectCast(obj, Integer)
    48. Dim hexString As New StringBuilder
    49. Using fs = file.OpenRead
    50. Using br As New BinaryReader(fs)
    51. Do Until fs.Position = fs.Length
    52. Dim bytes() = br.ReadBytes(Math.Min(bufferSize, Convert.ToInt32(fs.Length - fs.Position)))
    53. For i = 0 To bytes.Length - 1
    54. hexString = hexString.Append(bytes(i).ToString("X"))
    55. Next
    56. RaiseEvent ProgressChanged(Me, New HexReaderProgressChangedEventArgs(Convert.ToInt32(fs.Position / fs.Length * 100)))
    57. Loop
    58. End Using
    59. End Using
    60. _hex = hexString.ToString
    61. RaiseEvent Completed(Me, New HexReaderCompletedEventArgs(_hex))
    62. End Sub
    63. End Class
    65. Public Class HexReaderCompletedEventArgs : Inherits EventArgs
    66. Private _hexString As String
    68. Public ReadOnly Property HexString As String
    69. Get
    70. Return _hexString
    71. End Get
    72. End Property
    74. Sub New(hexString As String)
    75. _hexString = hexString
    76. End Sub
    77. End Class
    79. Public Class HexReaderProgressChangedEventArgs : Inherits EventArgs
    80. Private _percentage As Integer
    82. Public ReadOnly Property Percentage As Integer
    83. Get
    84. Return _percentage
    85. End Get
    86. End Property
    88. Sub New(percentage As Integer)
    89. _percentage = percentage
    90. End Sub
    91. End Class


    Der Einlesevorgang dauerte bei einer 1,5MB Datei ~1Sekunde. Allerdings ist der String dabei so lang, dass die TextBox nicht mehr mitkommt, und deswegen nie fertig wird mit laden. Du musst dir also eine bessere Möglichkeit der Anzeige suchen.

    @Xylon: Das Format der Ausgabe auf dem Bild ist:

    VB.NET-Quellcode

    1. Dim ll As Long = 1234567890
    2. Dim txt = ll.ToString("X8")
    Oben hatten wir schon mal ein X2, aber das hast Du ja generös ignoriert.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Was könnte ich denn am besten nehmen um das alles anzeigen zu lassen? Und was packe ich dann nach dem Invoke(Sub)() rein? :S
    Oh und erstmal vielen vielen dank!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Xylon“ ()

    Xylon schrieb:

    Was könnte ich denn am besten
    What :?:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hä? Artentus sagte doch, ich solle mir eine andere Möglichkeit suchen. Und beim Sub muss ein Audruck stehen, aber ich weiß nicht wirklich welcher, weil ich dmit noch nie gearbeitet habe. :/

    @Xylon: Du hast eine Frage an das Forum gestellt, ich habe sie nicht verstanden und mit What geantwortet.
    Wenn Du eine Frage an ein bestimmtes Mitglied des Forums stellen willst, richte sie gezielt an ihn:
    (diesen String dann bitte ohne Leerzeichen eingeben):
    "@ Xylon :" und dann Dein Text
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Okay, also Artentus hatte ja netterweise den Code gepostet. Und bei der 15. und der 19. Zeile soll ich laut VB einen Ausdruck angeben. Kann mir da vielleicht irgendjemand weiterheilfen?

    Welche Frameworkversion verwendest du denn? Das sind anonyme Methoden, die werden glaube ich erst ab 3.5 unterstützt.
    Mit der Anzeige meinte ich, dass die TextBox nicht gut genug ist, sie bringt das ganze Programm zu abstürzen. Du musst eine Möglichkeit finden immer nur einzelne Teile des Strings anzuzeigen, so wie auf deinem Bild.

    Xylon schrieb:

    Kann mir da vielleicht irgendjemand weiterheilfen?
    @Artentus: Für diesen Code brauchst Du das 2012er Studio.
    Such mal gezielt nach "Invoke VS 2008".
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany
    Ich hab jetzt richtig viele Invoke Themen gefunden. Bin mir aber nicht sicher, ob das auch so richtig ist:

    VB.NET-Quellcode

    1. Dim mi As MethodInvoker = AddressOf UpdateFormText
    3. Me.Invoke(mi)


    Anstatt

    VB.NET-Quellcode

    1. Invoke(Sub() RichTextBox1.Text = e.HexString)


    Weil ich muss ja auch as e.HexString noch mit aufnehmen, und das geht irgendwie alles nicht. Es gibt auch noch irgendwie Control.Invoke, TextBox1.Invoke und und und. Habe bei Google nicht wirklich viel passendes gefunden was auch auf meine Programmart so zutrifft. Ich weiß wirklich nicht welches das richtige ist. Hat hier vieleicht auch jemand noch 2008?

    @Xylon: Probier mal dies:
    Invoke

    VB.NET-Quellcode

    1. Delegate Sub MyReceiveText(xxx As String)
    3. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    4. Dim xxx As String = "bla"
    6. If TextBox1.InvokeRequired Then
    7. ' Aufruf aus anderem Thread
    8. Dim d As New MyReceiveText(AddressOf ReceiveText)
    9. TextBox1.Invoke(d, xxx)
    10. Return
    11. End If
    12. ReceiveText(xxx)
    13. End Sub
    15. Private Sub ReceiveText(xxx As String)
    16. TextBox1.Text = xxx
    17. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany
    Sorry, aber ich blicke da nicht mehr durch. Inwiefern kann ich das für

    VB.NET-Quellcode

    1. Private Sub HexReader_Completed(ByVal sender As Object, ByVal e As HexReaderCompletedEventArgs)
    2. Invoke(Sub() RichTextBox1.Text = e.HexString) 'hier den String anders verarbeiten, da Textbox nicht geeignet
    4. End Sub
    5. Private Sub HexReader_ProgressChanged(ByVal sender As Object, ByVal e As HexReaderProgressChangedEventArgs)
    6. Invoke(Sub() ProgressBar1.Value = e.Percentage)
    7. End Sub

    benutzten? Und wieso kann ich nur TextBox1 benutzen? Ich bin gerade echt verwirrt. Wie ich schon gesagt habe: Ich habe damit noch nie gearbeitet...

    Xylon schrieb:

    Und wieso kann ich nur TextBox1 benutzen?
    Und wieso glaubst Du, dass Du hier für all Deine Probleme perfekten Code geschenkt bekommst?
    Von mir bekommst Du Denkanstöße, dass Du Deinem Probleme allein lösen kannst.
    Selbstverständlich kannst Du auch den Code anderer Forumsmitglieder abschreiben und Dich dann wundern, dass es nicht so läuft, wie es Dir vorschwebt.
    Also:
    Die Hausaufgaben musst Du allein machen. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende