Hallo Daniel,
wie du schon richtig erkannt hast, handelt
es sich um eine Strucktur, die du BINÄR
einlesen must.
Ein Datensatz der Strucktur beinhaltet 405
Bytes. Die Kennung , was als erstes im
Datensatz steht, ist ein Strint, der eine
feste länge von 8 Zeichen hat, danach folgt
ebenfalls ein String mit einer festen länge
von 10 Zeichen, usz. alles zusammensumierit,
ergibt 405 Zeichen.
'für profan 7.0
declare dsatz#, lof&, fpos&
'hier muss er rest declariert werden, ....
dim dsatz#,405
Assign #1,"datei.xyz"
Open RW #1
lof& = GetFileSize(#1)
While lt(fpos&,lof&)
BlockRead(#1,dsatz#,0,405) 'einlesen
print char$(dsatz#,0,8) 'Kennung
print char$(dsatz#,8,10) 'Fzgname
print char$(dsatz#,18,20) 'info
print char$(dsatz#,38,1) 'status
print char$(dsatz#,39,8) 'datum
'usw.
fpos& = add(fpos&,405)
Wend
CloseRW #1
dispose dsatz#
Anstatt Print kannste natürlich das ganze
auch einer Variable Zuweisen
kennung$ = char$(dsatz#,0,8) 'Kennung
Wenn es dennoch Probleme geben sollte, melde
dich nochmal und sende die Datei mal zu.
Thorsten
|