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

@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 ломануть...
а то несколько месяцев работал, а сейчас стал лицензию просить...
Странно как-то...

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

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