mal wieder VB

[Griese]

Hi,

ich hab eine Datei, aus der zu lesen ist, und eine gewisse Ahnungslosigkeit, wie ich das in Visual Basic formulieren soll.

Der Inhalt der Datei sieht in etwa so aus:

123.123, 456.456
123.123, 456.456
123.123, 456.456
123.123, 456.456
123.123, 456.456
123.123, 456.456

Ich will jeweils zwei Werte (123.123 und 456.456) ind zwei Variablen lesen, sie an eine Funktion übergeben, sie wieder einlesen, übergeben... Solange, bis das Ende der Datei erreicht ist.

Ein EOF gibt es in VB nicht AFAIK (vielleicht nicht auf die C++ Art). Deshalb die Lücke im Kopf der Schleife:

private sub function()
    dim x as double, y as double
    dim i as integer

    open LogFile for input access read as #1
	while(...)
	    i=i+1	
            input #1, x, y
            'hier werden sie verarbeitet
        wend
    close #1
end sub

Wie fülle ich diese Lücke?

[VB user]

Sicher gibts EOF, VB hat alles

intFileNum = FreeFile
 Open LogFile For Input As #intFileNum
 While Not EOF(intFileNum)
   ....
 Wend

[Griese]

Danke!