declare bereich#,b$,pos&[50],was$[50],m%,durchlauf%
dim bereich#,1000'Absichtlich größer wie gebraucht
Char bereich#,0 = space$(200)'Bereich mit Leerzeichen füllen
cls
proc formatieren
Char bereich#,0 = space$(200)'Bereich mit Leerzeichen füllen
m%=1
whilenot m% > durchlauf%
char bereich#,pos&[m%]=was$[m%]
inc m%
wend
endproc
assign #1,"test.txt"
rewrite #1
'Testbeispiele
'Durchgang 1
durchlauf%=3
pos&[1]=10
pos&[2]=20
pos&[3]=40
was$[1]="Hugo"
was$[2]="Mustermann"
was$[3]="München"
formatieren
b$=Char$(bereich#,0,60)
print b$
print #1,b$
'Durchgang 2
was$[1]="H."
was$[2]="Dohle"
was$[3]="Ried"
formatieren
b$=Char$(bereich#,0,60)
print b$
print #1,b$
'Andere Formatierung
durchlauf%=5
pos&[1]=10
pos&[2]=15
pos&[3]=20
pos&[4]=25
pos&[5]=60
was$[1]="A"
was$[2]="B"
was$[3]="C"
was$[4]="D"
was$[5]="es funzt"
formatieren
b$=Char$(bereich#,0,100)
print b$
print #1,b$
'=========================
'9 Positionen mit immer gleichen Abstand
durchlauf%=9
m%=1
whilenot m% > 9
pos&[m%]=m%*5'Die Ziffer hinter dem * bestimmt den Abstand
was$[m%]=chr$(m%+48)
inc m%
wend
formatieren
b$=Char$(bereich#,0,100)
print b$
print #1,b$
'==============================
close #1
winexecwait("notepad.exe test.txt",1)'Nur wenn notepad vorhanden ist !!
assign #1,"text.txt"
erase #1
waitinput
dispos
area#
end