Автоматизация перевода веб страниц - VB
Формулировка задачи:
Приветствую. Немного офтопик...
Задача заключается в следующем.
Есть N-e кол-во сайтов конкурентов на английском языке.
Начальству нужно, чтобы у нас хранились копии этих сайтов на русском.
С автоматической закачкой сайтов проблем нет, проблема в переводе.
Промт, к примеру, замечательно умеет переводить веб страницы. Но сделать это нужно на автомате. Т.е. или же через командную строку или через какой-либо объект. Закачку я на поток поставил при помощи Download Manager - в нем это замечательно продумано. Код выглядит примерно так:
Вопрос в том, где бы найти переводчик, который имеет такие функции?
Ну а совсем идеально было бы заставить Промт это делать.
Знаю, для Промта есть какая-то примочка - Традос. На варезниках найти ее и слить не проблема, да вот только поможет ли?
Листинг программы
- 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
Решение задачи: «Автоматизация перевода веб страниц»
textual
Листинг программы
- 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д