🚀 go-pugleaf

"Bart Vanwijnsberghe" <bartvanwijnsberghe@DELETE!!SPAMyahoo.com> wrote in
message news:TLZt9.177174$8o4.28452@afrodite.telenet-ops.be...
> "Egg"...
> > "Bart Vanwijnsberghe"...
> > > Ik zou moeten een file inlezen in een tekstbox in Access XP. Ik heb
> > > daarvoor volgende code:
> >
> > Echt niet!
> > Zie de verbeterde code.
> > ps: Input$ (of Input voor variantjes) is alleen voor binary data. Als je
> het
> > open 'for input' dan heb je inderdaad je limiet van 2048.
> > Als je regel voor regel wilt lezen gebruik je dus Line Input #hFile,
> sRegel$
> >
> > > Private Sub Form_Load()
> > >     Dim file As String
> > >     file = "D:\Mijn documenten\testAccess\test.html"
> > Dim hFile as Integer
> > hFile = FreeFile
> > >     Open file For Binary As #hFile
> > >     FileLength = LOF(hFile)
> > >     Debug.Print FileLength
> > >     mailtekst.SetFocus
> >      mailtekst.Text = Input(LOF(1), #1)
> > Mailtext.Text = Input$(Lof(hFile))
>
> Ik neem aan dat u hier iets vergeten was:     mailtekst.Text =
> Input$(LOF(hFile), #hFile)

Zeg maar je tegen mij hoor! In NL voelen we ons oud als we 'u' tegen elkaar
zeggen (tenzij ik directeur van Philips ben of zo :) ).
Heb je je file echt for binary geopend?

Probeer anders dit... het is iets minder efficient maar ja, als het maar
werkt
ps: Wat voor OS en wat voor Office heb je? Die 2048 beperking lijkt me echt
incorrect. Input$ kan zelfs 1 a 2 MB data lezen....

    Dim hfile As Integer
    Dim btBytes() As Byte
    Dim sTemp As String
    hfile = FreeFile
    Open "c:\boot.ini" For Binary As #hfile
    ReDim btBytes(LOF(hfile) - 1)
    Get #hfile, , btBytes
    sTemp = StrConv(btBytes, vbUnicode)
    Close #hfile




> > Close #hFile
>
> Maar verder dan 2048 geraak ik niet hoor.
>
> mvg
> Bart
>