Вырезать строки с одного файла, в другой

[mAramiXx]

Добрый день. Давно не использовал кликер и не могу уже написать даже простенькую программу Прошу помощи..

Суть программы: Из одного текстовика нужно ВЫРЕЗАТЬ строку и вставить в другой и поставить запятую+пробел соответственно. И записывать не построчно, а после запятой.

Накидал код, который вроде как должен копировать и просто вставлять в другой текстовик. Но и это не работает 

Code: (clickermann) [Select]

FOR($stroki, $stroki<TFCOUNT ("kluch_slova.txt"))
print($stroki)

$stroka= TOCLIP(TFREAD("kluch_slova.txt", 1))
print($stroka)
$newstroka= FROMCLIP(TFWRITE("kluch_slova_gotovo.txt", 1))
print($newstroka)
wait(1)
END_CYC
Заранее благодарю

[Evgenij_M]

Если я не ошибаюсь, в шестой строке команды местами перепутаны: сначала скрипт у Вас ПИШЕТ В ФАЙЛ, а потом СЧИТЫВАЕТ ИЗ БУФЕРА ОБМЕНА, а надо - наоборот...

[mAramiXx]

Та вроде нет
копирую в буфер(считываю с файла(строка))
копирую из буфера(вставляю в файл(строка))

[open_78]

Зачем буфер обмена?

Code: (clickermann) [Select]

FOR($stroki=1, $stroki<TFCOUNT ("kluch_slova.txt")+1)
   print($stroki) 
   $stroka=TFREAD("kluch_slova.txt",1)
   print($stroka)
   TFWRITE("kluch_slova_gotovo.txt",$stroka,1))
   wait(1)
END_CYC

[Oraven]

Вы хоть прочитали что ему надо? Конечно буфер обмена тут не нужен.

Вот нужный вариант

Code: (clickermann) [Select]

TFREADARR("kluch_slova.txt", $arr)
$siz = ARRSIZE($arr)
FOR($a=0,$a<$siz)
   IF($a = 0)
      $str = $arr[$a]
   ELSE
      $str = STRCONCAT($str, ", ", $arr[$a])
   END_IF
END_CYC
TFWRITE("kluch_slova_gotovo.txt", $str)
HALT
Скажем в файле слова

Code: [Select]

один
два
три

На выходе получаем

один, два, три

[open_78]

Вы хоть прочитали что ему надо?

Семен Семеныч! ПОСЛЕ ЗАПЯТОЙ.

[Oraven]

Вообще такое в "AkelPad"е делается в один клик.