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

Предыдущая тема Следующая тема Перейти вниз

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

Сообщение  Саня в Пн Май 03, 2010 12:19 am

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

Сообщения : 65
Дата регистрации : 2010-04-28
Возраст : 23
Откуда : Екатеринбург

Посмотреть профиль http://vkontakte.ru/id30561430#/id57547166

Вернуться к началу Перейти вниз

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

Сообщение  tux в Пн Май 03, 2010 2:11 am

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

Сообщения : 365
Дата регистрации : 2008-04-06
Возраст : 28
Откуда : Сибирь

Посмотреть профиль http://tux.nsk.ru/

Вернуться к началу Перейти вниз

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

Сообщение  Саня в Пн Май 03, 2010 3:23 pm

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

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
avatar
Саня

Сообщения : 65
Дата регистрации : 2010-04-28
Возраст : 23
Откуда : Екатеринбург

Посмотреть профиль http://vkontakte.ru/id30561430#/id57547166

Вернуться к началу Перейти вниз

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

Сообщение  Спонсируемый контент


Спонсируемый контент


Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения