I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
ari
ari
il 7 luglio 2004 alle 14:53
36 messaggi dal 04 marzo 2004
Ciao,
altro problema !!!!!!!

Qualcuno sa dirmi come faccio ad eseguire un ciclo for per arrivare alla fine di un file di testo e contare le sue righe?

Set txtFile=CreateObject("Scripting.FileSystemObject")
set documento=txtCorpo.OpenTextFile(Server.MapPath("STASIV515.txt"),1, true)

f=0
for i=0 to ??????
f=f+1

next


Help!!!!!!!!!!!!!!
RispondiQuoting
agodin
agodin
il 7 luglio 2004 alle 15:46
84 messaggi dal 19 marzo 2003
Io farei così :

MioFile= Server.MapPath("STASIV515.txt")
Set ObjRead=CreateObject("Scripting.FileSystemObject")
Set StreamRead=objRead.OpenTextFile(MioFile, 1, False)

Do While not StreamRead.AtEndOfStream
Riga=StreamRead.ReadLine()
ContaRiga = ContaRiga +1
Wend

StreamRead.Close
Set StreamRead = Nothing


Ciaooooooooooooooooooooooo
RispondiQuoting
Raynor
Raynor
il 7 luglio 2004 alle 15:48
3.122 messaggi dal 16 maggio 2002
...
cont = 0
while Len(documento.ReadLine())>0
cont = cont + 1
wend
The day Microsoft makes something that doesn't suck
is probably the day they start making vacuum cleaners.

Get caught!
Get caught again!
RispondiQuoting
ari
ari
il 7 luglio 2004 alle 16:37
36 messaggi dal 04 marzo 2004
Si agodin ho usato iltuo metodo e funziona
ma se poi iio devo fare rileggere ilfile nuovamente dall'inizio mi darà errore

perch'è oltre l'input del file

Non c'è una maniera per farlo tornare in testa al file?
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.