Ich möchte die beiden untenstehenden Strings in einer Textdatei mit verschiedenen Zeichensätzen speichern. Irgendwie will es nicht!
Wie kann man so etwas machen?
Code: Alles auswählen
LoadFont(0, "Courier New",30)
LoadFont(1, "Arial",60,#PB_Font_StrikeOut)
If CreateFile(0, "c:\Test.txt")
WriteStringN(0, " Testdatei drucken mit verschiedenen Zeichnsätzen ",#PB_Ascii)
WriteStringN(0, " ")
DrawingFont(FontID(0))
WriteStringN(0, "Testzeile mit Schriftart 1 öäüÖÄÜß ",#PB_Ascii)
DrawingFont(FontID(1))
WriteStringN(0, "Testzeile mit Schriftart 1 öäüÖÄÜß ",#PB_Ascii)
CloseFile(0)
Else
MessageRequester("Information","Konnte Datei nicht erstellen!")
EndIf
MessageRequester("Speichern....", ".... die Daten wurden gespeichert")