Автоматизация перевода веб страниц

@Alexey Spirin · Регистрация: 18.10.2007

Студворк — интернет-сервис помощи студентам

Приветствую. Немного офтопик...
Задача заключается в следующем.
Есть N-e кол-во сайтов конкурентов на английском языке.
Начальству нужно, чтобы у нас хранились копии этих сайтов на русском.
С автоматической закачкой сайтов проблем нет, проблема в переводе.
Промт, к примеру, замечательно умеет переводить веб страницы. Но сделать это нужно на автомате. Т.е. или же через командную строку или через какой-либо объект. Закачку я на поток поставил при помощи Download Manager - в нем это замечательно продумано. Код выглядит примерно так:

Visual Basic
1
2
3
4
5
6
7
Dim OE As New MainOE, Prj As OEProject, URL As String
Url=GetList(0)
 
Set Prj = OE.GetFolder(0).GetItem(0)
Prj.URL = URL
Prj.Delete OEDO_ProjectFiles
Prj.Start

Вопрос в том, где бы найти переводчик, который имеет такие функции?
Ну а совсем идеально было бы заставить Промт это делать.
Знаю, для Промта есть какая-то примочка - Традос. На варезниках найти ее и слить не проблема, да вот только поможет ли?

09.10.2011, 14:26

AFAIK, Традос - это не авто-переводчик, а тулза для облегчения работы проф. переводчика (помогает сохранять единообразие терминологии, при обнаружении ранее переведённых фрагментов предлагает готовый перевод, ведёт пользовательские словари, удобна для работы в группе и т.д.). Хотя... м.б. у меня уже устаревшие данные.

Я вот в одной своей программе пользовался какой-то переводилкой (типа Мультитрана), вызывая её по URL'у с параметрами, а URL и формат его вызова я подсмотрел в реестре, поскольку переводилка интегрировалась в контекстное меню IE. М.б. таким макаром и Промт могёт?!

09.10.2011, 14:30

Вот, нашёл:

Visual Basic
1
2
3
4
5
6
7
8
        Case 'MultiTran'
            wbrSelection = MF.PrepareTextForURL(wbrMessage.Document.selection.createRange().Text)
            wbrMessage.Document.Open 'http://www.multitran.ru/c/m.exe?shortf=1&fshort=1&q=' & wbrSelection, 'L', _
                                     'height=400,width=520,screenX=0,screenY=0,scrollbars=yes,resizable'
        Case 'Lingvo'
            wbrSelection = MF.PrepareTextForURL(wbrMessage.Document.selection.createRange().Text)
            wbrMessage.Document.Open 'http://lingvo.yandex.ru/cgi-bin/lingvo.pl?stype=qts&text=' & wbrSelection, 'L', _
                                     'height=270,width=500,screenX=100,screenY=100,scrollbars=yes,resizable'

М.б. и у Промта есть аналогичный он-лайновый сервис?! тока, конечно, не будет никакого вызова окна с результатом перевода...

@Alexey Spirin · 09.10.2011, 15:19 **[ТС]**

Есть онлайн сервис промтовский - www.translate.ru. Но у него три недостатка:
а) качалку на него не настроишь
б) работает не всегда
в) сильно тормозит

09.10.2011, 15:36

А если порыться вот тут:
http://www.yandex.ru/yandsearch?stype=&nl=0&text=%EF%E5%F0%E5 %E2%EE%E4%F7%E8%EA+%E2%E5%E1-%F1%F2%F0%E0%ED%E8%F6

@Alexey Spirin · 10.10.2011, 11:14 **[ТС]**

Ура

Докопался я до истины

Копать, правда, пришлось чисто интуитивно, но получилось)
И так.
Устанавливаем ПРОМТ 7. Лезем в "Настройки перевода в Internet Explorer". Ставим там галку, что надо добавить пункт в контектное меню "Перевести страницу". Лезем в регистри и ищем ключ "HKEY_CURRENT_USERSoftwareMicrosoftInter net ExplorerMenuExtПеревести страницу". Видим, что дефолтовый параметр указывает на эту страницу: "C:Program FilesPRMT6PRMTIEpage.htm". Открываем исходник страницы и видим следующее:

PHP/HTML
1
2
3
4
5
6
7
8
9
10
11
12
13
<HTML>
<script language="VBScript">
    ' PROMT Internet Explorer extension   - DO NOT EDIT THIS FILE!!!
    On Error Resume Next
    Dim PromtIE
    set PromtIE = CreateObject("PromtIE4.Extension.2")
    if err<>0 then
        Alert("Error Creating Object")
    else
        PromtIE.TranslatePage external.menuArguments.document
    end if
</script>
</HTML>

