Keskustelu: Ohjelmointikysymykset: VB6: Input past end of file?

Yhtäkkiä vaan alko VB valittaan tästä koodista:

Dim i As Integer, r As String
Open App.Path & "\aloitussivu.txt" For Input As #3
For i = 1 To 1 'kuinka monta riviä tiedostosta luetaan
Input #3, r
Text1 = r
Next
Close #3

Tuosta inputista valittaa, että Input past end of file
Mikä mättää? Kun aiemmin tää toimi ihan oikein...

Tehy kirjoitti:

Input past end of file

Sisältääkö aloitussivu.txt yhtään mitään?

Tuo virheilmoitus tulee, jos yrität lukea tiedostosta enemmän dataa kuin siellä on. Tuosa tapauksessa siellä ei näyttäisi olevan yhtään mitään (for 1 to 1)... Kannattaa tarkistaa vaikka LOF-funktiolla tiedoston pituus ennen lukemista, sisältääkö se edes mitään tietoa.

oho! Tiedosto on päässyt tyhjäksi, kiitos avusta :)

suomeksi: Sisääntulo ohittanut tiedoston lopun

miten tota lof funkkaria käytetään?

Funktiolle annetaan avatun tiedoston numero, jolloin funktio palauttaa tiedoston pituuden.
http://vb.ohjelmointiputka.net/?LOF

jaa katos, eof olikin mun tarvitsema functio...