wenn ich das Beispiel mit FileSeek aus der Hilfe mache bekomme ich Chinesische Zeichen zurück.
Der Code ist so:
Code: Alles auswählen
file$ = OpenFileRequester("Datei auswählen...","","Text (.txt)|*.txt|All files (*.*)|*.*",0)
If file$
If ReadFile(0, file$)
length = Lof(0) ; ermitteln der Dateilänge
FileSeek(0, length - 10) ; setzen des Zeigers auf 10 Zeichen vor Ende der Datei
Debug "Position: " + Str(Loc(0)) ; anzeigen der aktuellen Zeigerposition
*MemoryID = AllocateMemory(10) ; reservieren des benötigten Speichers für 10 Bytes
If *MemoryID
bytes = ReadData(0, *MemoryID, 10) ; einlesen der letzten 10 Zeichen in der Datei
Debug PeekS(*MemoryID)
EndIf
CloseFile(0)
EndIf
EndIf
Position: 68
㐳㘵㠷〹Ң
Meine Datei ist:
1
12
123
1234
12345
123456
1234567
12345678
123456789
1234567890
Hat da einer eine Idee warum ich statt 1234567890 㐳㘵㠷〹Ң zurück bekomme?
Danke schon mal.