Zeilen zählen - von Triton

Kleines Tool, das manchmal ganz nützlich ist, wenn man wissen will, aus wie vielen Zeilen eine Datei besteht.

;** 01.08.2006 by Triton ;** Zählt, wie viele Zeilen eine Datei hat dat$="stringrechnen.bb" Print "Datei "+dat$+" hat "+countlines(dat$)+" Zeilen!" WaitKey End ;--- Function countlines(dat$) bla = OpenFile(dat$) While Not Eof(bla) a$=ReadLine(bla) b=b+1 Wend Return b End Function