VBNet - Форум - Как узнать количество строк текстового файла?

Вопрос: Как узнать количество строк текстового файла? Добавлено: 11.02.03 02:10

Автор вопроса: AlexSid

Собственно весь вопрос в теме. Задача узнать количество строк в текстовом файле. Как можно это сделать?
Пробегаться по файлу while not eof? Долго!!!

Ответить

Ответы Всего ответов: 13

Номер ответа: 1
Автор ответа:

DimaS

Вопросов: 2
Ответов: 85

Профиль | Цитата | #1

Добавлено: 11.02.03 10:08

Попробуй так:

   Dim MyArr() As Byte
   Dim AmountOfLines As Long

   Open "c:\test.txt" For Binary As #1

   ReDim MyArr(LOF(1))
   Get #1, , MyArr()
   Close #1

   AmountOfLines = 0
   For i = 0 To UBound(MyArr)
      If MyArr(i) = 10 Then AmountOfLines = AmountOfLines + 1
   Next i
   MsgBox AmountOfLines

может быть будет быстрее?

Удачи.

Ответить

Номер ответа: 2
Автор ответа:

DAN

ICQ: 234826

Вопросов: 10
Ответов: 124

Web-сайт: visualbasic.boom.ru
Профиль | Цитата | #2

Добавлено: 11.02.03 11:42

Ну в крайнем случае можешь сосчитать число символов vbCrLf. Не знаю как это подействует, но работать должно!

Ответить

Номер ответа: 3
Автор ответа:

AlexSid

Вопросов: 4
Ответов: 27

Профиль | Цитата | #3

Добавлено: 11.02.03 12:16

To DimaS:

У меня файл порядка 20Mb. Грузить весь его в память, как-то не хорошо, на мой взгляд!

To DAN:

А как посчитать количество определенных символов в файле, не пробегаясь по всему файлу? Опять же, получается while not eof!

Ответить

Номер ответа: 4 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848	Профиль \| Цитата \| #4	Добавлено: 11.02.03 19:31
	Смело грузи весь файл в память и используй мою функцию которую я могу отослать по E-Mail), чтобы определить количество строк. Ответить

Номер ответа: 5
Автор ответа:
root

Вопросов: 12
Ответов: 147

Web-сайт: www.vbnet.ru
Профиль | Цитата | #5

Добавлено: 11.02.03 21:27

2Страшный Сон ыидимо оченб крутая функция.

Ответить

Номер ответа: 6
Автор ответа:
root

Вопросов: 12
Ответов: 147

Web-сайт: www.vbnet.ru
Профиль | Цитата | #6

Добавлено: 11.02.03 21:42

2: AlexSid , грузи файл в память(если ее таки хватит) потом бей на массив символом vbnewline, потом ubound вернет кол-во строк... это в любом случае быстрее чем ситать файл построчно...

зыж, поздравляю, бонусный индекст топика "10000" ))))))))))))))

Ответить

Номер ответа: 7
Автор ответа:

AlexSid

Вопросов: 4
Ответов: 27

Профиль | Цитата | #7

Добавлено: 12.02.03 10:56

To Страшный Сон:

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

А по поводу "грузи файл в память", как-то мне не нравиться эта идея... Неужели нельзя как-нибудь попроще? Вот утилита wc под *nix моментом считает и количество строк, и число символов. Нет ли чего-нить подобного под Винды?

Ответить

Номер ответа: 8
Автор ответа:
root

Вопросов: 12
Ответов: 147

Web-сайт: www.vbnet.ru
Профиль | Цитата | #8

Добавлено: 12.02.03 16:34

> А по поводу "грузи файл в память", как-то мне не нравиться эта идея... Неужели нельзя как-нибудь попроще?

мля! как ты посчитаешь кол-во строк не грузя в память?

> и число символов.

гы-гы. а filelen тебе что вернет?

> Нет ли чего-нить подобного под Винды?

Ответить

Номер ответа: 9
Автор ответа:

AlexSid

Вопросов: 4
Ответов: 27

Профиль | Цитата | #9

Добавлено: 12.02.03 17:43

> как ты посчитаешь кол-во строк не грузя в память?

Вот я и спрашиваю: КАК? Видимо, никак.

А Страшный Сон чего-то молчит со своей функцией...

Ответить

Номер ответа: 10
Автор ответа:

Страшный Сон

Вопросов: 46
Ответов: 848

Профиль | Цитата | #10

Добавлено: 12.02.03 17:44

А вот, сделал я функцию небольшую. В общем, неплохая. Для определения количества строк в 20-мегабайтовом файле ей понадобится примерно 2 часа со средним процессором. Ну чё, не слабо, да?