« previous next »
Pages: [1]

Author Topic: Исполнение внутри цикла  (Read 2624 times)

0 Members and 1 Guest are viewing this topic.

Alex14

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
Исполнение внутри цикла
« on: October 10, 2019, 02:13:42 PM »
Здравствуйте! Заранее прошу простить возможно за глупый вопрос. Но как сделать что бы "KEYPRESS(#ENTER)" исполнялся каждый третий цикл, а не каждое исполнение цикла?

Code: [Select]
FOR($nst = 1, $nst < TFCount("Text1.txt")+1)
    $nst2 = TFREAD ("Text1.txt", $nst)
    TOCLIP($nst2)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
    KEYPRESS(#ENTER)       
END_CYC
     
HALT
Logged

Космич

  • Активный участник
  • ***
  • Posts: 265
    • View Profile
Re: Исполнение внутри цикла
« Reply #1 on: October 10, 2019, 03:35:36 PM »
Code: (clickermann) [Select]
FOR($nst = 1, $nst < TFCount("Text1.txt") + 1)
   $nst2 = TFREAD ("Text1.txt", $nst)
   TOCLIP($nst2)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYPRESS (#V)
   KEYUP (#CTRL)
   IF($nst - INT($nst / 3) * 3 = 0)
      KEYPRESS(#ENTER)
   END_IF
END_CYC

HALT
« Last Edit: October 10, 2019, 03:37:18 PM by Космич »
Logged
«Иногда ты ваяешь до тех пор, пока до тебя не дойдёт, что именно ты делаешь.»

Alex14

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
Re: Исполнение внутри цикла
« Reply #2 on: October 10, 2019, 04:09:49 PM »
Quote from: Космич on October 10, 2019, 03:35:36 PM
Code: (clickermann) [Select]
FOR($nst = 1, $nst < TFCount("Text1.txt") + 1)
   $nst2 = TFREAD ("Text1.txt", $nst)
   TOCLIP($nst2)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYPRESS (#V)
   KEYUP (#CTRL)
   IF($nst - INT($nst / 3) * 3 = 0)
      KEYPRESS(#ENTER)
   END_IF
END_CYC

HALT

Благодарю!
Logged

Alex14

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
Re: Исполнение внутри цикла
« Reply #3 on: October 17, 2019, 01:18:37 PM »
Здравствуйте! Помогите еще добавить условие в Switch Case

Code: [Select]
   FOR($nst = 1, $nst < TFCount("Text1.txt") + 1)
       $nst2 = TFREAD ("Text1.txt", $nst)
       TOCLIP($nst2)
       KEYDOWN (#CTRL)
       WAITMS (50)
       KEYPRESS (#V)
       KEYUP (#CTRL)
       IF($nst - INT($nst / 3) * 3 = 0)
          KEYPRESS(#ENTER)
       END_IF
    SWITCH($nst)
        CASE(5)
           //Условие (ждать одной из нажатых клавиш)
           //При нажатии клавиши (#1) продолжается цикл скрипта
           //При нажатии клавиши (#2) исполнялся KEYPRESS(#ENTER) пять раз и продолжался цикл скрипта
    END_SWITCH
    END_CYC
HALT
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Исполнение внутри цикла
« Reply #4 on: October 17, 2019, 04:19:13 PM »
Code: (clickermann) [Select]
FOR($nst = 1, $nst < TFCount("Text1.txt") + 1)
   $nst2 = TFREAD ("Text1.txt", $nst)
   TOCLIP($nst2)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYPRESS (#V)
   KEYUP (#CTRL)
   IF($nst - INT($nst / 3) * 3 = 0)
      KEYPRESS(#ENTER)
   END_IF
   IF($nst = 5)
      $check = 0
      WHILE($check = 0)
         IF(ISKEYDOWN(#1)=1)
            WHILE(ISKEYDOWN(#1)=1)
            END_CYC
            $check = 1
         ELSE
            IF(ISKEYDOWN(#2)=1)
               WHILE(ISKEYDOWN(#2)=1)
               END_CYC
               FOR($a=0,$a<5)
                  KEYPRESS(#ENTER)
                  WAITMS(50)
               END_CYC
               $check = 1
            END_IF
         END_IF
      END_CYC
   END_IF
END_CYC
HALT
Logged

Alex14

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
Re: Исполнение внутри цикла
« Reply #5 on: October 17, 2019, 09:23:33 PM »
Quote from: Oraven on October 17, 2019, 04:19:13 PM
Code: (clickermann) [Select]
FOR($nst = 1, $nst < TFCount("Text1.txt") + 1)
   $nst2 = TFREAD ("Text1.txt", $nst)
   TOCLIP($nst2)
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYPRESS (#V)
   KEYUP (#CTRL)
   IF($nst - INT($nst / 3) * 3 = 0)
      KEYPRESS(#ENTER)
   END_IF
   IF($nst = 5)
      $check = 0
      WHILE($check = 0)
         IF(ISKEYDOWN(#1)=1)
            WHILE(ISKEYDOWN(#1)=1)
            END_CYC
            $check = 1
         ELSE
            IF(ISKEYDOWN(#2)=1)
               WHILE(ISKEYDOWN(#2)=1)
               END_CYC
               FOR($a=0,$a<5)
                  KEYPRESS(#ENTER)
                  WAITMS(50)
               END_CYC
               $check = 1
            END_IF
         END_IF
      END_CYC
   END_IF
END_CYC
HALT

Благодарю!
Logged
Pages: [1]
« previous next »