4
VB6 Letztes Zeichen von EXE Datei einlesen
Hallo,
Ich würde gerne mit meinem VB6 Programm das letzte teichen einer EXE Datei einlesen.
Dies tue ich wie folgt:
Dim char As String
Dim check As String
Dim valuechk As String
Open App.Path & "\" & "UT2004.exe" For Binary Access Read As #1
Get #1, LOF(1) - 1, char
Close #1
check = char
MsgBox "check = " & check
If Not "#" = check Then call backup
Und im Zweiten Teil soll an das ende Der Datei das Zeichen "#" geschreiben werden:
valuechk = "#"
Open App.Path & "\" & "UT2004.exe" For Binary As #Free
Put #Free, LOF(Free) + 1, valuechk
Close #Free
Nur leider befindet sich in der Variable char nicht das Letzte ZEchen, sondern immer eine Zahl (zb 249)
Was ist mein Fehler?
Vielen Dank für die Hilfe im Vorraus,
Mfg hexflex
Ich würde gerne mit meinem VB6 Programm das letzte teichen einer EXE Datei einlesen.
Dies tue ich wie folgt:
Dim char As String
Dim check As String
Dim valuechk As String
Open App.Path & "\" & "UT2004.exe" For Binary Access Read As #1
Get #1, LOF(1) - 1, char
Close #1
check = char
MsgBox "check = " & check
If Not "#" = check Then call backup
Und im Zweiten Teil soll an das ende Der Datei das Zeichen "#" geschreiben werden:
valuechk = "#"
Open App.Path & "\" & "UT2004.exe" For Binary As #Free
Put #Free, LOF(Free) + 1, valuechk
Close #Free
Nur leider befindet sich in der Variable char nicht das Letzte ZEchen, sondern immer eine Zahl (zb 249)
Was ist mein Fehler?
Vielen Dank für die Hilfe im Vorraus,
Mfg hexflex
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 54290
Url: https://administrator.de/forum/vb6-letztes-zeichen-von-exe-datei-einlesen-54290.html
Ausgedruckt am: 23.12.2024 um 12:12 Uhr
4 Kommentare
Neuester Kommentar
Ok Problem gelöst
Hallo hexflex!
Meinst Du, Deine Lösung wäre gut genug, sie hier darzustellen?
Grüße
bastla
Meinst Du, Deine Lösung wäre gut genug, sie hier darzustellen?
Grüße
bastla
@bastla
Wie immer am Montachmorgen fröhlich vor sich hinpfeifend
Biber
Meinst Du, Deine Lösung wäre gut genug, sie hier darzustellen?
Nur aus diesem Grund habe ich diesen Thread gestern nicht geschlossen.... Wie immer am Montachmorgen fröhlich vor sich hinpfeifend
Biber
Der Fehler lag in Der Variablendeklaration:
Dim char As String
Dim valuechk As String * 2
Dim check As String * 1
Dim char As String
Dim valuechk As String * 2
Dim check As String * 1
