Что нового

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

dwm18

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

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

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

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

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


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

hedji

Продвинутый
Сообщения
409
Репутация
94
Код:
#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

dwm18

Новичок
Сообщения
27
Репутация
0
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)

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

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

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

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Чуть переделал, так нужно ?
Код:
#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

dwm18

Новичок
Сообщения
27
Репутация
0
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

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



Добавлено:
Сообщение автоматически объединено:

ra4o сказал(а):
Чуть переделал, так нужно ?

Всё нашел куда вставлять действия спасибо за помощь :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
 
Верх