Member Avatar for ReeciePoo 
]   Dim GETWORD
    Dim GETLINE
    Dim ARRAYNUMBER As Integer
    Dim itmx As ListItem
    
 
    nFileNum = FreeFile
    Open "C:\Documents and Settings\Reece\My Documents\I.T\Visual Basic\Reece\client.db" For Input As nFileNum
    If Input(LOF(nFileNum), nFileNum) > "0" Then
        GETLINE = Input(LOF(nFileNum), nFileNum)
        GETLINE = Split(GETLINE, "*")
        
    Do While GETLINE(ARRAYNUMBER)
        GETWORD = Split(GETLINE(ARRAYNUMBER), "|")
        Set itmx = lvwdbase.ListItems.Add(, , GETWORD(0))
        itmx.SubItems(1) = GETWORD(1)
        itmx.SubItems(2) = GETWORD(2)
        itmx.SubItems(3) = GETWORD(3)
        itmx.SubItems(4) = GETWORD(4)
        ARRAYNUMBER = ARRAYNUMBER + 1
    Loop
    Close nFileNum
    End If

Any Idea why itd be sayin input past end of file?

client.db has
Courtney Osborne|Reece Alexander|650|$82,722|Edit/View*
Diane Alexander|Raymond Alexander|340|$22,021|Edit/View*

  • 4 Contributors
  • 5 Replies
  • 337 Views
  • 4 Months Discussion Span
  • Latest Post Latest Post by reeturaj
Member Avatar for ReeciePoo

Anyone? Ima bout to slap myself over this?

Member Avatar for purplegerbil

The EndIf it the wrong side of the close statement.

Member Avatar for ReeciePoo

The EndIf it the wrong side of the close statement.

Fair enough. but even so when i hit debug when the error shows up it takes me to the LOF line

Member Avatar for SkinHead

Are You Still Having Trouble With This Or Have You Sorted It ?

Member Avatar for reeturaj

We have a problem in Magictool software; when we making a any programe then this software is genrating programe number but now it is not genrating that time showing Run time error '62' - Input Past End of File.
Plz gude

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.