While Not Eof(Datei)



	Zeile$ = ReadLine(Datei) ; Eine Komplette Zeile wird aus der Datei gelesen

	;Print Zeile$
	ZAHL1 = ZahlenausString(Zeile$,1) ; Übergibt die Zeile als String und den Wert 1-> Möchte aus der Zeile die Erste Zahl oder das erste Wort
	ZAHL2 = ZahlenausString(Zeile$,2) ; Möchte aus der Zeile die erste Zahl oder das erste Wort

Print Zahl1 + " " + Zahl2


Wend

WaitKey

CloseFile(Datei)

Function ZahlenausString(ZEILEE$,WERT)

KOMMA = 1
ANZAHL = 1


For I = 1 To Len(ZEILEE$) 


	If Mid(ZEILEE$,I,1) = "," Or I= Len(ZEILEE$) Then 
	
		
		If ANZAHL = WERT Then Zahl$ = Mid(ZEILEE$,Komma,I)
					
		Komma = I + 1
		Anzahl = Anzahl + 1
			
	End If

Next


Return Zahl$

End Function