AddIn для перевода текста при помощи сервиса google
AddIn предназначен добавления в систему 1С возможностей перевода текста в разных направлениях . Может быть использована для любой конфигурации.
Делал для разового перевода, может кому еще пригодится.
Пример работы:
//Инициализация библиотеки
AttachAddIn("AddIn.Dictionary");
Add = СоздатьОбъект("AddIn.Dictionary");
Add.TranslateWordsValueList("Текст перевода","ru","uk");
///
/// Функция выполняет перевод текста и возвращает текст разделенный запятым
/// для загрузки в СписокЗначений
///
///Предложение для перевода
///Исходный язык пример "ru"
///Язык перевода "uk"
/// Текст перевода
TranslateWords(string words, string fromLang, string toLang )
Возвращаемое значение
Позиция в списке
// 4 - перевод Текст:перекласти
// 5 - исходный текст Текст:Перевести
// 6 - латиница перевод Текст:pereklasty
// 7 - латиница исходный Текст:Perevesti
Далее то что предлагет по каждому слову Google сам не разбирался не нужно было
Пример;
рез = СоздатьОбъект("СписокЗначений");
рез.ИзСтрокиСРазделителями(Add.TranslateWords(СокрЛП(стрПеревести),"ru","uk"));
Для Цкл=1 По рез.РазмерСписка() Цикл
Сообщить(""+рез.ПолучитьЗначение(ЦКЛ));
КонецЦикла;
///
/// Функция выполняет перевод текста и возвращает СписокЗначений
///
///Предложение для перевода
///Исходный язык пример "ru"
///Язык перевода "uk"
///
TranslateWordsValueList(string words, string fromLang, string toLang)
Возвращаемое значение
1 - Перевод
Далее то что предлагет по каждому слову Google сам не разбирался не нужно было
Пример
рез = Add.TranslateWordsValueList(СокрЛП(стрПеревести),"ru","uk");
Для Цкл=1 По рез.РазмерСписка() Цикл
Сообщить(""+рез.ПолучитьЗначение(ЦКЛ));
КонецЦикла;