mal wieder VB



  • 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?



  • Sicher gibts EOF, VB hat alles 🙂

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


  • Danke!


Anmelden zum Antworten