СформироватьСценарий (GenerateScript) Метод

Синтаксис

СформироватьСценарий(<ИмяФайла>)

Параметры

ИмяФайла (обязательный)
Тип: Строка.
Полный путь до файла os.

Возвращаемое значение

Описание

Сохраняет сценарий os по указанному пути.

Примечание

Пример

ДФ.СформироватьСценарий(ПутьСценарий1);
Полный пример кода 

Копировать     Выделить всё


Перем ТекПуть;
Перем ДФ Экспорт;

Процедура Фоновое1(параметр1, параметр2) Экспорт
	Контекст = Новый Структура("Сценарий1", параметр1);
	ЗагрузитьСценарий(ОбъединитьПути(ТекПуть,"ФормаДизайнера.os"), Контекст);
КонецПроцедуры

Процедура СоздатьФайлЗапускаДизайнера()
	ПутьФайла = ОбъединитьПути(ТекПуть,"ФормаДизайнера.os");
	ФайлНаДиске = Новый Файл(ПутьФайла);
	Если Не ФайлНаДиске.Существует() Тогда
		Стр1 = "
		|ПодключитьВнешнююКомпоненту(""C:\444\111\OneScriptFormsDesigner\OneScriptFormsDesigner\bin\Debug\OneScriptFormsDesigner.dll"");
		|ДФ = Новый ДизайнерФормДляОдноСкрипта();
		|Сценарий1.ДФ = ДФ;
		|
		|ДФ.Дизайнер();
		|";
		ТекстДок4 = Новый ТекстовыйДокумент;
		ТекстДок4.УстановитьТекст(Стр1);
		ТекстДок4.Записать(ПутьФайла, "UTF-8");
		Приостановить(1000);
	КонецЕсли;
КонецПроцедуры

ТекПуть = Новый Файл(ТекущийСценарий().Источник).Путь;
СоздатьФайлЗапускаДизайнера();

// Запустим дизайнер.
ДФ = Неопределено;
МассивПараметров = Новый Массив(1);
МассивПараметров[0] = ЭтотОбъект;
ФоновыеЗадания.Выполнить(ЭтотОбъект, "Фоновое1", МассивПараметров);

// Дождемся подключения библиотеки дизайнера.
Пока ДФ = Неопределено Цикл
	Приостановить(500);
КонецЦикла;

// Дождемся запуска дизайнера.
Пока Не ДФ.ДизайнерОткрыт Цикл
	Приостановить(500);
КонецЦикла;

ПутьСценарий1 = ОбъединитьПути(ТекПуть,"Сценарий1.os");
ДФ.СформироватьСценарий(ПутьСценарий1);

Пока ДФ.ДизайнерОткрыт Цикл
	Приостановить(500);
КонецЦикла;