Считать с текстового файла логин, пароль, почту

[bulgachevarada]

Помогите пожалуйста Как реализовать чтоб брало из строки вида логин:пароль+емейл все строки по очереди в файле блокнота и удаляло?
Для двух строк использую
IF(TFCOUNT("C:\Users\Admin\Desktop\xxx.txt") = 0)
   HALT
END_IF
$str = TFREAD ("C:\Users\Admin\Desktop\xxx.txt", 1)
$log = STRCUT2 ($str, 1, STRPOS ($str, ":")-1)
$pass = STRCUT2 ($str, STRPOS ($str, ":")+1, STRLEN ($str))
LCLICK(1222,270)
WAITMS (50)
TOCLIP($log)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (1)
KEYDOWN (#V)
WAITMS (1)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (1)
LCLICK(1222,318)
WAITMS (50)
TOCLIP($pass)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (1)
KEYDOWN (#V)
WAITMS (1)
KEYUP (#V)
KEYUP (#CTRL)
WAITMS (1)
Пож. очень нужно как приделать 3 строку?

[Oraven]

Code: (clickermann) [Select]

DEFINE($path, "C:\Users\Admin\Desktop\xxx.txt") // путь до файла Логины-пароли-почта

IF(TFCOUNT($path) = 0) // Если файл пуст, СТОП
   HALT
END_IF

STRSEPARATE(TFREAD($path, 1), ":", $arr) // читаем первую строку и разбираем на массив по разделителю :
$log = $arr[0] // записываем данные из массива в переменные
$pass = $arr[1]
$mail = $arr[2]
UNDEFINE($arr) // удаляем массив

LCLICK(1222,270) // клик по логину
WAITMS (50)

TOCLIP($log) // отправляем логин в буфер
WAITMS (50)

KEYDOWN (#CTRL) // вставляем
WAITMS (50)
KEYPRESS(#V)
KEYUP (#CTRL)
WAITMS (50)

LCLICK(1222,318) // клик по паролю
WAITMS (50)

TOCLIP($pass) // отправляем пароль в буфер
WAITMS (50)

KEYDOWN (#CTRL) // вставляем
WAITMS (50)
KEYPRESS(#V)
KEYUP (#CTRL)
WAITMS (50)

LCLICK(1222,318) // клик по мэйлу
WAITMS (50)

TOCLIP($mail) // отправляем мэйл в буфер
WAITMS (50)

KEYDOWN (#CTRL) // вставляем
WAITMS (50)
KEYPRESS(#V)
KEYUP (#CTRL)

TFDELETE($path, 1) // удаляем первую строку из файла
WAITMS (50)

[Oraven]

Оптимизированный вариант

Code: (clickermann) [Select]

DEFINE($path, "C:\Users\Admin\Desktop\xxx.txt") // путь до файла Логины-пароли-почта

SUB(send, $x, $y, $clip)
   LCLICK($x, $y) // клик
   WAITMS (50)
   
   TOCLIP($clip) // отправляем в буфер
   WAITMS (50)
   
   KEYDOWN (#CTRL) // вставляем
   WAITMS (50)
   KEYPRESS(#V)
   KEYUP (#CTRL)
   WAITMS (50)
END_SUB

IF(TFCOUNT($path) = 0) // Если файл пуст, СТОП
   HALT
END_IF

STRSEPARATE(TFREAD($path, 1), ":", $arr) // читаем первую строку и разбираем на массив по разделителю :
send(1222,270, $arr[0])
send(1222,318, $arr[1])
send(1222,360, $arr[2])
UNDEFINE($arr) // удаляем массив

TFDELETE($path, 1) // удаляем первую строку из файла
WAITMS (50)