Source Code for Me (s-c.me)

Copy Source | Copy HTML
Запрос = Новый Запрос(ТекстЗапроса);
Результат = Запрос.Выполнить(); ТаблицаРезультатов = Результат.Выгрузить();
 
Текст = Новый ЗаписьТекста(ПутьФайла, КодировкаТекста.ANSI);
Для i = 0 ПО ТаблицаРезультатов.Количество() - 1 Цикл
  Стр = "";
  Для j = 0 По ТаблицаРезультатов.Колонки.Количество() - 1 Цикл
    Стр = Стр + ТаблицаРезультатов[i][j] + ";"
    Текст.ЗаписатьСтроку(Лев(Стр, СтрДлина(Стр) - 1));
  КонецЦикла;
КонецЦикла;
Текст.Закрыть();