Skip to content

Instantly share code, notes, and snippets.

View dibarkin2-prog's full-sized avatar

dibarkin2-prog

View GitHub Profile
@dibarkin2-prog
dibarkin2-prog / Сохранение DBF.bsl
Created October 13, 2025 06:11
Сохранение DBF #РаботаСФайлами
НоваяТаблица = Новый XBase;
НоваяТаблица.Кодировка = КодировкаXBase.ANSI;
НоваяТаблица.Поля.Добавить("START","S", 100, );
НоваяТаблица.Поля.Добавить("BODY","S",100,);
НоваяТаблица.Поля.Добавить("END","S",100,);
НоваяТаблица.СоздатьФайл(ПутьКФайлу, );
НоваяТаблица.ЗакрытьФайл();
@dibarkin2-prog
dibarkin2-prog / Диалог.bsl
Created October 13, 2025 06:09
Диалог выбора каталога для сохранения файла #РаботаСФайлами
Режим = РежимДиалогаВыбораФайла.Сохранение;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "Z_0000662306"+"_"+Формат(Объект.ДатаРеестра,"ДФ=yyyyMMdd")+"_"+Объект.НомерРеестра+"_"+"01.txt";
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
Текст = "ru = ""txt""; en = ""txt""";
Фильтр = НСтр(Текст)+"(*.txt)|*.txt";
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.Заголовок = "Выберите путь для сохранения";
Если ДиалогОткрытияФайла.Выбрать() Тогда
МенеджерВременныхТаблиц.Таблицы[0].ПолучитьДанные().Выгрузить()