Datei auslesen und Inhalt ausgeben
Verfasst: 30.08.2008 13:06
Beitrag gelöscht
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
File=ReadFile(#PB_Any,"Die Datei.txt")
If File
While Eof(File)
Text$+ReadString(File)+Chr(13)+Chr(10)
Wend
CloseFile(File)
EndIf
MessageRequester("Der Text",Text$,0)