Programmieren - alles kontrollieren 4.938 Themen, 20.667 Beiträge

Verfolgung starten Optionen

Will eine Datei so einlesen wei sie ein Hexeditor anzeigt

Teflon / 3 Antworten / Flachansicht Nickles

Hi leute
ich versuch grad ein VBAproggi zu schreiben mit dem man ein par Werte in aus einem Savegame einlesen kann, um diese dann zu verändern.
das prob is das ich den inhalt der datei so brauche wie sie in einem Hexeditor angezeigt wird, nicht unbedingt mit abstand und fixer Zeilenlänge(des krieg ich nacher bei der anzeige schon hin) mir gehts vorerst nur darum die datenaus zulesen
ich hab dazu auch schon nen code der des kann, find den aber total umständlich, gibts da nicht was einfacheres, z.b. open x.y for hex as #1
oder irgendwie kürzer als des
hier is der code:
Public Function Dateiöffnen()
Open Dateiname For Binary As #1
MsgBox ("Die datei: " + Dateiname + "wurde geöffnet")
Dim Liste As String
Dim b As String * 1
Dim c As Integer
Dim d As String

Liste = ""

For x = 1 To 20
Get #1, , b
c = Asc(b) \'buchstabe nach ascitab in zahl
d = Hex(c) \'integer in hexzahl (datentyp der hexzahl ist string)
Liste = Liste + d
Next x

UserForm1.TextBox1.Text = Liste
Close #1
End Function

gruß Teflon

bei Antwort benachrichtigen
(Anonym) Teflon „Will eine Datei so einlesen wei sie ein Hexeditor anzeigt“
Optionen

Hallo
das geht etwas einfacher. Mit dem Vwariablentyb byte
also
dim wert as byte
dim a as integer
.
.
for i = 1 to 20
Get#1,,wert
list1 = liste + hex(wert)
next i

besser noch als array

dim wert(20) as byte
dim a as integer
.
.
for i = 1 to 20
get#1,,wert(i)
nexti

damit kannst du dann alles machen, z.B. in einem Listfeld zeigen

bei Antwort benachrichtigen
Danke das funzt jetzt hier is der code mit dems momentan läuft is zwar sau ... Teflon
Nicht schlecht ich hab mal ein ähnliches Programm geschrieben um mir ... (Anonym)