Zitat:

aber wie lese ich aus der datei aus?

FileOpen(1, datei, OpenMode.Input)
 
            Do While EOF(1) = False
                text = LineInput(1)
                if instr(text,"=") >0 then
                    textarray = Split(LineInput(1), "=") 
                end 
                 ...
            Loop
 
Fileclose