Подсчитать количество "блоков данных" в файле.

[Yuri_S]

Существует некий фаыл, который имеет подобную структуру:
Данные1
Данные2

Данные3
Данные4

Данные5
Данные6

и т.д.
Каждый блок таких данных(отделенный пустой строкой) - это условноая единица, тоесть в примере выше этих самых блоков - 3. Как сделать такой "счетчик блоков" программно?

[gaidar]

Очень просто, прочитать все строки файла в массив, выкидывая пустые и поделить на два.

Например

Код: Выделить всё

Do While NOT(EOR(ff))
Input #ff, line
If len(line) < 2 Then text = text & vbcrlf & line
Loop

array = split(text, vbcrlf)

[Yuri_S]

Действительно просто.

[gaidar]

И хорошо.
А вообще, еще лучше просто число строк считать в цикле, ошибка все-равно не больше 1 будет, если пустых строк не больше двух в конце.

Тогда не надо будет время тратить на разбивку в массив.

[Yuri_S]

Да, но это неточно, это правда. Первый вариант как раз и подошел. Думаю, тему можно закрывать, если больше ниукого нет вопросов..