Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Wie #NULL & NicTheQuick schon schrieben, safoall.ttf existiert nicht. Safoall.ttf mit großem S jedoch schon. Das hat nichts mit PureBasic zu tun, eher mit dem Dateisystem deiner Partition und Linux. Wenn du Groß-/Kleinschreibung ignorieren willst formatiere die Partition in NTFS oder FAT.
Code: Alles auswählen
;-TOP
; Read And Write TextFile by mk-soft, v1.02, 28.03.2020
EnableExplicit
Procedure ReadFileToList(FileName.s, List TextList.s()) ; Result Format (BOM)
Protected file, format
ClearList(TextList())
file = ReadFile(#PB_Any, FileName)
If file = 0
Debug "Error Open File: " + FileName
ProcedureReturn 0
EndIf
format = ReadStringFormat(file)
If format = 0
Debug "Error Read BOM: " + FileName
CloseFile(file)
ProcedureReturn 0
EndIf
While Not Eof(file)
AddElement(TextList())
TextList() = ReadString(file, format)
Wend
CloseFile(file)
ProcedureReturn format
EndProcedure
; ----
Procedure WriteFileFromList(FileName.s, List TextList.s(), Format = #PB_UTF8) ; Result wrote lines
Protected file, cnt
If Format <> #PB_Ascii And Format <> #PB_UTF8 And Format <> #PB_Unicode
Debug "Error BOM not supported: " + FileName
ProcedureReturn 0
EndIf
file = CreateFile(#PB_Any, FileName, Format)
If file = 0
Debug "Error Create File: " + FileName
ProcedureReturn 0
EndIf
If WriteStringFormat(file, Format) = 0
Debug "Error Write BOM: " + FileName
CloseFile(file)
ProcedureReturn 0
EndIf
ForEach TextList()
If WriteStringN(file, TextList()) = 0
Debug "Error Write Line: " + FileName
CloseFile(file)
ProcedureReturn 0
Else
cnt + 1
EndIf
Next
CloseFile(file)
ProcedureReturn cnt
EndProcedure
; ****
Global NewList Text.s()
Define filename.s, bom
; Read CSV to text list
filename.s = OpenFileRequester("Open", "", "", 0)
If filename
bom = ReadFileToList(filename, Text())
Debug "BOM = " + bom
EndIf
ForEach Text()
Debug Text()
Next
Code: Alles auswählen
format = ReadStringFormat(file)
If format = 0
Debug "Error Read BOM: " + FileName
CloseFile(file)
ProcedureReturn 0
EndIf