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)
Gruss