VPF::Как сосчитать количесто строк в файле

Magomed

Дата 11.8.2009, 18:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 11.8.2009

Репутация: нет
Всего: нет

Как сосчитать количество строк в файле или RichTextBox'е?
Срочно нужно...А в VisualBasic для чайников я ничего по данной теме не нашел

Это сообщение отредактировал(а) Magomed - 11.8.2009, 18:54

Akina

Дата 12.8.2009, 08:23 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Magomed @ 11.8.2009, 19:52

)

Как сосчитать количество строк в файле

Прочитать его построчно (лучше через FSO.ReadAll, если он не огромного размера) и посчитать в нём количество переводов строк.

Цитата(Magomed @ 11.8.2009, 19:52

)

или RichTextBox'е

А вот тут вопрос - жёстких переводов или переводов при отображении?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Vano-K

Дата 11.10.2009, 22:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 4.4.2003
Где: Украина, Днепропе тровск

Репутация: нет
Всего: нет

А если файл огромный, порядка 2 млн строк, то тогда как эффективнее посчитать кол-во строк???

Akina

Дата 12.10.2009, 08:08 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Вероятно, читать по частям. Прочитать придётся по-любому весь файл, но надо избежать тормозов, связанных с задействованием большого количества оперативки и потенциальным сбросом в своп. Думаю, блок чтения в несколько мегабайт (8-16) будет оптимален.

--------------------

diadiavova

Дата 13.10.2009, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: нет
Всего: 142

А почему не сделать так?

Код


Function CountLines(fileName As String) As Integer
    Dim fso As New FileSystemObject
    Dim ts As TextStream
    Set ts = fso.OpenTextFile(fileName)
    CountLines = 0
    Do Until ts.AtEndOfStream
        ts.ReadLine
        CountLines = CountLines + 1
    Loop
End Function

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »