« previous next »
Pages: 1 [2]

Author Topic: Подскажите пожалуйста  (Read 5080 times)

0 Members and 4 Guests are viewing this topic.

Plorik

  • Зашел в гости
  • *
  • Posts: 14
  • Мужик?
    • View Profile
Re: Подскажите пожалуйста
« Reply #15 on: December 25, 2015, 04:22:05 PM »
Quote from: Oraven on December 25, 2015, 03:24:23 PM
Вставляй свои действия после TFDELETE("1.txt", 1)
Спасибо!!! Теперь почти идеально.
А какую команду надо написать и куда что-бы весь цикл делался 6 раз?
Потом я хочу вставить еще один скрипт действий мышки.
Пробовал поиграть с метками, но что-то не выходит
Сейчас скрипт выглядит так
 
Code: (clickermann) [Select]
WHILE(TFCOUNT("1.txt") > 0)
   $str = STRREPLACE(TFREAD("1.txt", 1), "  ", " ")
   STRSEPARATE($str, " ", $arr)
   FOR($b=0,$b<ARRSIZE($arr))
      SWITCH($arr[$b])
      CASE(1)
         LCLICK(465,365)
      CASE(2)
         LCLICK(515,365)
      CASE(3)
         LCLICK(569,365)
      CASE(4)
         LCLICK(621,365)
      CASE(5)
         LCLICK(673,365)
      CASE(6)
         LCLICK(725,365)
      CASE(7)
         LCLICK(465,400)
      CASE(8)
         LCLICK(515,400)
      CASE(9)
         LCLICK(569,400)
      CASE(10)
         LCLICK(621,400)
      CASE(11)
         LCLICK(673,400)
      CASE(12)
         LCLICK(725,400)
      CASE(13)
         LCLICK(465,435)
      CASE(14)
         LCLICK(515,435)
      CASE(15)
         LCLICK(569,435)
      CASE(16)
         LCLICK(621,435)
      CASE(17)
         LCLICK(673,435)
      CASE(18)
         LCLICK(725,435)
      CASE(19)
         LCLICK(465,470)
      CASE(20)
         LCLICK(515,470)
      CASE(21)
         LCLICK(569,470)
      CASE(22)
         LCLICK(621,470)
      CASE(23)
         LCLICK(673,470)
      CASE(24)
         LCLICK(725,470)
      CASE(25)
         LCLICK(465,505)
      CASE(26)
         LCLICK(515,505)
      CASE(27)
         LCLICK(569,505)
      CASE(28)
         LCLICK(621,505)
      CASE(29)
         LCLICK(673,505)
      CASE(30)
         LCLICK(725,505)
      CASE(31)
         LCLICK(465,542)
      CASE(32)
         LCLICK(515,542)
      CASE(33)
         LCLICK(569,542)
      CASE(34)
         LCLICK(621,542)
      CASE(35)
         LCLICK(673,542)
      CASE(36)
         LCLICK(725,542)
      DEFAULT
      END_SWITCH
      WAITMS(100)
   END_CYC
   UNDEFINE($arr)
   TFDELETE("1.txt", 1)
   waitms(2357)
  lDown(422,60)
waitms(103)
  lUp(422,60)
waitms(70)
  lDown(422,60)
waitms(149)
  lUp(422,60)
waitms(967)
  lDown(560,19)
waitms(120)
  lUp(560,19)
waitms(44)
  lDown(560,19)
waitms(149)
  lUp(561,19)
waitms(2358)
  lDown(299,450)
waitms(144)
  lUp(299,450)
waitms(4029)
  lDown(296,449)
waitms(253)
  lUp(296,449)
waitms(66)
  lDown(296,449)
waitms(135)
  lUp(297,449)
waitms(1722)
  lDown(1360,589)
waitms(1085)
  lUp(826,558)
waitms(471)
  keyDown(162)
waitms(0)
  keyDown(17)
waitms(329)
  keyDown(67)
waitms(159)
  keyUp(162)
waitms(0)
  keyUp(17)
waitms(32)
  keyUp(67)
waitms(2035)
  rDown(1014,579)
waitms(123)
  rUp(1014,579)
waitms(1107)
  lDown(1054,638)
waitms(154)
  lUp(1054,638)
waitms(2408)
  lDown(1408,522)
waitms(146)
  lUp(1408,522)
waitms(2141)
  lDown(771,57)
waitms(89)
  lUp(771,57)
waitms(4091)
  keyDown(17)
waitms(0)
  keyDown(162)
waitms(189)
  keyDown(83)
waitms(117)
  keyUp(83)
waitms(18)
  keyUp(17)
waitms(0)
  keyUp(162)
waitms(1480)
  lDown(947,175)
waitms(79)
   WAITMS(500)   
WHEELDOWN
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
END_CYC
HALT
Logged

Plorik

  • Зашел в гости
  • *
  • Posts: 14
  • Мужик?
    • View Profile
Re: Подскажите пожалуйста
« Reply #16 on: December 25, 2015, 05:07:26 PM »
Quote from: COBCEM_3BEPb on December 25, 2015, 04:38:49 PM
[spoiler= всё повторить 6 раз]
Code: (clickermann) [Select]

FOR($a=0,$a<6) // всё от этой строки повторяем 6 раз
 WHILE(TFCOUNT("1.txt") > 0)
   $str = STRREPLACE(TFREAD("1.txt", 1), "  ", " ")
   STRSEPARATE($str, " ", $arr)
   FOR($b=0,$b<ARRSIZE($arr))
      SWITCH($arr[$b])
      CASE(1)
         LCLICK(465,365)
      CASE(2)
         LCLICK(515,365)
      CASE(3)
         LCLICK(569,365)
      CASE(4)
         LCLICK(621,365)
      CASE(5)
         LCLICK(673,365)
      CASE(6)
         LCLICK(725,365)
      CASE(7)
         LCLICK(465,400)
      CASE(8)
         LCLICK(515,400)
      CASE(9)
         LCLICK(569,400)
      CASE(10)
         LCLICK(621,400)
      CASE(11)
         LCLICK(673,400)
      CASE(12)
         LCLICK(725,400)
      CASE(13)
         LCLICK(465,435)
      CASE(14)
         LCLICK(515,435)
      CASE(15)
         LCLICK(569,435)
      CASE(16)
         LCLICK(621,435)
      CASE(17)
         LCLICK(673,435)
      CASE(18)
         LCLICK(725,435)
      CASE(19)
         LCLICK(465,470)
      CASE(20)
         LCLICK(515,470)
      CASE(21)
         LCLICK(569,470)
      CASE(22)
         LCLICK(621,470)
      CASE(23)
         LCLICK(673,470)
      CASE(24)
         LCLICK(725,470)
      CASE(25)
         LCLICK(465,505)
      CASE(26)
         LCLICK(515,505)
      CASE(27)
         LCLICK(569,505)
      CASE(28)
         LCLICK(621,505)
      CASE(29)
         LCLICK(673,505)
      CASE(30)
         LCLICK(725,505)
      CASE(31)
         LCLICK(465,542)
      CASE(32)
         LCLICK(515,542)
      CASE(33)
         LCLICK(569,542)
      CASE(34)
         LCLICK(621,542)
      CASE(35)
         LCLICK(673,542)
      CASE(36)
         LCLICK(725,542)
      DEFAULT
      END_SWITCH
      WAITMS(100)
   END_CYC
   UNDEFINE($arr)
   TFDELETE("1.txt", 1)
   waitms(2357)
  lDown(422,60)
waitms(103)
  lUp(422,60)
waitms(70)
  lDown(422,60)
waitms(149)
  lUp(422,60)
waitms(967)
  lDown(560,19)
waitms(120)
  lUp(560,19)
waitms(44)
  lDown(560,19)
waitms(149)
  lUp(561,19)
waitms(2358)
  lDown(299,450)
