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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 54290
Url: https://administrator.de/contentid/54290
Printed on: April 19, 2024 at 10:04 o'clock
4 Comments
Latest comment
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
