Подскажите, как узнать кол-во строк в текстовом файле
Количество строк
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 5
• Страница 1 из 1
- Шнурок
- Постоялец
- Сообщения: 371
- Зарегистрирован: 12.11.2004 (Пт) 19:28
- Откуда: Санкт-Петербург
Количество строк
Шнурок » 27.12.2005 (Вт) 10:54
Доброе утро!
Подскажите, как узнать кол-во строк в текстовом файле
Подскажите, как узнать кол-во строк в текстовом файле
02.01.2004
- Kostyan
- Постоялец
- Сообщения: 439
- Зарегистрирован: 20.09.2002 (Пт) 4:14
- Откуда: Россия, Уссурийск
Kostyan » 31.12.2005 (Сб) 10:26
- Код: Выделить всё
Dim i As Long, s As String
i = 0
Open "c:\file.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
i = i + 1
Loop
Close (1)
MsgBox "Количество строк = " & i
Нет ничего невозможного для человека с интеллектом.
- A.A.Z.
- Член-корреспондент академии VBStreets
- Сообщения: 3035
- Зарегистрирован: 30.06.2003 (Пн) 13:38
A.A.Z. » 31.12.2005 (Сб) 15:15
- Код: Выделить всё
Dim S$
Open "C:\File.ext" For Input As #1
S = Input(LOF(1), #1)
Close #1
MsgBox Len(Replace(S, vbCrLf, " ")) - Len(S) + 1
Нет меня больше
Сообщений: 5
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 110