Автокликер Clickermann :: Форум

Основной раздел => Общие вопросы => Topic started by: mAramiXx on July 15, 2017, 06:57:14 PM

Title: Вырезать строки с одного файла, в другой
Post by: mAramiXx on July 15, 2017, 06:57:14 PM

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

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

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

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
Заранее благодарю

Title: Re: Вырезать строки с одного файла, в другой
Post by: Evgenij_M on July 15, 2017, 07:33:08 PM

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

Title: Re: Вырезать строки с одного файла, в другой
Post by: mAramiXx on July 15, 2017, 07:55:58 PM

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

Title: Re: Вырезать строки с одного файла, в другой
Post by: open_78 on July 15, 2017, 08:11:55 PM

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

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

Title: Re: Вырезать строки с одного файла, в другой
Post by: Oraven on July 15, 2017, 08:31:17 PM

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

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

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]

один
два
три

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

Quote

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

Title: Re: Вырезать строки с одного файла, в другой
Post by: open_78 on July 15, 2017, 08:35:52 PM

Quote from: Oraven on July 15, 2017, 08:31:17 PM

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

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

Title: Re: Вырезать строки с одного файла, в другой
Post by: Oraven on July 15, 2017, 09:01:12 PM

Вообще такое в "AkelPad"е делается в один клик.
(http://savepic.net/9495094.png)