🚀 go-pugleaf

bekijk dit eens:

dim text as collection
dim fso as filesystemobject
dim file as textstream

set text = new collection
set fso = new filesystemobject
set file = fso.opentextfile("filename")

do until (text.AtEndOfStream)
    text.add item:=file.readline
loop

Now the collection is filled with the lines of the textfile, so you can loop
through it.  You need to add a reference to "Microsoft  Scripting Runtime"
in your project.

Scruta <koen.vermeulen@pandora.be> wrote in message
news:p%K85.25685$ko1.575451@afrodite.telenet-ops.be...
> 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...
>
> 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 ;-)
>
> --
> ------------------------------------
> Http://Come.to/Scruta
> ------------------------------------
>
>