Работа с текстовыми файлами

[justitdo]

Здравствуйте. В общем, возник вопрос. Есть сайт, на котором работает кликер, нужно сделать так, чтобы перед выполнением скрипта бралась ссылка из адресной строки браузера и записывалась в текстовый файл. При следующих выполнениях скрипта, он так же должен брать ссылку из адресной строки и проверять, есть ли она в текстовике. Если она есть - выполнять указанное действие, а если нет - то записывать ее в тхт и выполнять другое указанное действие. Скажите, пожалуйста, можно такое реализовать кликером?

[Oraven]

Code: (clickermann) [Select]

WAIT(1)

LCLICK(1184,64)  // клик по адресной строке для выделения (установить свою координату!)
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+C
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
WAITMS (50)
$strclip = FROMCLIP()

$n = 0
$action = 0
$count = TFCOUNT ("input.txt")
WHILE($count > $n)
   $comp = TFRead("input.txt", $n+1)
   INC($n,1)
   IF($comp = $strclip)
      $count = 0
      $action = 1
   END_IF
END_CYC

IF($action = 1)
   // сдесь действие если строка совпала
ELSE
   TFWRITE("input.txt", $strclip) // запись строки в файл
   WAITMS (50)
   // сдесь действие если строка не совпала
END_IF

[justitdo]

Спасибо большое за оперативную помощь) Буду вечером сегодня пробовать. Вопрос такой, этот скрипт будет сохранять строки в список и при работе сверять строку из адресной строки с каждой строкой из текстовика? В текстовике со временем скопятся тысячи строк, сильно ли это повлияет на быстродействие скрипта во время обработки текстового файла?

[Vint]

Спасибо большое за оперативную помощь) Буду вечером сегодня пробовать. Вопрос такой, этот скрипт будет сохранять строки в список и при работе сверять строку из адресной строки с каждой строкой из текстовика? В текстовике со временем скопятся тысячи строк, сильно ли это повлияет на быстродействие скрипта во время обработки текстового файла?

Конечно повлияет, замедлится.
Ты "тысячи" не озвучивал. Но, к счастью, ты не первый. Прочти вот эту тему http://crapware.aidf.org/forum/index.php?topic=1011.0

[justitdo]

Я не особо разбираюсь  во всех этих кодах... Как я понял первоначальной задачей там было сократить количество символов в строке? Для меня это не проблема, у меня и так будет копироваться не весь урл, а лишь его часть, восьмизначное число.  И еще для большего быстродействия нужно организовать чтение всего файла одновременно, а не каждой строки по очереди, верно я понял? Буду премного благодарен, если покажите мне вариант моего скрипта, который будет считывать в массив все строки сразу, а то у меня неделя уйдет, пока я сам буду в этом разбираться, так как времени после работы у меня совсем не много. Кстати, компьютер у меня точно такой же, как у автора темы, ссылку на которую вы мне дали, i7 3,5 Ггц, и SSD диск на котором стоит кликер, посмотрим что получится.

[Vint]

Нет, задача стояла ускорить. Уменьшение количества символов это всего лишь одно из первых предложений.
Массивы ускорят от 0 до 50% как повезёт. Большие массивы тоже долго ворочаются.
В ссылке в моём посте http://crapware.aidf.org/forum/index.php?topic=1011.msg4339#msg4339 есть все примеры. В массив "тест №6"

Code: (clickermann) [Select]

UNDEFINE($url)
$url = ""
for ($i, $i<TFCOUNT("name_small.txt"))
  $data = TFRead("name_small.txt", $i+1)
  ARRPUSH($url, $data)
end_cyc

И еще для большего быстродействия нужно организовать чтение всего файла одновременно, а не каждой строки по очереди, верно я понял?

Нет функции считывания всего файла. Она и бессмысленна без других инструментов которыми "весь текст" можно обрабатывать - экранирование, регулярные выражения... кодировки в конце концов (о, это вообще тема).

[justitdo]

Появился такой вопрос. Можно-ли сделать так, чтобы проверка текстовика начиналась не сверху вниз, а снизу вверх?

[Oraven]

Да хоть вдоль и поперек

[Johnny]

Появился такой вопрос. Можно-ли сделать так, чтобы проверка текстовика начиналась не сверху вниз, а снизу вверх?

не знаю о чем ты, но цикл тикающий в обратную сторону выглядит вот так

Code: (clickermann) [Select]

for($i=10, $i>0, -1)
  print($i)
end_cyc

[justitdo]

Да хоть вдоль и поперек

А конкретно в этом скрипте что нужно поправить, чтобы сверка строки начиналась с конца текстового файла, а не с начала?

Code: [Select]

WAIT(1)
 
LCLICK(1184,64)  // клик по адресной строке для выделения (установить свою координату!)
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+C
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
WAITMS (50)
$strclip = FROMCLIP()
 
$n = 0
$action = 0
$count = TFCOUNT ("input.txt")
WHILE($count > $n)
   $comp = TFRead("input.txt", $n+1)
   INC($n,1)
   IF($comp = $strclip)
      $count = 0
      $action = 1
   END_IF
END_CYC
 
IF($action = 1)
   // сдесь действие если строка совпала
ELSE
   TFWRITE("input.txt", $strclip) // запись строки в файл
   WAITMS (50)
   // сдесь действие если строка не совпала
END_IF

[Oraven]

Code: (clickermann) [Select]

WAIT(1)

LCLICK(1184,64)  // клик по адресной строке для выделения (установить свою координату!)
WAITMS(50)
KEYDOWN (#CTRL) // Ctrl+C
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
WAITMS (50)
$strclip = FROMCLIP()

$action = 0
$count = TFCOUNT ("input.txt")
WHILE(0 < $count)
   $comp = TFRead("input.txt", $count)
   INC($count,-1)
   IF($comp = $strclip)
      $count = 0
      $action = 1
   END_IF
END_CYC

IF($action = 1)
   // сдесь действие если строка совпала
ELSE
   TFWRITE("input.txt", $strclip) // запись строки в файл
   WAITMS (50)
   // сдесь действие если строка не совпала
END_IF