функция по работе с файлами

Доброго времени суток! Мне нужна функция, возвращающая количество строк в открытом файле, если он не пустой, или 0, если наоборот.помогите пожлайста.

Количество строк получить без перебора всего файла нельзя, тк даже перевод строки не во всех файлах один и тот же используется, те нужно в цикле пробегаться по всему файлу, и считать колво переносов, но ет обычно сильно накладно.
А пустой или не пустой проверить легко, посмотрев размер файла, для етого не надо перебирать ничего, информация о размере храниться в таблице файловой системы, и получить ее мона моментально функцией LOF.

Знаю про неё(пасиб. туториалам ), но там в байтах
Пожалуй, сделаю как-нидь так :

Код:


Dim as uinteger count=0
Dim as string TextFile
Dim as integer ffl= Freefile
if NOT(Open ( "Input.txt" for input as #ffl)) then
  TextFile=String( Lof (ffl), 0)
  GET  #ffl, TextFile
Dim as uinteger i
  for i=1 to Len(TextFile)-1 step 2
      if TextFile[i]=13 then count+=1
    next
close #ffl
end if