Hi!
Gibt es eine (möglichst einfache) Möglichkeit, zu ermitteln, wieviele Zeilen eine Textdatei enthält?
Daniel
Hi
ist es so recht?
sub CountLine()
Dim fso
Dim ts
Dim count
Set fso = server.createobject(„Scripting.FileSystemObject“)
Set ts = fso.OpenTextFile(„c:\boot.ini“, 1, False)
Do Until ts.AtEndOfStream
count = count + 1
ts.ReadLine
Loop
ts.Close
Set ts = Nothing
Set fso = Nothing
response.write "Anz. Linien: " & count
End sub
gruss, Giuseppe
In UNIX/Linux ist es ganz simpel:
/usr/bin/wc -l filename
Kann auch #Buchstaben, #Woerter etc. zaehlen (s. man wc)
Gruss
Matthias
Hi Guiseppe,
danke für die ausführliche Antwort, doch es hat nicht ganz geklappt 
Es kommt zwar keine Fehlermeldung, aber die Zeilenanzahl wird nicht ausgegeben!
Weisst du weiter?
Daniel
Hi Dani!
Du musst schon ein wenig genauer werden damit ich dir helfen kann. Vielleicht postest Du mir Dein Code hier oder Du sagst mir
was genau im browser zu sehen ist…
cu
giuseppe
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]