waitms(144)
  lUp(299,450)
waitms(4029)
  lDown(296,449)
waitms(253)
  lUp(296,449)
waitms(66)
  lDown(296,449)
waitms(135)
  lUp(297,449)
waitms(1722)
  lDown(1360,589)
waitms(1085)
  lUp(826,558)
waitms(471)
  keyDown(162)
waitms(0)
  keyDown(17)
waitms(329)
  keyDown(67)
waitms(159)
  keyUp(162)
waitms(0)
  keyUp(17)
waitms(32)
  keyUp(67)
waitms(2035)
  rDown(1014,579)
waitms(123)
  rUp(1014,579)
waitms(1107)
  lDown(1054,638)
waitms(154)
  lUp(1054,638)
waitms(2408)
  lDown(1408,522)
waitms(146)
  lUp(1408,522)
waitms(2141)
  lDown(771,57)
waitms(89)
  lUp(771,57)
waitms(4091)
  keyDown(17)
waitms(0)
  keyDown(162)
waitms(189)
  keyDown(83)
waitms(117)
  keyUp(83)
waitms(18)
  keyUp(17)
waitms(0)
  keyUp(162)
waitms(1480)
  lDown(947,175)
waitms(79)
   WAITMS(500)   
WHEELDOWN
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
END_CYC
END_CYC// всё до этой строки повторяем 6 раз
HALT

[/spoiler]
Блин нет немного не так)))
Мне нужно чтобы после удаления 6 строк он делал еще массив кликов мышкой, а не продолжал дальше работать с файлом до посинения пока он не будит пуст.
Logged

Plorik

  • Зашел в гости
  • *
  • Posts: 14
  • Мужик?
    • View Profile
