Не вижу бревно в маленьком скрипте

[mAramiXx]

Ребят, подскажите, пожалуйста. Не могу понять, почему не срабатывает скрипт. Он должен разбить строки avtoregitest.txt по кускам и записать в 2 файла. По итогу разбивает только первую строчку..

Code: (clickermann) [Select]

WHILE((TFCOUNT ("avtoregitest.txt"))  > $line)
   $line = $line + 1
   waitms(50)
   
   $stroka = TFREAD ("avtoregitest.txt", $line)
   waitms(50)
   
strseparate($stroka, ":", $arr)
   waitms(50)
   
   TFWRITE ("logintest.txt", $arr[0], $line)
   waitms(50)
   
   TFWRITE ("passwordtest.txt", $arr[1], $line)
   waitms(50)
   
END_CYC


HALT

avtoregitest.txt выглядит так:
vannatterkyong2001@outlook.com:Cl8MI9yo2:b8emSykvl:Александр Елисеев:100057376740791
weertsshirl1995@outlook.com:N4I5gi8G2:a7gQyworl:Всеволод Филоненко:100056804363868
kiekegeorgianna2001@outlook.com:UQbrJ9Cs2:m1srlQepgf:Юрий Майстренко:100057002176070

[4.У.В.@.К]

В 16 строке (перед END_CYC), забыл вставить UNDEFINE($arr).

[mAramiXx]

О, спасибо, сработало. Ну я не то чтобы забыл, а не знал за эту команду. А что она делает?

[4.У.В.@.К]

Ну я не то чтобы забыл, а не знал за эту команду. А что она делает?

Она удаляет переменную из памяти. В данном случае - удаляет массив, который должен создаваться заново на каждой итерации цикла.