file .txt

[desila]

Buongiorno a tutti, st usando questo script

<%
Dim illine
Dim file
Dim ilfile
ilfile=server.MapPath("file.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
Const LeggiRiga=2
counter=0
do while not ilfile.AtEndOfStream
counter=counter+1
illine=ilfile.ReadLine
If counter = LeggiRiga Then
response.write illine
end if
loop

ilfile.Close
set ilfile=nothing
set file=nothing
%>


per leggere all'interno di un file di testo, lo script mi legge dalla riga n° 2 del file di testo e funziona correttamente, vorrei pero' leggere dalla riga 2 in poi fino alla fine del file di testo.
Come posso fare?
Grazie.

[supergeniux]

<% 
Dim illine 
Dim file 
Dim ilfile 
ilfile=server.MapPath("file.txt") 
Set file = CreateObject("Scripting.FileSystemObject") 
Set ilfile = file.OpenTextFile(ilfile, 1, False) 

counter=0 
do while not ilfile.AtEndOfStream 
counter=counter+1 
illine=ilfile.ReadLine 
loop 

ilfile.Close 
set ilfile=nothing 
set file=nothing 
%>

[desila]

Facendo come dice tu riesco a non far leggere la prima riga?

[Sypher]

leggi la prima fuori dal ciclo

<%
Dim illine
Dim file
Dim ilfile
ilfile=server.MapPath("file.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)

ilfile.ReadLine 

do while not ilfile.AtEndOfStream
illine=ilfile.ReadLine
response.write illine
loop

ilfile.Close
set ilfile=nothing
set file=nothing
%>

[desila]

Potresti essere + chiaro, io vorrei leggere, su un totale di x righe in un file di testo, dalla seconda in poi senza leggere la prima riga.

[Sypher]

se leggi la prima riga quella che ho messo in rosso fuori dal ciclo quando comincia il ciclo la prima è già stata letta, quindi continua dalla seconda fino all'ultima!

[desila]

Quindi la prima riga del file di testo non viene letta?

[Sypher]

Originariamente inviato da desila
Quindi la prima riga del file di testo non viene letta?

sì viene solo letta ma non viene appoggiata in una variabile

[Sypher]

correzione con SkipLine nemmeno la legge!

<%
Dim illine
Dim file
Dim ilfile
ilfile=server.MapPath("file.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)

ilfile.SkipLine 

do while not ilfile.AtEndOfStream
illine=ilfile.ReadLine
response.write illine
loop

ilfile.Close
set ilfile=nothing
set file=nothing
%>

[desila]

ok Grazie.