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

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

хотя будет весело сверять распечатанную накладную с прям точно-такойже вводимой вновь и они будут различатся
9 Dotoshin
 
08.11.18
10:21
(8) Вот поэтому и пришлось сделать отдельную печатную форму и соорудить регистр с переводами наименований номенклатуры.
10 Alekzander Wolf
 
08.11.18
10:33
(9) Можно использовать механизм дополнительных реквизитов.
11 Cyberhawk
 
08.11.18
10:35
Яндекс.АПИ в помощь
12 Dotoshin
 
08.11.18
10:46
(10) Можно, но не нужно, ибо мне периодически присылают табличку с переводами наименований и закатить ее в регистр штатными средствами три секунды, а с доп.реквизитами тот еще гемор.
13 Alekzander Wolf
 
08.11.18
10:48
(11) Можешь код предоставить?
14 Timon1405
 
08.11.18
10:49
15 Dotoshin
 
08.11.18
10:49
(13) А тебе что вообще переводить-то нужно, если не секрет?
16 Cyberhawk
 
08.11.18
10:55
(13) Сколько платишь?
17 seevkik
 
08.11.18
10:58
яндекс апи фришный
18 Alekzander Wolf
 
08.11.18
12:15
(16) нисколько
19 Cyberhawk
 
08.11.18
12:17
На нет и суда, как говорится, нет
20 Alekzander Wolf
 
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.ТекстовоеСодержимое;
КонецФункции
21 Alekzander Wolf
 
09.11.18
07:27
Вроде работает, если кому нужно
AdBlock убивает бесплатный контент. 1Сергей