Значит, для перевода веб страницы нам нужен объект PromtIE4.Extension.2.
Где его искать?
В папке, в которую установлен Промт есть множество подпапок. Одна из них называется PRMTIE, а в ней есть библа PRMTIE.DLL.
Подключаем ее к VB проекту.
В результате, у меня НЕ получилось создать указанный выше объект, но получилось создать вот такой: PROMTIE4Lib.Extens.
У него есть несколько методов, среди которых - TranslatePage.
Притом в Object Browser описание для него следующее:
Sub TranslatePage(pUnk As Unknown)
Что же такое pUnk As Unknown ?
Опять лезем в исходник обрабатывающей страницы и видим там строку
PromtIE.TranslatePage external.menuArguments.document
Значит, нам нужен объект типа Document!
А откуда нам его взять? Правильно, или из компонента WebBrowser, или из билиотечки Microsoft HTML Object Library.
Вот самый элементарный пример того, ка коно работает:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Private Sub Command1_Click()
 
   WebBrowser1.Navigate "http://microsoft.com"
 
End Sub
 
Private Sub Command2_Click()
'жмем, когда страница будет загружена полностью.
Dim a As New PROMTIE4Lib.Extens
a.ShowOptions WebBrowser1.Document
a.TranslatePage WebBrowser1.Document
 
End Sub

Так что задача решилась

Будем писать систему автоматического перевода... Кстати, где-то я слышал/читал, возможно на сайте производителя о том, что Промт умеет переводить еще и картинки, путем их предварительного распознавания... ) Вот думаю - может заняться и сделать совсем полный перевод сайтов

@Alexey Spirin · 10.10.2011, 11:15 **[ТС]**

Гм... исходник страницы не прошел почему-то...
еще разок...
<HTML>
<script language="VBScript
' PROMT Internet Explorer extension - DO NOT EDIT THIS FILE!!!
On Error Resume Next
Dim PromtIE
set PromtIE = CreateObject("PromtIE4.Extension.2")
if err<>0 then
Alert("Error Creating Object")
else
PromtIE.TranslatePage external.menuArguments.document
end if
</script>
</HTML>

@Alexey Spirin · 10.10.2011, 11:17 **[ТС]**

гхм.... ясно...
кому нужен исходник - открывайте код страницы...
Там он есть....

2Smalig: правь баги

а то там много всего можно понаписать

@Alexey · 10.10.2011, 11:44

Сообщение от Alexey Spirin

гхм.... ясно...
кому нужен исходник - открывайте код страницы...
Там он есть....

2Smalig: правь баги

а то там много всего можно понаписать

глюк с обновлением, Алексей спасибо

@Alexey · 10.10.2011, 11:50

По поводу темы - есть сервисы которые делают автоматический перевод прямо в интернете - тот же сайт промта, по-моему. Из зарубежных знаю http://www.systranbox.com, вот пример, как он переводит http://www.systranbox.com/syst... 1122966739. Так что имеет смысл посмотреть еще такие варианты и узнать условия использования легальным способом.

@Alexey · 10.10.2011, 11:56

ссылка на пример перевода указанная выше уже не работает - там моя сессия истекла, просит зарегистрироваться :-)

@Alexey Spirin · 10.10.2011, 12:20 **[ТС]**

Но в любом случае, не хочется привязываться к онлайн переводчикам.
Как бы стабильно у нас Сеть не работала, но всегда есть шанс глюков на провайдере, как нашем, так и у переводчика, подвисание сервера переводчика, торможение, бан за множественные запросы и т.д.
Заплатить, конечно, компания может...
Но лучше мы заплатим за офлайновую версию. Так оно будет надежней, на мой взгляд

@Alexey · 10.10.2011, 12:30

в принципе логично

однако надо еще посмотреть что в легальном варианте будет дешевле онлайновый сервис или коробочный продукт - по идее должен быть первый вариант (правда надо знать объемы перевода)

@Alexey Spirin · 10.10.2011, 12:55 **[ТС]**

Ну, если брать онлайн, то необходимо учесть, что траффик то тоже не халявный

Ну и если даже боксовая версия будет дорогой, то никто варез пока не отменял

К счастью, такие известные продукты найти можно минуты за 2-3

@Alexey · 10.10.2011, 13:00

Сообщение от Alexey Spirin

Ну, если брать онлайн, то необходимо учесть, что траффик то тоже не халявный

трафик будет таким же как и в оффлайн-версии

@Alexey Spirin · 10.10.2011, 13:31 **[ТС]**

Это в том случае, если ему сразу урлы подставлять.
Но для того, чтобы узнать урлы, надо сначала качалкой сайт к себе залить.
Еще косяки будут с переходами между страницами.
Проблем много будет....
Все-таки мне кажетсЯ, что офлайн лучше

@Alexey · 10.10.2011, 13:39

Сообщение от Alexey Spirin

Но для того, чтобы узнать урлы, надо сначала качалкой сайт к себе залить.
Еще косяки будут с переходами между страницами.

ты прав, я этого не учел

хотя зависит от сервиса - я видел онлайновый тул который переводит весь сайт и тогда качалкой можно уже забирать сразу переведенное без предварительной скачки оригинала

@Alexey Spirin · 10.10.2011, 13:43 **[ТС]**

Ну еще дело в качестве перевода...
Лучше ПРОМТа я не видел, чтоб что-то переводило.
СОКРАТ еще есть, но он косячит сильно...

10.10.2011, 13:45

Если бюджет позволяет, то лучше (имхо) купить готовое, чем писАть в данном случае что-то своё...

@Alexey Spirin · 10.10.2011, 13:59 **[ТС]**

Так написал уже все

Осталось только нормально Offline Explorer ломануть...
а то несколько месяцев работал, а сейчас стал лицензию просить...
Странно как-то...

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

Comanche
	09.10.2011, 14:26
	AFAIK, Традос - это не авто-переводчик, а тулза для облегчения работы проф. переводчика (помогает сохранять единообразие терминологии, при обнаружении ранее переведённых фрагментов предлагает готовый перевод, ведёт пользовательские словари, удобна для работы в группе и т.д.). Хотя... м.б. у меня уже устаревшие данные. Я вот в одной своей программе пользовался какой-то переводилкой (типа Мультитрана), вызывая её по URL'у с параметрами, а URL и формат его вызова я подсмотрел в реестре, поскольку переводилка интегрировалась в контекстное меню IE. М.б. таким макаром и Промт могёт?!

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	09.10.2011, 15:19 [ТС]
	Есть онлайн сервис промтовский - www.translate.ru. Но у него три недостатка: а) качалку на него не настроишь б) работает не всегда в) сильно тормозит 0

Comanche
	09.10.2011, 15:36
	А если порыться вот тут: http://www.yandex.ru/yandsearch?stype=&nl=0&text=%EF%E5%F0%E5 %E2%EE%E4%F7%E8%EA+%E2%E5%E1-%F1%F2%F0%E0%ED%E8%F6

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	10.10.2011, 11:15 [ТС]
	Гм... исходник страницы не прошел почему-то... еще разок... <HTML> <script language="VBScript ' PROMT Internet Explorer extension - DO NOT EDIT THIS FILE!!! On Error Resume Next Dim PromtIE set PromtIE = CreateObject("PromtIE4.Extension.2") if err<>0 then Alert("Error Creating Object") else PromtIE.TranslatePage external.menuArguments.document end if </script> </HTML> 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	10.10.2011, 11:17 [ТС]
	гхм.... ясно... кому нужен исходник - открывайте код страницы... Там он есть.... 2Smalig: правь баги а то там много всего можно понаписать 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	10.10.2011, 11:50
	По поводу темы - есть сервисы которые делают автоматический перевод прямо в интернете - тот же сайт промта, по-моему. Из зарубежных знаю http://www.systranbox.com, вот пример, как он переводит http://www.systranbox.com/syst... 1122966739. Так что имеет смысл посмотреть еще такие варианты и узнать условия использования легальным способом. 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	10.10.2011, 11:56
	ссылка на пример перевода указанная выше уже не работает - там моя сессия истекла, просит зарегистрироваться :-) 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	10.10.2011, 12:20 [ТС]
	Но в любом случае, не хочется привязываться к онлайн переводчикам. Как бы стабильно у нас Сеть не работала, но всегда есть шанс глюков на провайдере, как нашем, так и у переводчика, подвисание сервера переводчика, торможение, бан за множественные запросы и т.д. Заплатить, конечно, компания может... Но лучше мы заплатим за офлайновую версию. Так оно будет надежней, на мой взгляд 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	10.10.2011, 12:30
	в принципе логично однако надо еще посмотреть что в легальном варианте будет дешевле онлайновый сервис или коробочный продукт - по идее должен быть первый вариант (правда надо знать объемы перевода) 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	10.10.2011, 12:55 [ТС]
	Ну, если брать онлайн, то необходимо учесть, что траффик то тоже не халявный Ну и если даже боксовая версия будет дорогой, то никто варез пока не отменял К счастью, такие известные продукты найти можно минуты за 2-3 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	10.10.2011, 13:31 [ТС]
	Это в том случае, если ему сразу урлы подставлять. Но для того, чтобы узнать урлы, надо сначала качалкой сайт к себе залить. Еще косяки будут с переходами между страницами. Проблем много будет.... Все-таки мне кажетсЯ, что офлайн лучше 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	10.10.2011, 13:43 [ТС]
	Ну еще дело в качестве перевода... Лучше ПРОМТа я не видел, чтоб что-то переводило. СОКРАТ еще есть, но он косячит сильно... 0

Comanche
	10.10.2011, 13:45
	Если бюджет позволяет, то лучше (имхо) купить готовое, чем писАть в данном случае что-то своё...

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	10.10.2011, 13:59 [ТС]
	Так написал уже все Осталось только нормально Offline Explorer ломануть... а то несколько месяцев работал, а сейчас стал лицензию просить... Странно как-то... 0