Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Denis 12 07 88///
Зарегистрирован: 25.12.2008 Сообщения: 1
|
Добавлено: Вт Дек 30, 2008 11:27 pm Заголовок сообщения: Считывание строк |
|
|
Здравствуйте.
Скажите, пожалуйста, как в MapBasic считать общее количество строк в файле. (говорят, с помощью оператора While, но я чё то не догоняю...) |
|
Вернуться к началу |
|
|
Valang Гость
|
Добавлено: Сб Апр 04, 2009 7:10 am Заголовок сообщения: Re: Считывание строк |
|
|
Denis 12 07 88/// писал(а): |
Здравствуйте.
Скажите, пожалуйста, как в MapBasic считать общее количество строк в файле. (говорят, с помощью оператора While, но я чё то не догоняю...) |
Do While ... Loop - это цикл.
В цикле считаем сколько строк в файле.
Код примерно такой:
Dim Kol_Strok As Long ' - счетчик цикла
Dim Stroka As String ' Считываемая строка
Dim File_In as String - Имя и путь файла, из которого считываем данные
Open File_In For Input As #1 'Открыть файл для чтения под номером 1
Kol_Strok=0 'Обнулили счеткчик строк
Do While Not EOF(1) ' Цикл до конца файла под номером 1
Line Input #1, Stroka 'Считали строку из открытого файла №1
Kol_Strok=Kol_Strok+1 'Увеличили счетчик на 1
Loop
Операторы:
Line Input #1, Stroka
Kol_Strok=Kol_Strok+1
будут выполнятся до тех пор, пока не будет считана последняя строка файла, после чего последует выход из цикла.
Значение Kol_Strok будет равно кол-ву строк в файле |
|
Вернуться к началу |
|
|
|