🚀 go-pugleaf

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)