&НаКлиенте
Процедура ОтправитьРезультатТеста(Команда)
Если СтрНайти(Итог,"*")<>0 тогда
рез = "Успешно";
Сообщить("Фио содержит")
Иначе
рез = "не Успешно";
Сообщить("Фио не содержит");
КонецЕсли;
ОтправитьВВорд(Рез,1);
КонецПроцедуры

функция ОтправитьВВорд(Результат, НомерСтроки)
Попытка
Word = новый COMОбъект("Word.Application");
исключение
Сообщить("Ошибка");
КонецПопытки
Шаблон = Word.Documents.Add("Путь");
Шаблон.BookMarks("Тест"+НомерСтроки).Select();
шаблон.word.application.selection.text = Результат;
Шаблон.Saveas("Путь");
Шаблон.Close();
КонецФункции

&НаКлиенте
Процедура ПолучитьДанные(Команда)
СоединениеHTTP = Новый HTTPСоединение("localhost",4444);
ЗапросHTTP = Новый HTTPЗапрос("TransferSimulator/fullName");
Ответ = СоединениеHTTP.Получить(ЗапросHTTP);

Если Ответ.КодСостояния = 200 Тогда
ОтветJSON = Ответ.ПолучитьТелоКакСтроку();
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(ОтветJSON);
ОбъектJSON = ПрочитатьJSON(ЧтениеJSON);
Значение = ОбъектJSON.value;

Итог = Значение;
КонецЕсли;

КонецПроцедуры

so many VAC bans and still cheating

Привет! Я все выяснил по твоей просьбе: значит запись на
лечение геморроя проводится по пятницам с 9:00 кабинет №12
При себе иметь:
— чистые трусы;
— вазелин "Добрый волшебник", или "Влажный зайка";
— хирургические перчатки размером 7;
— деньги(750 руб.)
Извини что на стенке написал, у меня что-то
личка тормозит и не говори спасибо...
Всегда рад помочь.

rep

+rep