Author Topic: Подстроки  (Read 1433 times)

0 Members and 1 Guest are viewing this topic.

GQD

  • Зашел в гости
  • *
  • Posts: 1
    • View Profile
Подстроки
« on: August 31, 2015, 10:28:01 AM »
Надо было: что бы из тхт файла вставлял попеременно что до знака или, любого иного триггера":"Был такой вариант



FOR ($count, $count<TFCOUNT("workers.txt"))
LCLICK(574,36)  // 16709104
waitms(150)
keypress(#enter)
waitms(3000)
LCLICK(530,232)  // 14389306
waitms(50)
keystring ($count)
waitms(300)
LCLICK(629,350)  // 16777215 
KEYSTRING (STRCUT2 (TFRead("workers.txt", $count), 1, strpos(TFRead("workers.txt", $count),0":")-1), 20)
WAITMS(150)
halt

dramster

  • Герой форума
  • *****
  • Posts: 1134
    • View Profile
Re: Подстроки
« Reply #1 on: August 31, 2015, 11:58:22 AM »
1. цикл for должен заканчиваться  end_cyc
2. чтение начинаем с первое строки и заканчиваем последней FOR ($count=1, $count<TFCOUNT("workers.txt")+1)
3. что  значит "0" в этом куске ".......$count),0":"........." ?! убираем его
KEYSTRING (STRCUT2 (TFRead("workers.txt", $count), 1, strpos(TFRead("workers.txt", $count),":")-1), 20)

также можно заменить вырезание строки STRCUT2 на
Code: (clickermann) [Select]
STRSEPARATE (TFRead("workers.txt", $count), ":", $arr)
KEYSTRING ($arr[0])
undefine($arr)