Получает количество полей в таблице базы данных.
Синтаксис
Количество()Примеры платформы
Сообщить("Всего полей в таблице: " + xB.Поля.Количество());Полное описание, параметры и ограничения
КоллекцияПолейXBase.Количество (XBaseFieldsCollection.Count)
КоллекцияПолейXBase (XBaseFieldsCollection)
Количество (Count)
Доступен, начиная с версии 8.0.
Синтаксис:
Количество()
Возвращаемое значение:
Тип: Число.
Описание:
Получает количество полей в таблице базы данных.
Доступность:
Сервер, толстый клиент, внешнее соединение.
Пример:
Сообщить("Всего полей в таблице: " + xB.Поля.Количество());
Использование в версии:
Доступен, начиная с версии 8.0.
Методическая информация
Практические примеры
Проверить структуру DBF перед импортом товаров
Поля описывают схему файла: PRICE имеет 12 позиций, из них две дробные; CODE хранится строкой, дата и булево не являются текстом.
Где и как запускать
Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.
Подготовка
Запускайте только в учебной базе на сервере. XBase работает с DBF, а не с таблицами вашей информационной базы; доступ к временному каталогу сервера должен быть разрешён.
Код сам создаёт уникальный новый каталог. В нём только собственные goods.dbf и goods.cdx: имена файлов соответствуют ограничению 8.3, имена полей и индексов латинские, не длиннее 10 символов.
Не подставляйте путь к существующему DBF. В каждой задаче новый набор: A-01 / Книга / 3 / 250 и B-02 / Ручка / 1 / 50. Сумма количества на цену равна 800.
Файлы закрываются перед удалением двух точных собственных путей. Пустой уникальный каталог остаётся; его путь выводится, чтобы при необходимости удалить именно его вручную.
УчебныйКаталог = ПолучитьИмяВременногоФайла();
ПроверкаКаталога = Новый Файл(УчебныйКаталог);
Если ПроверкаКаталога.Существует() Тогда
ВызватьИсключение "Учебный путь уже существует; существующие файлы не используем";
КонецЕсли;
СоздатьКаталог(УчебныйКаталог);
Сообщить("Собственный временный каталог: " + УчебныйКаталог);
ИмяDBF = УчебныйКаталог + "/goods.dbf";
ИмяCDX = УчебныйКаталог + "/goods.cdx";
База = Новый XBase;
Попытка
База.Кодировка = КодировкаXBase.ANSI;
База.АвтоСохранение = Ложь;
База.Поля.Добавить("CODE", "S", 10);
База.Поля.Добавить("TITLE", "S", 40);
База.Поля.Добавить("QTY", "N", 9, 0);
База.Поля.Добавить("PRICE", "N", 12, 2);
База.Поля.Добавить("ONDATE", "D");
База.Поля.Добавить("ACTIVE", "L");
База.СоздатьФайл(ИмяDBF);
Если Не База.Открыта() Тогда
ВызватьИсключение "Собственный DBF не открыт";
КонецЕсли;
База.Добавить();
База.CODE = "A-01";
База.TITLE = "Книга";
База.QTY = 3;
База.PRICE = 250;
База.ONDATE = Дата(2026, 10, 3);
База.ACTIVE = Истина;
База.Записать();
База.Добавить();
База.CODE = "B-02";
База.TITLE = "Ручка";
База.QTY = 1;
База.PRICE = 50;
База.ONDATE = Дата(2026, 10, 3);
База.ACTIVE = Истина;
База.Записать();
Сообщить(База.Поля.Количество() = 6);
Цена = База.Поля.Найти("PRICE");
Если Цена = Неопределено Тогда
ВызватьИсключение "Не найдено учебное поле PRICE";
КонецЕсли;
Сообщить(Цена.Имя = "PRICE");
Сообщить(Цена.Тип = "N");
Сообщить(Цена.Длина = 12);
Сообщить(Цена.Точность = 2);
Сообщить(База.Поля.Индекс(Цена) = 3);
Сообщить(База.Поля.Получить(0).Имя = "CODE");
Сообщить(База.Поля.Найти("ONDATE").Длина = 8);
Сообщить(База.Поля.Найти("ACTIVE").Длина = 1);
Сообщить(База.Поля.Найти("UNKNOWN") = Неопределено);
Исключение
Если База.Открыта() Тогда
База.ЗакрытьФайл();
КонецЕсли;
Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
Если СобственныйФайл.Существует() Тогда
УдалитьФайлы(ИмяСобственногоФайла);
КонецЕсли;
КонецЦикла;
ВызватьИсключение;
КонецПопытки;
Если База.Открыта() Тогда
База.ЗакрытьФайл();
КонецЕсли;
Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
Если СобственныйФайл.Существует() Тогда
УдалитьФайлы(ИмяСобственногоФайла);
КонецЕсли;
КонецЦикла;Разбор по шагам
Создаём собственную структуру DBF и записываем два товара с явным Записать.
Найти ищет описание поля по имени; отсутствие проверяем до обращения к свойствам.
Индекс PRICE равен 3: коллекция полей начинается с нуля, физические номера записей — с единицы.
Длина числа включает представление целиком, а Точность задаёт дробную часть. Дата DBF занимает 8, булево — 1 позицию.
Закрываем DBF и удаляем только два собственных файла; информационная база не изменяется.
Как проверить результат
Все десять сообщений дают Истина.
UNKNOWN отсутствует: код не обращается к свойствам результата этого поиска.
Ожидаемый результат
Проверены шесть полей собственной схемы, включая размер и точность цены.
На что обратить внимание
Не запускайте операции изменения, Сжать или ОчиститьФайл на чужом либо рабочем DBF.
Не путайте описание ПолеXBase с текущим значением PRICE.
Мемо-поле M платформой не поддерживается; имя поля не может быть русским длинным наименованием.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.
Отличить ОчиститьФайл от очистки буфера
ОчиститьФайл физически убирает все строки собственного временного DBF. Описание его полей остаётся, но товары восстановить методом Восстановить нельзя.
Где и как запускать
Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.
Подготовка
Запускайте только в учебной базе на сервере. XBase работает с DBF, а не с таблицами вашей информационной базы; доступ к временному каталогу сервера должен быть разрешён.
Код сам создаёт уникальный новый каталог. В нём только собственные goods.dbf и goods.cdx: имена файлов соответствуют ограничению 8.3, имена полей и индексов латинские, не длиннее 10 символов.
Не подставляйте путь к существующему DBF. В каждой задаче новый набор: A-01 / Книга / 3 / 250 и B-02 / Ручка / 1 / 50. Сумма количества на цену равна 800.
Файлы закрываются перед удалением двух точных собственных путей. Пустой уникальный каталог остаётся; его путь выводится, чтобы при необходимости удалить именно его вручную.
УчебныйКаталог = ПолучитьИмяВременногоФайла();
ПроверкаКаталога = Новый Файл(УчебныйКаталог);
Если ПроверкаКаталога.Существует() Тогда
ВызватьИсключение "Учебный путь уже существует; существующие файлы не используем";
КонецЕсли;
СоздатьКаталог(УчебныйКаталог);
Сообщить("Собственный временный каталог: " + УчебныйКаталог);
ИмяDBF = УчебныйКаталог + "/goods.dbf";
ИмяCDX = УчебныйКаталог + "/goods.cdx";
База = Новый XBase;
Попытка
База.Кодировка = КодировкаXBase.ANSI;
База.АвтоСохранение = Ложь;
База.Поля.Добавить("CODE", "S", 10);
База.Поля.Добавить("TITLE", "S", 40);
База.Поля.Добавить("QTY", "N", 9, 0);
База.Поля.Добавить("PRICE", "N", 12, 2);
База.Поля.Добавить("ONDATE", "D");
База.Поля.Добавить("ACTIVE", "L");
База.СоздатьФайл(ИмяDBF);
Если Не База.Открыта() Тогда
ВызватьИсключение "Собственный DBF не открыт";
КонецЕсли;
База.Добавить();
База.CODE = "A-01";
База.TITLE = "Книга";
База.QTY = 3;
База.PRICE = 250;
База.ONDATE = Дата(2026, 10, 3);
База.ACTIVE = Истина;
База.Записать();
База.Добавить();
База.CODE = "B-02";
База.TITLE = "Ручка";
База.QTY = 1;
База.PRICE = 50;
База.ONDATE = Дата(2026, 10, 3);
База.ACTIVE = Истина;
База.Записать();
Сообщить(База.КоличествоЗаписей() = 2);
База.ОчиститьФайл();
Сообщить(База.КоличествоЗаписей() = 0);
Сообщить(База.Поля.Количество() = 6);
Сообщить(Не База.Первая());
Исключение
Если База.Открыта() Тогда
База.ЗакрытьФайл();
КонецЕсли;
Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
Если СобственныйФайл.Существует() Тогда
УдалитьФайлы(ИмяСобственногоФайла);
КонецЕсли;
КонецЦикла;
ВызватьИсключение;
КонецПопытки;
Если База.Открыта() Тогда
База.ЗакрытьФайл();
КонецЕсли;
Для Каждого ИмяСобственногоФайла Из СтрРазделить(ИмяDBF + "|" + ИмяCDX, "|") Цикл
СобственныйФайл = Новый Файл(ИмяСобственногоФайла);
Если СобственныйФайл.Существует() Тогда
УдалитьФайлы(ИмяСобственногоФайла);
КонецЕсли;
КонецЦикла;Разбор по шагам
Создаём собственную структуру DBF и записываем два товара с явным Записать.
Подтверждаем исходные две строки нового файла.
ОчиститьФайл удаляет записи физически, не только текущие поля.
Проверяем ноль записей, прежние шесть полей и неуспешное позиционирование; пустые поля как товар не читаем.
Закрываем DBF и удаляем только два собственных файла; информационная база не изменяется.
Как проверить результат
Четыре сообщения Истина.
Код не пытается вызвать Восстановить после физической очистки.
Ожидаемый результат
Показано необратимое удаление всех записей без удаления схемы DBF.
На что обратить внимание
Не запускайте операции изменения, Сжать или ОчиститьФайл на чужом либо рабочем DBF.
Не заменяйте этим методом пропуск одной ошибочной импортируемой строки.
Пример допустим только потому, что весь файл только что создан самим уроком.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.