[gelöst] Zeilenumbruch im EditorGadget
Verfasst: 22.09.2021 14:18
Hi,
Ich versuche gerade einen Text mit Steuerzeichen im Editor Gadget dar zu stellen. Solange ich die Eingabe direkt im Editor Gadget vornehme und Tabs "CHR(9)" oder Zeilenvorschung "CHR(10)" oder CHR(13) eingebe wird das alles auch schön dargestellt. Jetzt speichere ich diese Information in eine Datei. Soweit so gut. Schaue ich mir die Datei im Notepad an, ist alles auch genau so wie im Editor Gadget eingegeben.
Öffne ich die Datei und möchte die Information wieder darstellen sind alle CHR(10), CHR(13) oder #CRLF$ verloren gegangen. Tabs CHR(9) werden aber korrekt dargestellt.
Hat jemand einen Tipp wie ich auch Zeilenumbrüche wieder darstellen kann?
Mit folgendem Beispiel kann man den Effekt schön sehen. In der Textdatei ist alles so wie es sein sollte und das Editor Ergebnis schaut halt nicht so aus.
Ich versuche gerade einen Text mit Steuerzeichen im Editor Gadget dar zu stellen. Solange ich die Eingabe direkt im Editor Gadget vornehme und Tabs "CHR(9)" oder Zeilenvorschung "CHR(10)" oder CHR(13) eingebe wird das alles auch schön dargestellt. Jetzt speichere ich diese Information in eine Datei. Soweit so gut. Schaue ich mir die Datei im Notepad an, ist alles auch genau so wie im Editor Gadget eingegeben.
Öffne ich die Datei und möchte die Information wieder darstellen sind alle CHR(10), CHR(13) oder #CRLF$ verloren gegangen. Tabs CHR(9) werden aber korrekt dargestellt.
Hat jemand einen Tipp wie ich auch Zeilenumbrüche wieder darstellen kann?
Mit folgendem Beispiel kann man den Effekt schön sehen. In der Textdatei ist alles so wie es sein sollte und das Editor Ergebnis schaut halt nicht so aus.
Code: Alles auswählen
Procedure EditorTest()
Define text.s
OpenFile(0,"test.txt")
WriteStringN(0,"Dies ist ein Text" + Chr(10) + Chr(13) + Chr(9) + "und hier eine zweite Zeile")
CloseFile(0)
OpenWindow(0,100,100,320,200,"EditorGadget")
EditorGadget(0,2,2,316,176)
OpenFile(0,"test.txt")
While Not Eof(0)
text + ReadString(0)
Wend
CloseFile(0)
SetGadgetText(0,text)
Repeat
WaitWindowEvent()
Until WindowEvent() = #PB_Event_CloseWindow
EndProcedure
EditorTest()
