Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
20 мая 2024, 09:19

Выгрузка таблиц из 1С

Автор AkishinKa, 02 авг 2019, 13:36

0 Пользователей и 1 гость просматривают эту тему.

AkishinKa

Здравствуйте!

Есть набор атрибутов, которые мне нужны. Хочу выгрузить все таблицы, в которых они участвуют, в формате таблиц .dbf из БД 1С. Хочу чтобы эти данные были не в зашифрованном виде. Как это реализовать?

Yotram

Первая же статья из интернета при поисковом запросе 1С и dbf
Чтение в 1С из файла DBF
Рассмотрим учебный пример, в котором необходимо заполнить нужный массив из колонки файла dbf. Сам файл расположен по адресу «C:\KLADR.DBF».


ПутьКФайлу = "C:\KLADR.DBF";

ФайлDBF = Новый XBase; // создаем новый объект
ФайлDBF.ОткрытьФайл(ПутьКФайлу,,Истина); // открытие файла
ФайлDBF.Первая(); // устанавливает курсор на первую запись

МассивАдресов = Новый Массив;
// цикл обрабатывается до тех пор, пока не дошел до последней записи
Пока НЕ ФайлDBF.ВКонце() Цикл
МассивАдресов.Добавить(ФайлDBF.ADRES);
ФайлDBF.Следующая(); //передвигаем курсор далее
КонецЦикла;

//обязательно закрываем файл, после прекращения работыФайл

DBF.ЗакрытьФайл();


Создание файла
Для создания нового файла DBF в 1C 8.2 или 8.3 следует воспользоватся следующим синтаксисом:

НовыйФайл = Новый XBase;
//существует два вида кодировки ANSI (win) и OEM (dos)
НовыйФайл.Кодировка = КодировкаXBase.ANSI;
//описываем колонки:
НовыйФайл.Поля.Добавить("ADRES","S",100);
НовыйФайл.Поля.Добавить("DOM","N",10) ;

Путь = "C:\KLADR.DBF";
НовыйФайл.СоздатьФайл(Путь);
НовыйФайл.Записать();


Запись в DBF
Запись происходит так же несложно, как и другие операции. Запишем некоторые значения из массива в ранее созданный файл:
Для Каждого Адрес из МассивАдресов Цикл
НовыйФайл.Добавить();
НовыйФайл.ADRES = Адрес;
НовыйФайл.Записать();
КонецЦикла;
НовыйФайл.ЗакрытьФайл();


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

Похожие темы (5)

Рейтинг@Mail.ru

Поиск