tæl linjer i tekstfil

Tags:    asp

Hej udviklere..

Er der nogen der kan hjælpe mig med at lave en funktion til at tælle antal linjer i en tekstfil ? det ku være sweet



<%
'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file, in lettura dati (1).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("file.doc"), 1)
conta = 0
do while not tsTextStream.AtEndOfStream
tsTextStream.ReadLine
conta = conta + 1
Loop
tsTextStream.Close
%>

The number is: <%=conta%>

Skulle gerne virke (Fandt det via google)



mange tak.. hmm ku ellers ikke finde noget på google :S



t