Русское сообщество AutoIt

Общий раздел по AutoIt => Общие вопросы по AutoIt => Тема начата: dwm18 от Апрель 17, 2019, 15:21:31

Название: Скопировать из TXT строку в буфер
Отправлено: dwm18 от Апрель 17, 2019, 15:21:31
Что я пытаюсь выполнить?
Нужно, чтобы скрипт взял и скопировал первую строку из txt файла в буфер, и удалил её...

потом я знаю, как вставить из буфера в адресною строку, перейти по ней...

Потом дальше - скрипт, взял строку, перешел в браузере, потом опять надо взять первую в буфер, ( удалить ) и так в цикле.

Т.е. пробежаться по URL адресам из файла TXT - беря первую строку ( и удаляя её )

Помогите новичку реализовать эту идею... :IL_AutoIt_1:


Как я это пытался/ась выполнить?
искал подобное - не нашел
Название: Re: Скопировать из TXT строку в буфер
Отправлено: hedji от Апрель 17, 2019, 17:10:40
Код: AutoIt [Выделить]
#include <Array.au3>
#include <File.au3>

$arr1 = FileReadToArray(@ScriptDir & "\1.txt")
ClipPut($arr1[0])
_ArrayDelete($arr1, 0)
_FileWriteFromArray(@ScriptDir & "\2.txt", $arr1)
FileMove(@ScriptDir & "\2.txt", @ScriptDir & "\1.txt", 1)
 

Название: Re: Скопировать из TXT строку в буфер
Отправлено: dwm18 от Апрель 18, 2019, 03:51:52
Код: AutoIt [Выделить]
#include <Array.au3>
#include <File.au3>

$arr1 = FileReadToArray(@ScriptDir & "\1.txt")
ClipPut($arr1[0])
_ArrayDelete($arr1, 0)
_FileWriteFromArray(@ScriptDir & "\2.txt", $arr1)
FileMove(@ScriptDir & "\2.txt", @ScriptDir & "\1.txt", 1)
 


Не запускается - ошибка выходит.

Зачем тут второй TXT файл ?

Нужно с одного файла считать строку в буфер и удалить её за собой, потом дать возможность сделать клики, ( переход в браузере ), некоторая пауза, и после паузы - повторить действия в цикле. Т.е. - опять взял строку, удалил, покликал, подождал, и опять взял и т.д. и т.п.
Название: Re: Скопировать из TXT строку в буфер
Отправлено: ra4o от Апрель 18, 2019, 07:59:30
Чуть переделал, так нужно ?
Код: AutoIt [Выделить]
#include <Array.au3>
#include <File.au3>

$MyFile=@ScriptDir & "\1.txt"
While 1
    $arr1 = FileReadToArray($MyFile)
    If Ubound($arr1)=0 Then ExitLoop
    ClipPut($arr1[0])
    _ArrayDelete($arr1, 0)
   $hFile = FileOpen($MyFile, 2)
   _FileWriteFromArray($MyFile,$arr1)
   FileClose($hFile)
WEnd

Название: Re: Скопировать из TXT строку в буфер
Отправлено: dwm18 от Май 06, 2019, 03:14:57
Чуть переделал, так нужно ?
Код: AutoIt [Выделить]
#include <Array.au3>
#include <File.au3>

$MyFile=@ScriptDir & "\1.txt"
While 1
    $arr1 = FileReadToArray($MyFile)
    If Ubound($arr1)=0 Then ExitLoop
    ClipPut($arr1[0])
    _ArrayDelete($arr1, 0)
   $hFile = FileOpen($MyFile, 2)
   _FileWriteFromArray($MyFile,$arr1)
   FileClose($hFile)
WEnd


Да вот так  :ok:, а клики т.е. действия - между каких строчек вставлять и паузу ?
код не мой - лучше спрошу....



Добавлено: Май 06, 2019, 03:25:50
Чуть переделал, так нужно ?

Всё нашел куда вставлять действия спасибо за помощь  :IL_AutoIt_1:

Код: AutoIt [Выделить]
#include <Array.au3>
#include <File.au3>

$MyFile=@ScriptDir & "\1.txt"
While 1
    $arr1 = FileReadToArray($MyFile)
    If Ubound($arr1)=0 Then ExitLoop
    ClipPut($arr1[0])
    _ArrayDelete($arr1, 0)
   $hFile = FileOpen($MyFile, 2)
   _FileWriteFromArray($MyFile,$arr1)
   FileClose($hFile)
WEnd