ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Текстовый файл
6 сообщений из 6, страница 1 из 1
Текстовый файл
    #32555915
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorProgrammer
Гость
Можно ли как-то узнать колчество строк в текстовом файле???


Заранее спасибо...
...
Рейтинг: 0 / 0
10.06.2004, 12:07
| Ответить | Цитировать | Написать  
Текстовый файл
    #32555992
Вячеслав Клепинин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вячеслав Клепинин
Гость
Можно, открыв и прочитав его.
...
Рейтинг: 0 / 0
10.06.2004, 12:35
| Ответить | Цитировать | Написать  
Текстовый файл
    #32556002
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorProgrammer
Гость
Эт я знаю...

Текстовые файлы огромные...
и мне надо повесить процесс выполнения зачитывания(построчно)...

...
Рейтинг: 0 / 0
10.06.2004, 12:38
| Ответить | Цитировать | Написать  
Текстовый файл
    #32556021
Фотография Анатолий Широков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий Широков
Участник
В лоб, если файл содержит не более 64000 строк, то с помощью alines:

Код: plaintext
? alines(laDummy, filetostr("text.txt"))

По сути, подсчитывается количество CHR(13)+CHR(10).

Если при этом надо учесть и перенос (аналог WordWrap), то использовать надо MEMLINES:

Код: plaintext
1.
2.
3.
4.
5.
set memowidth to  80 
create cursor tdummy (txt m)
select tdummy
append blank 
append memo txt from text.txt overwrite
? memlines(tdummy.txt)

Удачи.
...
Рейтинг: 0 / 0
10.06.2004, 12:42
| Ответить | Цитировать | Написать  
Текстовый файл
    #32556047
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorProgrammer
Гость
Анатолий Широков:
Сенкс...
...
Рейтинг: 0 / 0
10.06.2004, 12:51
| Ответить | Цитировать | Написать  
Текстовый файл
    #32556308
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
XAndy
Гость
авторВ лоб, если файл содержит не более 64000 строк, то с помощью alines:
? alines(laDummy, filetostr("text.txt"))

Можно чуть отодвинуть ограничение 64K:

Код: plaintext
? occurs(chr( 13 )+chr( 10 ), filetostr("text.txt"))

Возвращается количество chr(13)+chr(10) в файле. Теперь ограничение на размер строки в фоксе (чуть меньше 16MB)
Ну а если надо еще отодвинуть ограничение до 2GB, тогда так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
iDscr = fopen("text.txt")
if iDscr> 0 
   iLines =  0 
   cChar1 = ""
   cChar2 = ""
   do while !feof(iDscr)
      cChar2 = fread(iDscr, 1 )
      if cChar1==chr( 13 ) and cChar2==chr( 10 )
         iLines = iLines +  1 
      endif
      cChar1 = cChar2
   enddo
   fclose(iDscr)
   ? iLines   
endif
...
Рейтинг: 0 / 0
10.06.2004, 14:41
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Текстовый файл
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]