[bogomolv]

Sanja Alone

Well job!

Люди подскажите пожалуйста как можно из экселевской таблички скопировать данные (количество строк не фиксированное, столбцы фиксированные)?

[bogomolv]

Geck

Обработать xls-файл вряд-ли удастся - слишком сложная структура файла.
А вот обработать окно с открытой таблицей легко - через Send('^{Ins}) или ControlGetText().

bogomolv
Спасибо... А как можно определить когда данные закончатся?
Можно конечно вручную править количество повторов в цикле, но это не выход.

bogomolv
Кстати через ControlGetText() не получается, только через Send

Добрый вечер
Вопрос по поводу скрипта от Lingvo
Сдела папочку Lingvо, сложил туда все нужные файлики:
/vfd
AutoIt3.exe
ling10me_flp.IMA
lingvo.au3
lingvo.exe
LV10ML.iso
Запускаю
AutoIt3.exe lingvo.au3
Доходит до принятия лицензионного соглашения и виснет.
Причем стоит точка на отказе принятия лицензионного соглашения
Может где-нибудь в скрипте ошибка?

Я так понимаю ошибка должна быть здесь:
ControlClick ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Лицензионный договор', 'Button3' )
Такой функции не нашел в описании. AutoIT 3.1.1

[Sanja Alone]

demo369

Запускаю AutoIt3.exe lingvo.au3

В принципе, так тоже должно работать, т.к. я применял макрос @ScriptDir в путях, но я всегда использую откомпилированные в exe скрипты, а данный вариант запуска установки Lingvo не тестировал вовсе.

Может где-нибудь в скрипте ошибка?

Пару десятков раз проверял на VMWare и 2 раза на реальных компах - все было ОК.
Почему скрипт может не работать:
1. Не выполнен пункт 4 оригинального поста - Alcohol или Daemon ни разу не запускались.
2. Другой дистрибутив Lingvo и, следовательно, отличные от приведенных в скрипте названия окон, текст в окнах, названия эл-тов (ну не Button3, а Button2, например), другое имя msi-файла в корне исошки Lingvo и т.п.

Для выяснения точной причины, добавь в начало скрипта строку Opt("TrayIconDebug",1), а также закомментируй AutoItSetOption("TrayIconHide", 1) и BlockInput ( 1 ). Запусти скрипт снова, и, когда он зависнет, наведи мышь на иконку AutoIt-а в трее и увидишь причину зависания.

Такой функции не нашел в описании. AutoIT 3.1.1

Плохо искал: ControlClick ( "title", "text", controlID [, button] [, clicks]] ). При просмотре chm-ки, для более удобного поиска, переключайся на закладку "Указатель" и там вводи то, что ищешь. При этом работает автодополнение и ты быстро найдешь искомую функцию.

P.S. Извини за неоперативный ответ - я только вчера купил новую интернет-карточку.

[EgOrus]

Здравствуйте товарищи, радует что тема растет и множится.
Написал скрипт для автоматизации процесса скидывания CD и DVD дисков на HDD (мне нужно было скинуть большое количество фильмов).

Так вот вопрос такой, хотелось бы сделать прогрэсбар для наглядности, но каким образом обновлять его, что-то не представляю. Вернее есть решение, считывать объем инфы кот. уже скопировалась и сравнивать с общим объемом компакт диска, но это работает только в случае копирования мелких фалов, при копировании фильма индикатор с 1% будет прыгать на 100%. Есть ли какое-то решение?

Код:

; Скрипт полностью автоматизирует процесс копирования, от пользователя требуется 
; только вставлять диски и задвигать лоток. Скипт написан для запуска из Total Commander, 
; но можно использовать и самостоятельно. 
; В верхнем левом углу выводит инф. о текущем действии скрипта.
; Пример запуска:
;  cdcopy.exe [CD] [Destination]
;  cdcopy.exe X: D:\Video или cdcopy X "D:\Video store" 
;  cdcopy.exe "%P" "%T" из TC  
;-----------------------------------------------------------

Opt('ExpandVarStrings', 1)
Opt('TrayIconDebug',1)

;Назначение переменных из командной строки
$cmd1 = $CmdLine[1]
$cmd2 = $CmdLine[2]

;Приведение переменных к нужному виду
If StringLen($cmd1) = 1 Then $cmd1 = "$cmd1$:"
If StringLen($cmd2) = 1 Then $cmd2 = "$cmd2$:"
If StringLen($cmd1) > 2 Then $cmd1 = StringLeft("$cmd1$", 2)
If StringRight("$cmd2$", 1) = "\" Then $cmd2 = StringTrimRight("$cmd2$", 1)

;Завершение скрипта если нет параметров или первый параметр не явл. буквой CD(DVD)ROM'а
If $CmdLine[0] = 0 Then
   MsgBox(4096,"CD-DVD Copy script", "No command-line arguments")
   Exit
