Перенос данных из ексель в картотеку

[ee33e]

Спасибо за пример! Код для меня слишком сложен, вникать сейчас буду!)

А можно тот код (чуть выше) без распознавания как-то допилить?))) вроде чуть-чуть осталось))) просто я даже в справке таких команд не вижу чтобы понять как добавить недостающую прокрутку и что за глюки с определением цвета(((

[Vint]

Прокрутку... пробуй. Кто его знает как там в твоей "секретной" программе.

И не получается перейти на другую карточку если в заданной точке подходящий цвет(((
Как проверить через лог какой он все же цвет определяет и делает ли это?

Цвет в точке

Code: (clickermann) [Select]

GETSCREEN
LOGWRITE(PXL(X,Y))
Что находит в коде

Code: (clickermann) [Select]

GETSCREEN
IF_PIXEL_IN(1059,892,1052,892, 255)
    LOGWRITE("Найден цвет 255 в координатах: ", $_return1, " / ", $_return2)
    // ...
ELSE
    LOGWRITE("Цвет НЕ найден")
END_IF

[Oraven]

ну вот же 163 строка

Code: (clickermann) [Select]

IF_PIXEL_IN(1059,892,1052,892, 255)1059 не может быть больше 1052 ! Зона поиска задана не верно.

[ee33e]

Вот умница, Oraven, переключается все здорово! Большущее спасибо!))

Осталось меню(

Получается при превышении 37 строк автоматически переходит на другую "страницу" (нажимает pagedown)? так? значит при превышении 37 строки нужно дополнительно нажать pagedown, но как это добавить в код не знаю!(

где-то тут я догадываюсь)))
 

Code: (clickermann) [Select]

$page = INT($index / 37)     // тут 12 было по числу строк, если строк теперь 37, правильно?
      FOR($p=0, $p < $page)
         KEYPRESS(#PAGEDOWN)  // перелистываем страницу $page раз
         WAITMS(300)
      END_CYC

[Oraven]

С моим кодом распознавания номера тебе нужен лиш один цикл прокрутки и поиска.

Code: (clickermann) [Select]

$check = 0
WHILE($check ! 2)
   
   scan($num_excel) // в эту переменную возвращаем номер из Excel
   IF($check = 2) // и ищем его в списке
      MOVE($x,$y)
   ELSE // если не нашли листаем и снова ищем
      KEYPRESS(#PAGEDOWN)
      WAITMS(300)
   END_IF
   
END_CYC

[ee33e]

ОООо друзья мои!!! Я стал мегамозг только что в чьем-то представлении, конечно с вашей огромной помощь!
Код корявый (мой уровень)), это как костыли к иномарке))) но блин сам допилил, даже результат уже не важен, главное работает!))
Пришлось разбить на 9 строк, и там надо было сократить количество номеров, ещё вместо pagedown вставил прокрутку три раза, тогда каждая "страница" начиналась с нового номера, как предполагается программой, да и в экселе прокрутка с помощью клавиши pagedown так же работает, а в этой программе все не так))) Ещё и страницы сами не возвращаются, пришлось добавить 11 раз pageup, чтобы, при условии самого последнего номера из списка, вернуться в начало! и все пошло! Задержки до минимума сейчас проверю и можно уходить с коллегой чай с тортом пить или что там у нее)))))

Oraven, твой код супер, но надо долго вникать, чего поздним вечером уже не сделаешь((
Но обязательно опробую и его!, получается картинки я свои любого размера могу заменить, без разницы?

Вот сам код, точнее измененная его часть по перелистыванию списка, если кому интересно, и кто хочет подсказать какими командами можно это дело укоротить, готовьтесь:))))

Code: (clickermann) [Select]

   $num = INT(FROMCLIP())   // число из буфера
   get_index($num)
   IF($index ! -1)
   LCLICK(321,233)   // открываем выпадающий список - поставлены координаты
   WAITMS(500)
   MOVE(509,293)
   WAITMS(200)

KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)
KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)
KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)
KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)
KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)
KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)
KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)
KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)
KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)
KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)
KEYDOWN(#PAGEUP)   
   WAITMS(10)
   KEYUP(#PAGEUP)
   WAITMS(10)


      $page = INT($index / 9)     
      FOR($p=0, $p < $page)
         WHEELDOWN                 // перелистываем страницу $page раз
         WAITMS(100)
         WHEELDOWN
         WAITMS(100)
WHEELDOWN 
         WAITMS(300)
      END_CYC
 
     $loc_index = $index - ($page * 9)     


[Vint]

Давным давно, в далёкой галактике, придумали циклы

Code: (clickermann) [Select]

FOR($pu=0, $pu < 11)
    KEYDOWN(#PAGEUP)
    WAITMS(10)
    KEYUP(#PAGEUP)
    WAITMS(10)
END_CYC