dim zeile as string
dim dnr as integer
dim posAlt as Integer
dim pos as integer
 
dim ausgabe as string
 
do
 
 
                                              dnr = freefile
open datei.txt for input as dnr
        line input #dnr, zeile
close dnr
 
posAlt = pos
pos = instr(pos + 1, zeile, ";")
 
if pos = 0 then exit do
 
ausgabe = mid(zeile,posalt, pos - posalt)
formatiere(ausgabe)
 
while
 
private function formatiere(eingabe as string) as string
 
'Würde den Tag mit chr() darstellen
'musst den genauen Wert in der Hilfe nachschauen
 
end function
 
'So in die Richtung würde ich das machen, habe es aber nie 
'gestetet.

Computer?
Ist das wieder so ein neumodischer Mist?