Вход | Регистрация


1С:Предприятие :: 1С:Предприятие 8 общая

Решение задачи автоматического перевода текста с русского на английский в 1с

Решение задачи автоматического перевода текста с русского на английский в 1с
Я
   Alekzander Wolf
 
08.11.18 - 09:59
Есть ли возможность с минимальными усилиями решить данную задачу. В идеале что-то вроде:
ТекстНаАнглийском = ФункцияПеревестиТекст(ТекстНаРусском);
 
 
   Волшебник
 
1 - 08.11.18 - 10:03
Гугл Транслейт
   ДенисЧ
 
2 - 08.11.18 - 10:04
Гугль и Яндекс в такие дела вбухали миллиарды, а ты хочешь одной функцией в 1с это сделать?
   Dotoshin
 
3 - 08.11.18 - 10:08
(0) Я бы тоже не отказался от такой функции. Как раз недавно была нужна накладная на английском языке.
   Garikk
 
4 - 08.11.18 - 10:09
(3) насколько юридически правильно такие накладные выписывать?
   Garikk
 
5 - 08.11.18 - 10:10
всмысле не по английски, а через переводчик переведенные... выж понимаете что если использовать онлайн-сервисы, то перевод накладной сегодня и через 1 мес может различатся
   zva
 
6 - 08.11.18 - 10:11
Задача из собеседования в aliexpress?

я буду сзади -> I'll be back
   Dotoshin
 
7 - 08.11.18 - 10:15
(4) (5) Вопрос на самом деле не насколько правильно юридически выписывать, а насколько перевод будет соответствовать действительности. Помните байку про погонщика мышей?
   Garikk
 
8 - 08.11.18 - 10:17
(7) ну и это тоже, да.

хотя будет весело сверять распечатанную накладную с прям точно-такойже вводимой вновь и они будут различатся
   Dotoshin
 
9 - 08.11.18 - 10:21
(8) Вот поэтому и пришлось сделать отдельную печатную форму и соорудить регистр с переводами наименований номенклатуры.
   Alekzander Wolf
 
10 - 08.11.18 - 10:33
(9) Можно использовать механизм дополнительных реквизитов.
 
 Рекламное место пустует
   Cyberhawk
 
11 - 08.11.18 - 10:35
Яндекс.АПИ в помощь
   Dotoshin
 
12 - 08.11.18 - 10:46
(10) Можно, но не нужно, ибо мне периодически присылают табличку с переводами наименований и закатить ее в регистр штатными средствами три секунды, а с доп.реквизитами тот еще гемор.
   Alekzander Wolf
 
13 - 08.11.18 - 10:48
(11) Можешь код предоставить?
   Timon1405
 
14 - 08.11.18 - 10:49
   Dotoshin
 
15 - 08.11.18 - 10:49
(13) А тебе что вообще переводить-то нужно, если не секрет?
   Cyberhawk
 
16 - 08.11.18 - 10:55
(13) Сколько платишь?
   seevkik
 
17 - 08.11.18 - 10:58
яндекс апи фришный
   Alekzander Wolf
 
18 - 08.11.18 - 12:15
(16) нисколько
   Cyberhawk
 
19 - 08.11.18 - 12:17
На нет и суда, как говорится, нет
   Alekzander Wolf
 
20 - 09.11.18 - 07:26
Функция ПеревестиНаАнглийский(ТекстДляПеревода1)
    ЯзыкИсходногоТекста="ru"; 
    ЯзыкДляПеревода="en";    
    
    Ключ = "Ваш ключ"; 
    
    HTTPСоединение = Новый HTTPСоединение(
    "translate.yandex.net",// сервер (хост)

    443,// порт, по умолчанию для http используется 80, для https 443

    ,// пользователь для доступа к серверу (если он есть)

    ,// пароль для доступа к серверу (если он есть)

    ,// здесь указывается прокси, если он есть

    ,// таймаут в секундах, 0 или пусто - не устанавливать

    Новый ЗащищенноеСоединениеOpenSSL(),  // защищенное соединение, если используется https

    Ложь
    );
    
    ТекстДляПеревода1 = КодироватьСтроку(ТекстДляПеревода1,СпособКодированияСтроки.КодировкаURL);
    HTTPЗапрос = Новый HTTPЗапрос("/api/v1.5/tr/translate?key="+Ключ+"&text="+ТекстДляПеревода1+"&lang="+ЯзыкИсходногоТекста+"-"+ЯзыкДляПеревода);
    
    HTTPОтвет = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);
    
    ТекстXML     = HTTPОтвет.ПолучитьТелоКакСтроку();
    
    ЧтениеXML = Новый ЧтениеXML();
    ЧтениеXML.УстановитьСтроку(ТекстXML);
    ПостроительДОМ = Новый ПостроительDOM;
    ДокументДОМ = ПостроительДОМ.Прочитать(ЧтениеXML);
    ВеткаTranslation = ДокументДОМ.ДочерниеУзлы[0];
Возврат ВеткаTranslation.ТекстовоеСодержимое;
КонецФункции
   Alekzander Wolf
 
21 - 09.11.18 - 07:27
Вроде работает, если кому нужно


Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Рекламное место пустует