Code: Alles auswählen
Define file.s, result.s, ext.s
Define ff
Global NewList lines.s()
file.s = OpenFileRequester("Öffnen", "", "",0)
If file
ReadFile(0, file)
ff = ReadStringFormat(0)
Select ff
Case #PB_Ascii : result = "Kein BOM gefunden. Dies kennzeichnet üblicherweise eine normale Textdatei."
Case #PB_UTF8 : result = "UTF-8 BOM gefunden."
Case #PB_Unicode: result = "UTF-16 (Little Endian) BOM gefunden."
Case #PB_UTF16BE: result = "UTF-16 (Big Endian) BOM gefunden."
Case #PB_UTF32 : result = "UTF-32 (Little Endian) BOM gefunden."
Case #PB_UTF32BE: result = "UTF-32 (Big Endian) BOM gefunden."
EndSelect
Debug result
While Not Eof(0)
AddElement(lines())
lines() = ReadString(0, FF)
Wend
Debug "Lines: " + Str(ListSize(lines()))
CloseFile(0)
file = SaveFileRequester("Speichern", "", "Ascii|*.asc;UTF8|*utf8;Unicode|*.unicode",0)
If file = ""
End
EndIf
ext = LCase( GetExtensionPart(file))
Select ext
Case "asc" : ff = #PB_Ascii
Case "utf8" : ff = #PB_UTF8
Case "unicode" : ff = #PB_Unicode
Default
Debug "Kein Format angegeben"
End
EndSelect
If CreateFile(0, file)
WriteStringFormat(0, ff)
ForEach lines()
WriteStringN(0, lines(), ff)
Next
CloseFile(0)
EndIf
Debug "Fertig."
EndIf