Что нового

Как скриптом - сконвертировать закрытый файл doc - в файлы jpg (постранично)

radioamator16

Новичок
Сообщения
39
Репутация
0
Добрый день, уважаемые специалисты по autoit.
Помогите разобраться.

Сейчас использую онлайн-конвертер convertio.co/ru/doc-jpg/
Но его можно использовать лишь когда есть интернет.

Нигде не могу найти никаких решений.
Как скриптом - сконвертировать закрытый файл doc - в файлы jpg (постранично) ?
Может быть есть какая-нибудь UDF для этого ?
 

hedji

Продвинутый
Сообщения
409
Репутация
94
1) Есть для PDF тык

2) Использовать оффлайн-конвертер, аналогичный по функционалу convertio.co/ru/doc-jpg/ например тык
 
Автор
R

radioamator16

Новичок
Сообщения
39
Репутация
0
Возможно ли скриптом реализовать такую операцию:

Открыть страницу convertio.co/ru/doc-jpg/
Загрузить на страницу файл 1.doc
Затем нажать на этой странице - кнопку "Конвертировать".
Затем выждать 20 секунд.
Затем скачать получившийся архив zip - в папку со скриптом.

Как такое можно сделать ?
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
radioamator16 сказал(а):
Возможно ли скриптом реализовать такую операцию:

Открыть страницу convertio.co/ru/doc-jpg/
Загрузить на страницу файл 1.doc
Затем нажать на этой странице - кнопку "Конвертировать".
Затем выждать 20 секунд.
Затем скачать получившийся архив zip - в папку со скриптом.

Как такое можно сделать ?
С этим сайтом я так и не разобрался, слишком много нечитаемого JS кода, а API платный.
В гугле другой сервис нашел, он бесплатный, но там какой-то лимит всё равно есть, не знаю на сколько хватит.
Регистрируемся, забираем ключ, вставляем в последний параметр функции, кажись работает.
Можете мой ключ взять, он мне все равно не нужен.
Код:
$result = _api_convert("doc", "jpg", @ScriptDir & "\filename.doc", @ScriptDir, "60nctiEWkWLdMjdY")
; MsgBox(0, "result", $result)

Func _api_convert($sIformat = "doc", $sOformat = "jpg", $sFilePath="", $sOutDirPath="", $sSecret="")
	; https://www.convertapi.com/doc-to-jpg
	If $sFilePath == "" or Not FileExists($sFilePath) Or $sOutDirPath == "" Or Not FileExists($sOutDirPath) Then Return SetError(1, 0, False)
	If Not FileExists(@ScriptDir&"\convertapi.exe") Then InetGet("https://www.dropbox.com/s/420nujs5wbcm7bs/convertapi.exe?dl=1", @ScriptDir&"\convertapi.exe", 3)
	If @error Then Return SetError(2, 0, False)
	Local $iExitCode = RunWait(StringFormat('convertapi.exe --iformat=%s --oformat=%s --params="File:@%s" --out="@%s" --secret=%s', $sIformat, $sOformat, $sFilePath, $sOutDirPath, $sSecret), @ScriptDir, @SW_HIDE)
	Local $sConvertedFileName = StringRegExpReplace($sFilePath, "^(.*?)\."&$sIformat&"([x]?)$", "$1\."&$sOformat)
	Return FileExists($sConvertedFileName)
EndFunc


1. Лимит там, похоже, большой;
2. Почту можно указать случайную
не существующую,
на нее даже не приходит подтверждение.
Так что вполне можно пользоваться!
 
Верх