Автор Тема: Нужны примеры, как можно нажать на кнопку  (Прочитано 1428 раз)

0 Пользователей и 2 Гостей просматривают эту тему.

Оффлайн lemonia [?]

  • Новичок
  • *
  • Сообщений: 70

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Нужны примеры, как можно нажать на кнопку
« Ответ #15, Отправлен: Апрель 15, 2017, 17:41:51 »
Благодарю, заработало. Только файлы настроек с расширением .dprj не разложились по папкам, а разместились в одной из папок. Если так удобнее для целей дальнейшей запаковки после распознавания Finereader, то их можно не распределять по папкам, а размещать в корневой директории всех файлов, приделывая например спереди горизонтальную палочку: -8.dprj, -10.dprj, -11.dprj. Запаковку тоже Вас попрошу автоматизировать после пасхальных праздников. При запаковке из другой вкладки надо будет выбирать этот файл из окна. После пасхальных праздников наделаю скриншотов по процессу запаковки (не знаю, сколько дней после пасхи длятся праздники, когда надо ограничивать себя в работе, перенося на потом). Там надо, чтобы когда буду подготавливать распознанные Finereader примеры файлов, чтобы путь совпал. директорию с подпапками разместить на диске C? У Вас наверное в виртуальной машине диск С есть, как обычно бывает при установке операционной системы?
На скриншоте показал, что выбор файла настроек, это обычный выбор файла в окне.
Также написал в личку.


Внимание: Для просмотра прикреплённых файлов необходимо Войти или Зарегистрироваться

Русское сообщество AutoIt

Re: Нужны примеры, как можно нажать на кнопку
« Ответ #15 Отправлен: Апрель 15, 2017, 17:41:51 »

Онлайн Khaibit [?]

  • Новичок
  • *
  • Сообщений: 51
  • Репутация: 10
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.6.1
Re: Нужны примеры, как можно нажать на кнопку
« Ответ #16, Отправлен: Апрель 15, 2017, 17:59:34 »
Только файлы настроек с расширением .dprj не разложились по папкам, а разместились в одной из папок. Если так удобнее для целей дальнейшей запаковки после распознавания Finereader, то их можно не распределять по папкам, а размещать в корневой директории всех файлов, приделывая например спереди горизонтальную палочку: -8.dprj, -10.dprj, -11.dprj. чтобы путь совпал. директорию с подпапками разместить на диске C? У Вас наверное в виртуальной машине диск С есть
Точно все в одной папке, не заметил, можно и в корень, а можно и по папкам, уже вам решать, как вам удобней.
Диск С, да.
Дальше будем посмотреть что да как.
Вот так в отдельные папки.
Код: AutoIt [Выделить]
$path = '\faili-primerov\' ; вставить путь к папке с папками
Run('DjvuOCR.exe'); запуск программы рядом со скриптом
WinWait('[Class:CustomDlg]')
WinActivate('[Class:CustomDlg]')
ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:16]');decoder
Sleep(250)
$search1 = FileFindFirstFile($path & '*.*')
Local $folder
While 1
    $folder = FileFindNextFile($search1)
    If @error Then ExitLoop
    If @extended = 1 Then
        ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:10]');add
        WinWait('Select DJVU file', '')
        ControlSetText('Select DJVU file', '', '[CLASS:Edit; INSTANCE:1]', $path & $folder)
        ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]'); нажимаем открыть
        Sleep(250)
        ControlFocus('Select DJVU file', '', '[CLASS:DirectUIHWND; INSTANCE:2]')
        ControlListView('Select DJVU file', '', '[CLASS:SysListView32; INSTANCE:1]', 'SelectAll')
        Sleep(250)
        ControlClick('Select DJVU file', '', '[CLASS:Button; INSTANCE:2]') ; нажимаем открыть
        WinWaitClose('Select DJVU file', '')
        ControlSetText('[Class:CustomDlg]', '', '[CLASS:Edit; INSTANCE:2]', $path & $folder); вставляем папку назачения
        Sleep(250)
        ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:18]');жмем прогресс
        WinWaitClose('Decoding process...', 'Stop decoding')
        WinWait('Decoder', '')
        ControlClick('Decoder', '', '[CLASS:Button; INSTANCE:1]');yes
        WinWait('Name for output OCR TXT file', '')
        ControlSetText('Name for output OCR TXT file', '', '[CLASS:Edit; INSTANCE:1]', $path&$folder)
        Sleep(250)
        ControlClick('Name for output OCR TXT file', '', '[CLASS:Button; INSTANCE:2]');save
        Sleep(250)
        ControlSetText('Name for output OCR TXT file', '', '[CLASS:Edit; INSTANCE:1]', $folder)
        Sleep(250)
        ControlClick('Name for output OCR TXT file', '', '[CLASS:Button; INSTANCE:2]');save
        Sleep(250)
        ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:32]');Create FR8 Batch
        Sleep(10000);10sek
        ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:14]'); мжеме очиститиь
        Sleep(250)
    EndIf
WEnd


Оффлайн lemonia [?]

  • Новичок
  • *
  • Сообщений: 70

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Нужны примеры, как можно нажать на кнопку
« Ответ #17, Отправлен: Апрель 15, 2017, 18:54:10 »
Благодарю. Заработало. На следующей неделе в среду или четверг планирую разместить в теме архив со скриншотами и файлами.