Re: Подскажите пожалуйста
« Reply #17 on: December 25, 2015, 05:27:25 PM »
Проще говоря нужно чтобы было так:
1. Берет первую строку, работает с ней кликая по координатам, потом удаляет ее.
2. Выполняет массив кликов мышкой и клавиатурой
3. Эти оба действия выполняет 6 раз
4. Выполняет новый массив кликов мышкой
Все.
И заново пока не кончаться строки в файле.
А сейчас он лапатит все равно весь массив пока не удаляться все строки!
Приходиться мониторить  и в нужный мне момент останавливать, потом запускать снова.
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Подскажите пожалуйста
« Reply #18 on: December 25, 2015, 06:09:15 PM »
Code: (clickermann) [Select]
WHILE(TFCOUNT("1.txt") > 0)
   $str = STRREPLACE(TFREAD("1.txt", 1), "  ", " ")
   STRSEPARATE($str, " ", $arr)
   TFDELETE("1.txt", 1)
   FOR($a=0,$a<6) // повтор 6 раз
      FOR($b=0,$b<ARRSIZE($arr))
         SWITCH($arr[$b])
         CASE(1)
            LCLICK(465,365)
         CASE(2)
            LCLICK(515,365)
         CASE(3)
            LCLICK(569,365)
         CASE(4)
            LCLICK(621,365)
         CASE(5)
            LCLICK(673,365)
         CASE(6)
            LCLICK(725,365)
         CASE(7)
            LCLICK(465,400)
         CASE(8)
            LCLICK(515,400)
         CASE(9)
            LCLICK(569,400)
         CASE(10)
            LCLICK(621,400)
         CASE(11)
            LCLICK(673,400)
         CASE(12)
            LCLICK(725,400)
         CASE(13)
            LCLICK(465,435)
         CASE(14)
            LCLICK(515,435)
         CASE(15)
            LCLICK(569,435)
         CASE(16)
            LCLICK(621,435)
         CASE(17)
            LCLICK(673,435)
         CASE(18)
            LCLICK(725,435)
         CASE(19)
            LCLICK(465,470)
         CASE(20)
            LCLICK(515,470)
         CASE(21)
            LCLICK(569,470)
         CASE(22)
            LCLICK(621,470)
         CASE(23)
            LCLICK(673,470)
         CASE(24)
            LCLICK(725,470)
         CASE(25)
            LCLICK(465,505)
         CASE(26)
            LCLICK(515,505)
         CASE(27)
            LCLICK(569,505)
         CASE(28)
            LCLICK(621,505)
         CASE(29)
            LCLICK(673,505)
         CASE(30)
            LCLICK(725,505)
         CASE(31)
            LCLICK(465,542)
         CASE(32)
            LCLICK(515,542)
         CASE(33)
            LCLICK(569,542)
         CASE(34)
            LCLICK(621,542)
         CASE(35)
            LCLICK(673,542)
         CASE(36)
            LCLICK(725,542)
         DEFAULT
         END_SWITCH
         WAITMS(100)
      END_CYC
      waitms(500)
      lDown(422,60)
      waitms(103)
      lUp(422,60)
      waitms(70)
      lDown(422,60)
      waitms(149)
      lUp(422,60)
      waitms(967)
      lDown(560,19)
      waitms(120)
      lUp(560,19)
      waitms(44)
      lDown(560,19)
      waitms(149)
      lUp(561,19)
      waitms(2358)
      lDown(299,450)
      waitms(144)
      lUp(299,450)
      waitms(4029)
      lDown(296,449)
      waitms(253)
      lUp(296,449)
      waitms(66)
      lDown(296,449)
      waitms(135)
      lUp(297,449)
      waitms(1722)
      lDown(1360,589)
      waitms(1085)
      lUp(826,558)
      waitms(471)
      keyDown(162)
      waitms(0)
      keyDown(17)
      waitms(329)
      keyDown(67)
      waitms(159)
      keyUp(162)
      waitms(0)
      keyUp(17)
      waitms(32)
      keyUp(67)
      waitms(2035)
      rDown(1014,579)
      waitms(123)
      rUp(1014,579)
      waitms(1107)
      lDown(1054,638)
      waitms(154)
      lUp(1054,638)
      waitms(2408)
      lDown(1408,522)
      waitms(146)
      lUp(1408,522)
      waitms(2141)
      lDown(771,57)
      waitms(89)
      lUp(771,57)
      waitms(4091)
      keyDown(17)
      waitms(0)
      keyDown(162)
      waitms(189)
      keyDown(83)
      waitms(117)
      keyUp(83)
      waitms(18)
      keyUp(17)
      waitms(0)
      keyUp(162)
      waitms(1480)
      lDown(947,175)
      waitms(79)
      lUp(947,175)
      WAITMS(500)
      WHEELDOWN
      WAITMS(100)
      KEYDOWN(#DOWN)
      WAITMS(100)
      KEYUP(#DOWN)
      WAITMS(100)
      KEYDOWN(#DOWN)
      WAITMS(100)
      KEYUP(#DOWN)
      WAITMS(100)
      KEYDOWN(#DOWN)
      WAITMS(100)
      KEYUP(#DOWN)
      WAITMS(100)
   END_CYC
   UNDEFINE($arr)
END_CYC
HALT
« Last Edit: December 25, 2015, 06:12:23 PM by Oraven »
Logged

Plorik

  • Зашел в гости
  • *
  • Posts: 14
  • Мужик?
    • View Profile
Re: Подскажите пожалуйста
« Reply #19 on: December 26, 2015, 11:29:34 AM »
Quote from: Oraven on December 25, 2015, 06:09:15 PM
[spoiler]
Code: (clickermann) [Select]
WHILE(TFCOUNT("1.txt") > 0)
   $str = STRREPLACE(TFREAD("1.txt", 1), "  ", " ")
   STRSEPARATE($str, " ", $arr)
   TFDELETE("1.txt", 1)
   FOR($a=0,$a<6) // повтор 6 раз
      FOR($b=0,$b<ARRSIZE($arr))
         SWITCH($arr[$b])
         CASE(1)
            LCLICK(465,365)
         CASE(2)
            LCLICK(515,365)
         CASE(3)
            LCLICK(569,365)
         CASE(4)
            LCLICK(621,365)
         CASE(5)
            LCLICK(673,365)
         CASE(6)
            LCLICK(725,365)
         CASE(7)
            LCLICK(465,400)
         CASE(8)
            LCLICK(515,400)
         CASE(9)
            LCLICK(569,400)
         CASE(10)
            LCLICK(621,400)
         CASE(11)
            LCLICK(673,400)
         CASE(12)
            LCLICK(725,400)
         CASE(13)
            LCLICK(465,435)
         CASE(14)
            LCLICK(515,435)
         CASE(15)
            LCLICK(569,435)
         CASE(16)
            LCLICK(621,435)
         CASE(17)
            LCLICK(673,435)
         CASE(18)
            LCLICK(725,435)
         CASE(19)
            LCLICK(465,470)
         CASE(20)
            LCLICK(515,470)
         CASE(21)
            LCLICK(569,470)
         CASE(22)
            LCLICK(621,470)
         CASE(23)
            LCLICK(673,470)
         CASE(24)
            LCLICK(725,470)
         CASE(25)
            LCLICK(465,505)
         CASE(26)
            LCLICK(515,505)
         CASE(27)
            LCLICK(569,505)
         CASE(28)
            LCLICK(621,505)
         CASE(29)
            LCLICK(673,505)
         CASE(30)
            LCLICK(725,505)
         CASE(31)
            LCLICK(465,542)
         CASE(32)
            LCLICK(515,542)
         CASE(33)
            LCLICK(569,542)
         CASE(34)
            LCLICK(621,542)
         CASE(35)
            LCLICK(673,542)
         CASE(36)
            LCLICK(725,542)
         DEFAULT
         END_SWITCH
         WAITMS(100)
      END_CYC
      waitms(500)
      lDown(422,60)
      waitms(103)
      lUp(422,60)
      waitms(70)
      lDown(422,60)
      waitms(149)
      lUp(422,60)
      waitms(967)
      lDown(560,19)
      waitms(120)
      lUp(560,19)
      waitms(44)
      lDown(560,19)
      waitms(149)
      lUp(561,19)
      waitms(2358)
      lDown(299,450)
      waitms(144)
      lUp(299,450)
      waitms(4029)
      lDown(296,449)
      waitms(253)
      lUp(296,449)
      waitms(66)
      lDown(296,449)
      waitms(135)
      lUp(297,449)
      waitms(1722)
      lDown(1360,589)
      waitms(1085)
      lUp(826,558)
      waitms(471)
      keyDown(162)
      waitms(0)
      keyDown(17)
      waitms(329)
      keyDown(67)
      waitms(159)
      keyUp(162)
      waitms(0)
      keyUp(17)
      waitms(32)
      keyUp(67)
      waitms(2035)
      rDown(1014,579)
      waitms(123)
      rUp(1014,579)
      waitms(1107)
      lDown(1054,638)
      waitms(154)
      lUp(1054,638)
      waitms(2408)
      lDown(1408,522)
      waitms(146)
      lUp(1408,522)
      waitms(2141)
      lDown(771,57)
      waitms(89)
      lUp(771,57)
      waitms(4091)
      keyDown(17)
      waitms(0)
      keyDown(162)
      waitms(189)
      keyDown(83)
      waitms(117)
      keyUp(83)
      waitms(18)
      keyUp(17)
      waitms(0)
      keyUp(162)
      waitms(1480)
      lDown(947,175)
      waitms(79)
      lUp(947,175)
      WAITMS(500)
      WHEELDOWN
      WAITMS(100)
      KEYDOWN(#DOWN)
      WAITMS(100)
      KEYUP(#DOWN)
      WAITMS(100)
      KEYDOWN(#DOWN)
      WAITMS(100)
      KEYUP(#DOWN)
      WAITMS(100)
      KEYDOWN(#DOWN)
      WAITMS(100)
      KEYUP(#DOWN)
      WAITMS(100)
   END_CYC
   UNDEFINE($arr)
END_CYC
HALT[/spoiler]
Извините, но я походу не правильно условие поставил в самом начале и по этому все последующие ошибки.
Вот правильное условие:
1. Есть текстовый документ такого вида
 8  7 12 24 28 31
 8  7 12 24 28 32
 8  7 12 24 28 33
 8  7 12 24 28 34
 8  7 12 24 28 35
 8  7 12 24 28 36

 8  7 12 24 28 31
 8  7 12 24 28 32
 8  7 12 24 28 33
 8  7 12 24 28 34
 8  7 12 24 28 35
 8  7 12 24 28 36

 8  7 12 24 28 31
 8  7 12 24 28 32
 8  7 12 24 28 33
 8  7 12 24 28 34
 8  7 12 24 28 35
 8  7 12 24 28 36
2. Нужно чтобы кликер брал первые шесть строк (а не одну как я изначально писал)
3. Работал с этими строками выполняя клики по координатам от 1 до 36
4. После отработки с шестью строками выполнял нужные мне клики мышкой
5. Потом удалял эти шесть строк и начинал все по кругу пока не закончиться тект

Такой цикл будит правильный.
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Подскажите пожалуйста
« Reply #20 on: December 26, 2015, 11:40:48 AM »
7 пятниц на неделе...

Пустых строк в файле "1.txt" быть не должно
Code: (clickermann) [Select]
WHILE(TFCOUNT("1.txt") > 0)
   FOR($a=1,$a<7) // обработка 6 строк
      $str = STRREPLACE(TFREAD("1.txt", $a), "  ", " ")
      STRSEPARATE($str, " ", $arr)
      FOR($b=0,$b<ARRSIZE($arr))
         SWITCH($arr[$b])
         CASE(1)
            LCLICK(465,365)
         CASE(2)
            LCLICK(515,365)
         CASE(3)
            LCLICK(569,365)
         CASE(4)
            LCLICK(621,365)
         CASE(5)
            LCLICK(673,365)
         CASE(6)
            LCLICK(725,365)
         CASE(7)
            LCLICK(465,400)
         CASE(8)
            LCLICK(515,400)
         CASE(9)
            LCLICK(569,400)
         CASE(10)
            LCLICK(621,400)
         CASE(11)
            LCLICK(673,400)
         CASE(12)
            LCLICK(725,400)
         CASE(13)
            LCLICK(465,435)
         CASE(14)
            LCLICK(515,435)
         CASE(15)
            LCLICK(569,435)
         CASE(16)
            LCLICK(621,435)
         CASE(17)
            LCLICK(673,435)
         CASE(18)
            LCLICK(725,435)
         CASE(19)
            LCLICK(465,470)
         CASE(20)
            LCLICK(515,470)
         CASE(21)
            LCLICK(569,470)
         CASE(22)
            LCLICK(621,470)
         CASE(23)
            LCLICK(673,470)
         CASE(24)
            LCLICK(725,470)
         CASE(25)
            LCLICK(465,505)
         CASE(26)
            LCLICK(515,505)
         CASE(27)
            LCLICK(569,505)
         CASE(28)
            LCLICK(621,505)
         CASE(29)
            LCLICK(673,505)
         CASE(30)
            LCLICK(725,505)
         CASE(31)
            LCLICK(465,542)
         CASE(32)
            LCLICK(515,542)
         CASE(33)
            LCLICK(569,542)
         CASE(34)
            LCLICK(621,542)
         CASE(35)
            LCLICK(673,542)
         CASE(36)
            LCLICK(725,542)
         DEFAULT
         END_SWITCH
         WAITMS(100)
      END_CYC
      UNDEFINE($arr)
   END_CYC
   
   waitms(500)
   lDown(422,60)
   waitms(103)
   lUp(422,60)
   waitms(70)
   lDown(422,60)
   waitms(149)
   lUp(422,60)
   waitms(967)
   lDown(560,19)
   waitms(120)
   lUp(560,19)
   waitms(44)
   lDown(560,19)
   waitms(149)
   lUp(561,19)
   waitms(2358)
   lDown(299,450)
   waitms(144)
   lUp(299,450)
   waitms(4029)
   lDown(296,449)
   waitms(253)
   lUp(296,449)
   waitms(66)
   lDown(296,449)
   waitms(135)
   lUp(297,449)
   waitms(1722)
   lDown(1360,589)
   waitms(1085)
   lUp(826,558)
   waitms(471)
   keyDown(162)
   waitms(0)
   keyDown(17)
   waitms(329)
   keyDown(67)
   waitms(159)
   keyUp(162)
   waitms(0)
   keyUp(17)
   waitms(32)
   keyUp(67)
   waitms(2035)
   rDown(1014,579)
   waitms(123)
   rUp(1014,579)
   waitms(1107)
   lDown(1054,638)
   waitms(154)
   lUp(1054,638)
   waitms(2408)
   lDown(1408,522)
   waitms(146)
   lUp(1408,522)
   waitms(2141)
   lDown(771,57)
   waitms(89)
   lUp(771,57)
   waitms(4091)
   keyDown(17)
   waitms(0)
   keyDown(162)
   waitms(189)
   keyDown(83)
   waitms(117)
   keyUp(83)
   waitms(18)
   keyUp(17)
   waitms(0)
   keyUp(162)
   waitms(1480)
   lDown(947,175)
   waitms(79)
   lUp(947,175)
   WAITMS(500)
   WHEELDOWN
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
   
   FOR($с=0,$с<6) // удаляем первые 6 строк из файла
      TFDELETE("1.txt", 1)
   END_CYC
END_CYC
HALT
Logged

Plorik

  • Зашел в гости
  • *
  • Posts: 14
  • Мужик?
    • View Profile
Re: Подскажите пожалуйста
« Reply #21 on: December 26, 2015, 09:57:16 PM »
Quote from: Oraven on December 26, 2015, 11:40:48 AM
7 пятниц на неделе...

Пустых строк в файле "1.txt" быть не должно
[spoiler]
Code: (clickermann) [Select]
WHILE(TFCOUNT("1.txt") > 0)
   FOR($a=1,$a<7) // обработка 6 строк
      $str = STRREPLACE(TFREAD("1.txt", $a), "  ", " ")
      STRSEPARATE($str, " ", $arr)
      FOR($b=0,$b<ARRSIZE($arr))
         SWITCH($arr[$b])
         CASE(1)
            LCLICK(465,365)
         CASE(2)
            LCLICK(515,365)
         CASE(3)
            LCLICK(569,365)
         CASE(4)
            LCLICK(621,365)
         CASE(5)
            LCLICK(673,365)
         CASE(6)
            LCLICK(725,365)
         CASE(7)
            LCLICK(465,400)
         CASE(8)
            LCLICK(515,400)
         CASE(9)
            LCLICK(569,400)
         CASE(10)
            LCLICK(621,400)
         CASE(11)
            LCLICK(673,400)
         CASE(12)
            LCLICK(725,400)
         CASE(13)
            LCLICK(465,435)
         CASE(14)
            LCLICK(515,435)
         CASE(15)
            LCLICK(569,435)
         CASE(16)
            LCLICK(621,435)
         CASE(17)
            LCLICK(673,435)
         CASE(18)
            LCLICK(725,435)
         CASE(19)
            LCLICK(465,470)
         CASE(20)
            LCLICK(515,470)
         CASE(21)
            LCLICK(569,470)
         CASE(22)
            LCLICK(621,470)
         CASE(23)
            LCLICK(673,470)
         CASE(24)
            LCLICK(725,470)
         CASE(25)
            LCLICK(465,505)
         CASE(26)
            LCLICK(515,505)
         CASE(27)
            LCLICK(569,505)
         CASE(28)
            LCLICK(621,505)
         CASE(29)
            LCLICK(673,505)
         CASE(30)
            LCLICK(725,505)
         CASE(31)
            LCLICK(465,542)
         CASE(32)
            LCLICK(515,542)
         CASE(33)
            LCLICK(569,542)
         CASE(34)
            LCLICK(621,542)
         CASE(35)
            LCLICK(673,542)
         CASE(36)
            LCLICK(725,542)
         DEFAULT
         END_SWITCH
         WAITMS(100)
      END_CYC
      UNDEFINE($arr)
   END_CYC
   
   waitms(500)
   lDown(422,60)
   waitms(103)
   lUp(422,60)
   waitms(70)
   lDown(422,60)
   waitms(149)
   lUp(422,60)
   waitms(967)
   lDown(560,19)
   waitms(120)
   lUp(560,19)
   waitms(44)
   lDown(560,19)
   waitms(149)
   lUp(561,19)
   waitms(2358)
   lDown(299,450)
   waitms(144)
   lUp(299,450)
   waitms(4029)
   lDown(296,449)
   waitms(253)
   lUp(296,449)
   waitms(66)
   lDown(296,449)
   waitms(135)
   lUp(297,449)
   waitms(1722)
   lDown(1360,589)
   waitms(1085)
   lUp(826,558)
   waitms(471)
   keyDown(162)
   waitms(0)
   keyDown(17)
   waitms(329)
   keyDown(67)
   waitms(159)
   keyUp(162)
   waitms(0)
   keyUp(17)
   waitms(32)
   keyUp(67)
   waitms(2035)
   rDown(1014,579)
   waitms(123)
   rUp(1014,579)
   waitms(1107)
   lDown(1054,638)
   waitms(154)
   lUp(1054,638)
   waitms(2408)
   lDown(1408,522)
   waitms(146)
   lUp(1408,522)
   waitms(2141)
   lDown(771,57)
   waitms(89)
   lUp(771,57)
   waitms(4091)
   keyDown(17)
   waitms(0)
   keyDown(162)
   waitms(189)
   keyDown(83)
   waitms(117)
   keyUp(83)
   waitms(18)
   keyUp(17)
   waitms(0)
   keyUp(162)
   waitms(1480)
   lDown(947,175)
   waitms(79)
   lUp(947,175)
   WAITMS(500)
   WHEELDOWN
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
   KEYDOWN(#DOWN)
   WAITMS(100)
   KEYUP(#DOWN)
   WAITMS(100)
   
   FOR($с=0,$с<6) // удаляем первые 6 строк из файла
      TFDELETE("1.txt", 1)
   END_CYC
END_CYC
HALT
[/spoiler]
Большое спасибо еще раз!
Теперь все работает идеально.
Quote from: COBCEM_3BEPb on December 26, 2015, 02:24:14 PM
Вы вообще неутруждаете себя обдумыванием технического задания, а программисты приучены кодить так, как логически интерпритирует написанное, трезвый и психически здоровый человек. Неужели трудно, всего один раз вместо вежливых слов, быть вежливым по сути и немного подумать, как поймёт описание ваших хотелок другой человек? Ненужно бесконечно эксплуатировать отзывчивость модераторов, она ведь может пригодиться тем достойным людям, что нуждаются в помощи больше вас. :-X
Вы конечно правы в чем-то, но не в том, что я не утруждаю себя, это не так. Просто я не программист и без всякого обмана мне это очень сложно дается, перед тем как писать новое сообщении я по долгу сидел и пробовал сам и перечитал много инфы на форуме. Люди разные кому то это легко дается, а кому то нет.
Зато я могу с закрытыми глазами разобрать и собрать двигатель Т90. А кухарка приготовит такой вкусный борщ, который вы не когда в жизни не сможете сделать. И тут не в трезвости и психическом здоровье дело, а просто в умении что-то делать лучше чем другие ну и складе ума.

Хочу еще раз поблагодарить за помощь и пожелать приятно и весело провести всем новогодние праздники!!!
Удачи ребята с НОВЫМ ГОДОМ
тему закрываю 
Logged
Pages: 1 [2]
« previous next »