Text in exe Datei schreiben löschen

Computer: Software & Programmierung Visual Basic
#1

Hallo Forum
Wie kann ich die Daten aus einer Exe Datei auslesen und zurückschreiben.
Um was es geht:
Mit einem abgeschriebenen Macro hänge ich in einer exe Datei Textzeichen an.

Sub Meine DatenSchreiben()
Dim TxT
TxT = „Hallo Welt“

Open „C:\Test.exe“ For Append As #1
Print #1, „-*GN*-“ & TxT
Close #1

'"-*GN*-" ist eine Zeichenkette damit wird die Daten später bei öffnen auch gefunden
End sub
‘___________

Sub MeineDatenlesen()
Dim gesDaten , DataPos
Open „C:\Test.exe“ For Binary As #1
TxT= String(LOF(1), " ")
Get #1, 1, gesDaten
Close #1

DataPos = InStr(1, gesDaten, „-*GN*-“)
MeineDaten = Mid gesDaten, DataPos, Len(gesDaten) - DataPos + 1)
'Binär öffnen, damit auch Dateien >64KB geöfnet werden können.
End sub
‘___________
Sub MeineDatenlöschen ()
Dim DataPos , gesDaten
DataPos = InStr(1, fileData, „-*GN*-“)
Originaldaten = Left(gesDaten, Len(gesDaten) - DataPos)

Open Datei For Output As #1
Print #1, Originaldaten
Close #1
End Sub

Die Print Anweisung schreibt aber automatisch Chr(13) und Chr(10) am Ende in die Datei .
Wie kann ich die ursprüngliche Exe Datei wieder herstellen, sprich den String „-*GN*-Hallo Welt“, Chr(13) und Chr(10) löschen?

Danke für eure Hilfe
Eugen

#2

Du musst die „Originaldaten“ des Exe-Files BINÄR schreiben.
Folgendes kleine Example wird Dir dabei eine Hilfe sein:

Open "TESTFILE" For Binary Access Write As #1
VarString$ = String$(10, " ")
Put #1, , VarString$

greets from michL (vienna)

Open Datei For Output As #1
Print #1, Originaldaten
Close #1
End Sub

Die Print Anweisung schreibt aber automatisch Chr(13) und
Chr(10) am Ende in die Datei .
Wie kann ich die ursprüngliche Exe Datei wieder herstellen,
sprich den String „-*GN*-Hallo Welt“, Chr(13) und Chr(10)
löschen?