Строк в файле?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
sufffa
Новичок
Новичок
 
Сообщения: 43
Зарегистрирован: 08.03.2005 (Вт) 14:15

Строк в файле?

Сообщение sufffa » 28.06.2005 (Вт) 13:01

есть предположим текстовый файл.
как бы посчитать кол-во строк в нем?

спс :)

SHURUP
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 440
Зарегистрирован: 15.09.2004 (Ср) 14:24
Откуда: Ирпень, Украина

Сообщение SHURUP » 28.06.2005 (Вт) 13:18

Можно прочитать весь файл (тут несколько методов) и посчитать количество переходов на новую строку (тоже несколько методов).
Но, ИМХО, чаще удобнее и быстрее читать и обрабатывать строки одновременно. Тем самым, вообще не зависеть от количества строк.
Нам чужого не надо, но своё мы возьмем, чьё бы оно ни было...

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 28.06.2005 (Вт) 15:09

Эх блин

Снесли старый форум а на нем я выкладывал код:

Код: Выделить всё
st = createobject("Scripting.Filesystemobject").getfile("c:\123.txt.").openastextstream(ioreading).readall
linesinfile=(len(st)-len(replace(st,vbcrlf,"",1,-1,0)))/2




Вот так.
Последний раз редактировалось RayShade 28.06.2005 (Вт) 17:21, всего редактировалось 1 раз.

sufffa
Новичок
Новичок
 
Сообщения: 43
Зарегистрирован: 08.03.2005 (Вт) 14:15

Сообщение sufffa » 28.06.2005 (Вт) 15:29

благодарствую :)

sufffa
Новичок
Новичок
 
Сообщения: 43
Зарегистрирован: 08.03.2005 (Вт) 14:15

Сообщение sufffa » 28.06.2005 (Вт) 15:38

Очепятки правда :wink:

darksun
Начинающий
Начинающий
 
Сообщения: 20
Зарегистрирован: 26.06.2005 (Вс) 17:49

Сообщение darksun » 29.06.2005 (Ср) 13:51

А в экселе кол-во строк как-то можно узнать? :) Не пинайте, поиском лень до жути, просто тему расширим чутка ))

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 29.06.2005 (Ср) 14:13

Лень до жути? Нашёл секунд за 10. В Поиске.

http://bbs.vbstreets.ru/viewtopic.php?t=15313

Ruslan Demidow
Мужчина!
Мужчина!
Аватара пользователя
 
Сообщения: 987
Зарегистрирован: 25.03.2004 (Чт) 13:39
Откуда: N.Novgorod

Сообщение Ruslan Demidow » 29.06.2005 (Ср) 14:23

Код: Выделить всё
RowsCount=ActiveCell.SpecialCells(xlLastCell).Row
Это Ж-ж-ж-ж неспроста (с) Винни-Пух

darksun
Начинающий
Начинающий
 
Сообщения: 20
Зарегистрирован: 26.06.2005 (Вс) 17:49

Сообщение darksun » 29.06.2005 (Ср) 16:28

Ruslan Demidow писал(а):
Код: Выделить всё
RowsCount=ActiveCell.SpecialCells(xlLastCell).Row


Так и сделал, нашел по приведенной выше ссылке :) всё великолепно работает, спасибо!!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 139

    TopList