Скопировать из TXT строку в буфер

[dwm18]

Что я пытаюсь выполнить?
Нужно, чтобы скрипт взял и скопировал первую строку из txt файла в буфер, и удалил её...

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

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

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

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


Как я это пытался/ась выполнить?
искал подобное - не нашел

 

[hedji]

#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)

 

[dwm18]

#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 файл ?

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

 

[ra4o]

Чуть переделал, так нужно ?

#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

 

[dwm18]

Чуть переделал, так нужно ?

#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

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



Добавлено:

Сообщение автоматически объединено: 6 Май 2019

Чуть переделал, так нужно ?

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

#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