ElseIf DriveGetType("$cmd1$\") <> "CDROM" Then
   MsgBox(4096,"CD-DVD Copy script", "$cmd1$ is not a CD(DVD)ROM drive letter")
   Exit
EndIf

;Начало цикла
While 1
Sleep (1000)

;Если в приводе нет носителя, начинаем цикл сначала
If DriveStatus("$cmd1$\") == "NOTREADY" Then ContinueLoop
ToolTip(" CD mount.", 1, 1)
Sleep (500)

;Получаем объем своб.места на диске назначения и конвертируем его в gb. в случае если места больше 1024 mb.
$DestFree = DriveSpaceFree(StringLeft("$cmd2$", 2) & "\")
if $DestFree > 1024 Then
   $DestFreeGB = round (($DestFree / 1024), 2)
   $siz = "gb."
Else
   $DestFreeGB = round ($DestFree, 2)
   $siz = "mb."
EndIf

;получаем объем носителя в mb. (CD или DVD)
$SourceTotal = DriveSpaceTotal("$cmd1$\")
If $SourceTotal > 801 Then
   $media = "DVD"
Else
   $media = "CD"
EndIf

;получаем Метку диска
$CDlabel = DriveGetLabel("$cmd1$\")

;Завершение скрипта если недостаточно свободного места на диске назначения 
ToolTip(" Check free space.", 1, 1)
Sleep (500)
ToolTip(" Free space: $DestFreeGB$ $siz$", 1, 1)
If $DestFree < $SourceTotal Then
    MsgBox(4096,"CD-DVD Copy script", "Not enough free space on Drive " & StringLeft("$cmd2$", 2) & " " & round($DestFree, 2) & " mb. free")
    Exit
EndIf
Sleep (1000)

;Создаем папку, куда затем будет скопирован диск 
DirCreate("$cmd2$\!new\$CDlabel$")
ToolTip(" $media$ copy in progress :: $CDlabel$ :: [" & round($SourceTotal, 2) & " mb.]", 1, 1)
DirCopy("$cmd1$\", "$cmd2$\!new\$CDlabel$",1)
ToolTip(" $media$ copy complete", 1, 1)
Sleep (500)
SoundSetWaveVolume(50)
SoundPlay ( "C:\WINDOWS\Media\chimes.wav")
CDTray("$cmd1$", "open")
ToolTip(" Please mount Media in Drive $cmd1$", 1, 1)
Sleep (4000)

WEnd

demo369

Цитата:
Запускаю AutoIt3.exe lingvo.au3

В принципе, так тоже должно работать, т.к. я применял макрос @ScriptDir в путях, но я всегда использую откомпилированные в exe скрипты, а данный вариант запуска установки Lingvo не тестировал вовсе.

Сделал экзешник. Ситуация не поменялась


Цитата:
Может где-нибудь в скрипте ошибка?

Пару десятков раз проверял на VMWare и 2 раза на реальных компах - все было ОК.
Почему скрипт может не работать:
1. Не выполнен пункт 4 оригинального поста - Alcohol или Daemon ни разу не запускались.

Пользуюсь Alcohol. Специально запускал. По идеи если его не запустить, то он и образ не должен примонтировать,а это он как раз делает.

2. Другой дистрибутив Lingvo и, следовательно, отличные от приведенных в скрипте названия окон, текст в окнах, названия эл-тов (ну не Button3, а Button2, например), другое имя msi-файла в корне исошки Lingvo и т.п.

LV10ML.iso - размер 650,170,368 байт
MSI файл как и в скрипте.
названия и кнопки такие же. смотрел через AutoIt Window Info и через IsoBuster.

Для выяснения точной причины, добавь в начало скрипта строку Opt("TrayIconDebug",1), а также закомментируй AutoItSetOption("TrayIconHide", 1) и BlockInput ( 1 ). Запусти скрипт снова, и, когда он зависнет, наведи мышь на иконку AutoIt-а в трее и увидишь причину зависания.

Просто выдает что скрипт остановлен (paused) lingvo.exe


Цитата:
Такой функции не нашел в описании. AutoIT 3.1.1

Плохо искал: ControlClick ( "title", "text", controlID [, button] [, clicks]] ). При просмотре chm-ки, для более удобного поиска, переключайся на закладку "Указатель" и там вводи то, что ищешь. При этом работает автодополнение и ты быстро найдешь искомую функцию.

Угу, нашел. Даже пробовал, добавить button и clicks. Рез-тов не дало.

P.S. Извини за неоперативный ответ - я только вчера купил новую интернет-карточку

Это не страшно Спасибо что ответил.
Могу еще скриншот скинуть на окошко, на котором скрипт останавливается. Может что-нибудь прояснится.

[Sanja Alone]

demo369
Очень неудобно читать твои посты - pls, пользуйся тэгами цитат quote.

Просто выдает что скрипт остановлен (paused) lingvo.exe

Не просто... Наведи мышку на иконку и не нажимай клавиш, появится всплывающая подсказка на 2 строки - в первой будет имя скрипта, а во второй строка на к-рой он застопорился (что-то вроде Line 5: WinWait("Name","Text")) Причем лучше запускать au3-файл, т.к. в случае с exe не будет показан номер строки скрипта.

Даже пробовал, добавить button и clicks. Рез-тов не дало.

Все, что в квадратных скобках - необязательные параметры.

Что я могу еще придумать:
1. Можно заменить

Код:

WinWaitActive ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Лицензионный договор' )
; на
WinWait ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Лицензионный договор' )
WinActivate ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Лицензионный договор' )
WinWaitActive ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Лицензионный договор' )

2. Заменить

Код:

ControlClick ( 'ABBYY Lingvo 10 Multilingual Dictionary', 'Лицензионный договор', 'Button3' )
Send ( '{ENTER}' )
; на
Send ( '{UP}' )
Send ( '{ENTER}' )

3. Мешать скрипту могут различные перехватывающие нажатия клавиш проги: автопереключатели раскладки, счетчики нажатий клавиш и т.п. Тут нужно или отказаться от BlockInput(1), или убивать процесс такого приложения в памяти, например, убийство Punto Switcher-а будет выглядеть так (поместить этот код нужно в начало скрипта):

Код:

If ProcessExists ( "ps.exe" )<>0 Then
     ProcessClose ( "ps.exe" )
     ProcessWaitClose ( "ps.exe" )
EndIf