🚀 go-pugleaf

Bekijk ff dees code:

    Open App.Path & "\Logs.log" For Input As #1
        While Not EOF(1)
            Tellerke = Tellerke + 1
            Line Input #1, strBuff

            For Teller = Tellerke To 1
                If strBuff = strLog(Teller) Then
                    Tellerke = Tellerke - 1
                Else
                    strLog(Tellerke) = strBuff
                End If
            Next Teller
        Wend

    Close #1


Als ik nen 2de keer in mijn while wend lus kom dan wilt hij mijn for-next
lus nimmer doorlopen?!!  Weet er iemand hoe dit zou kunnen komen?
--
------------------------------------
Http://Come.to/Scruta
------------------------------------
<nospam.briachons@yahoo.com> schreef in berichtnieuws
1105_962822067@coffee...
> On Wed, 05 Jul 2000 18:20:05 GMT, "Scruta" <koen.vermeulen@pandora.be>
wrote:
> > Wat ik wil doen is een tekst-bestand openen en elke regel afzonderlijk
> > opslaan in een variabele. Maar ik weet niet op voorhand hoeveel regels
het
> > tekstbestand zal zijn...
> > Dus ik probeer het als volgt:
> >
> > Dim intTeller as integer
> > Dim intTellerke as integer
>
>
> >
> >     Open App.Path & "\Logs.log" For Input As #1
> >         While Not EOF(1)
> >             intTeller = intTeller + 1
> >         Wend
> >
> >     ReDim strLog(1 to intTeller) as string
> >
> >         While not EOF(1)
> >             intTellerke = intTellerke+1
> >             Line Input #1, strLog(intTellerke)
> >         Wend
> >     Close #1
> >
> > Als ik het zo doe, dan krijg ik al een overflow op mijn intTeller. Het
> > tekstbestand dat ik wil inlezen is nochtans niet zoveel regels lang dan
nen
> > integer...
>
> Lijkt logisch: in je while / went tel je enkel op... je leest geen regels
en komt dus nooit aan je EOF
>
> >
> > Dan nog een vraagje over die ReDim... Eigenlijk moet die variabele
strLog
> > een publieke variabele zijn die over heel mijn programma gekend is maar
met
> > die ReDim lukt dat dus nie �... is er dan geen ander commando? RePublic
ofzo
> > bestaat niet ;-)
>
> In de publieke sectie
> Public strLong() as string
> dan kan je er wel aan, overal.
>
> Redim heeft niks met "public/private" te maken, maar met
> >
> > --
> > ------------------------------------
> > Http://Come.to/Scruta
> > ------------------------------------
> >
> >
>
> nospam.briachons@yahoo.com
> (just remove the nospam in my e-mail-address)
>
>