Möglicherweise bin ich auf einen Fehler gestoßen.
Der Fehler liegt beim ReadStringFormat Befehl.
Je nach Parameter von OpenFile ändert sich das Ergebnis von
ReadStringFormat.
Bei einer TextDatei mit Unicode-Format liefert ReadStringFormat
Ascii zurück, wen bei Openfile als Flag #PB_File_Append angegeben wird.
Sollte eigentlich Unicode sein.
Getestet mit PB 560B3.
Beispiel 1: Ergebnis = Ascii
Beispiel 2: Ergenbis = Unicode
Bitte eine Datei mit test.txt auf der Partition d:\ mit Unicode erstellen.
Beispielcode:
Code: Alles auswählen
; Beispiel 1:
File = OpenFile(#PB_Any, "D:\test.txt",#PB_File_Append|#PB_File_SharedRead)
If File
Format.l = ReadStringFormat(File)
Debug Str(Format)+" = "+ Str(#PB_Unicode)
CloseFile(File)
EndIf
; Beispiel 2:
File = OpenFile(#PB_Any, "D:\test.txt",#PB_File_SharedRead)
If File
Format.l = ReadStringFormat(File)
Debug Str(Format)+" = "+ Str(#PB_Unicode)
CloseFile(File)
EndIf
Grüße
Lite