Warum wird das "Data.a" nicht in die nächste Zeile gesetzt ?

[funkheld]

Hallo, guten Tag.
Warum wird bitte das "Data.a" nicht in die nächste Zeile gesetzt nach 19 ausgaben ?

Data.a 60 102 110 110 96 98 60 0 24 60 102 126 102 102 102 0 124 102 102Data.a
124 102 102 124 0 60 102 96 96 96 102 60 0 120 108 102 102 102 108 120Data.a
0 126 96 96 120 96 96 126 0 126 96 96 120 96 96 96 0 60 102 96Data.a
110 102 102 60 0 102 102 102 126 102 102 102 0 60 24 24 24 24 24 60Data.a
0 30 12 12 12 12 108 56 0 102 108 120 112 120 108 102 0 96 96 96Data.a
96 96 96 126 0 99 119 127 107 99 99 99 0 102 118 126 126 110 102 102Data.a
0 60 102 102 102 102 102 60 0 124 102 102 124 96 96 96 0 60 102 102Data.a
102 102 60 14 0 124 102 102 124 120 108 102 0 60 102 96 60 6 102 60Data.a

Code: Alles auswählen

Global zahl.c,z.l

ReadFile(0, "d:\purebasic\pure\data\charset1.bin")
CreateFile(1,"d:\purebasic\pure\data\charset1.txt")

WriteString(1,"Data.a ")

While Eof(0) = 0
  zahl=ReadByte(0)
  z=z+1
  If z > 19  
    WriteStringN(1,"Data.a ") 
    z=0
  EndIf 
   WriteString(1," "+zahl)
Wend

CloseFile(0)
CloseFile(1)

Danke.
Gruss

[NicTheQuick]

Weil WriteStringN() den Zeilenumbruch nach dem geschriebenen String einfügt und nicht davor.
Ohne weiter zu testen, schlage ich das hier vor:

Code: Alles auswählen

WriteString(1, ~"\nData.a ")

Oder

Code: Alles auswählen

WriteStringN(1, "")
WriteString("Data.a ")

[funkheld]

Danke für die Info.

Gruss

[NicTheQuick]

Manchmal frage ich mich, wieso du teilweise komplexere Sachen programmierst, aber dann an sowas scheiterst. Hast du ein Konzentrationsproblem?

[funkheld]

Ich dachte wenn ich ihn danach "WriteStringN(1, "Data.a ")" eingebe , das er trotzdem seine Arbeit macht und in der nächsten Zeile erscheint.

Gruss