Оффлайн lemonia [?]

  • Новичок
  • *
  • Сообщений: 70

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
Re: Нужны примеры, как можно нажать на кнопку
« Ответ #18, Отправлен: Апрель 19, 2017, 19:30:54 »
Здравствуйте. Подготовил архив https://cloud.mail.ru/public/HJMJ/EtLRgct78

Русское сообщество AutoIt

Re: Нужны примеры, как можно нажать на кнопку
« Ответ #18 Отправлен: Апрель 19, 2017, 19:30:54 »

Онлайн Khaibit [?]

  • Новичок
  • *
  • Сообщений: 51
  • Репутация: 10
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.6.1
Re: Нужны примеры, как можно нажать на кнопку
« Ответ #19, Отправлен: Апрель 19, 2017, 22:53:33 »
Вот на тест, по поводу окна "теста проекта" - тут нужно определиться с максимумом по времени (пока 30 сек), по истечении которого останавливать обработку, или делать скрин.
Код: AutoIt [Выделить]
$path = 'C:\djvu\'
Run('DjvuOCR.exe'); запуск программы рядом со скриптом
WinWait('[Class:CustomDlg]')
WinActivate('[Class:CustomDlg]')
ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:18]')
Sleep(250)
$search1 = FileFindFirstFile($path & '*.*')
Local $folder, $count, $i
While 1
    $folder = FileFindNextFile($search1)
    If @error Then ExitLoop
    If @extended = 1 Then
        ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:29]');load decoder project
        WinWait('Select DECODER project', '')
        ControlSetText('Select DECODER project', '', '[CLASS:Edit; INSTANCE:1]', $path & $folder);выбираем папку проекта
        Sleep(250)
        ControlClick('Select DECODER project', '', '[CLASS:Button; INSTANCE:2]');открыть
        Sleep(250)
        ControlSetText('Select DECODER project', '', '[CLASS:Edit; INSTANCE:1]', $folder);выбираем файл проекта
        Sleep(250)
        ControlClick('Select DECODER project', '', '[CLASS:Button; INSTANCE:2]');открыть
        Sleep(250)
        ControlSetText('[Class:CustomDlg]', '', '[CLASS:Edit; INSTANCE:3]', $path & $folder);выбираем папку fine reader
        Sleep(250)
        ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:25]');тест проекта
        WinWaitClose('Processing...', 30);ждем закрытия окна теста, тут нужно определиться с максимумом, пока 30 сек
        If @error Then ;выход по тайм-ауту.
            ControlClick('Processing...', '', '[CLASS:Button; INSTANCE:2]'); останавливаем обработку
        Else
            $count = UBound(StringRegExp(FileRead($path & $folder & '\' & $folder & '.DPRJ'), 'file=', 3));получаем количество файлов в проекте
            ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:26]');жмем progress
            For $i = 1 To $count
                WinWaitClose('Processing DjVu files') ;ждем закрытия окна обработки файлов
            Next
        EndIf
        ControlClick('[Class:CustomDlg]', '', '[CLASS:Button; INSTANCE:17]');clean all
    EndIf
WEnd

« Последнее редактирование: Апрель 19, 2017, 23:02:25 от Khaibit »

Оффлайн lemonia [?]

  • Новичок
  • *
  • Сообщений: 70

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.12.0
В этом сообщении готовые рабочие решения, которые Khaibit доводил до ума в результате многочисленных тестов на моём компьютере.

Здесь резервная копия скриптов, с помощью которой люди могут обрабатывать большие объёмы документов, чтобы найти поисковыми программами неизвестные данные для востановления или развития энергетики, ресурсосбережения, экономики, медицины и т.д.
Скрытый текст:Войдите или Зарегистрируйтесь чтобы увидеть скрытый текст
« Последнее редактирование: Май 22, 2017, 13:45:04 от lemonia »

Русское сообщество AutoIt

Re: Нужны примеры, как можно нажать на кнопку
« Ответ #20 Отправлен: Май 11, 2017, 23:50:56 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
10 Ответов
7019 Просмотров
Последний ответ Сентябрь 04, 2009, 18:01:39
от CreatoR
13 Ответов
9351 Просмотров
Последний ответ Декабрь 07, 2009, 01:56:15
от Latoid
11 Ответов
9117 Просмотров
Последний ответ Октябрь 27, 2010, 22:17:22
от Sky-WaLkeR
2 Ответов
3226 Просмотров
Последний ответ Февраль 24, 2011, 22:18:16
от `p r o x y
10 Ответов
3486 Просмотров
Последний ответ Июнь 08, 2012, 16:54:24
от Viktor1703
2 Ответов
1481 Просмотров
Последний ответ Июнь 01, 2013, 18:21:01
от AZJIO
1 Ответов
1122 Просмотров
Последний ответ Февраль 10, 2014, 23:55:48
от sngr
1 Ответов
1518 Просмотров
Последний ответ Июнь 20, 2014, 09:58:38
от C2H5OH
6 Ответов
3808 Просмотров
Последний ответ Апрель 03, 2015, 10:43:27
от Yashied
2 Ответов
806 Просмотров
Последний ответ Февраль 16, 2017, 23:00:43
от SharkyEXE