Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Потскажите программку (https://forum.antichat.xyz/showthread.php?t=97918)

andreipup 25.12.2008 19:23
Потскажите программку
 
У меня есть список в строчку
Пример

123456789
123456789
123456789
123456789
123456789
123456789
123456789
123456789
123456789

Надо чтоб программа отсчитывала количество строк
Например загрузил список большой указал чтобы 300 или 400 строчек отсчитала в отдельный файл

Подскажите пожалуйста.

[dei] 25.12.2008 19:58
Код:
#!/usr/bin/perl -w
$file = 'acs.txt';
$newfile = 'one.txt';
$from_line = 5;
$to_line = 15;

open(F1,"< $file");
@lines = <F1>;
open(F2,"> $newfile");

for($i=$from_line;$i<$to_line;$i++) {
        print F2 $lines[$i-1];
}

andreipup 25.12.2008 20:03
а нету программы???

Ponchik 25.12.2008 20:31
andreipup, а это что по вашему, залупа конская? (с)

ClienTtm 25.12.2008 22:11
Цитата:
Сообщение от Ponchik
andreipup, а это что по вашему, залупа конская? (с)
Ыыы))

Realix 25.12.2008 22:13
Цитата:
Сообщение от Ponchik
andreipup, а это что по вашему, залупа конская? (с)
Поцталом )))))

скачай activperl ,сохрани скрипт в файле с раширением .pl и запускай =)

andreipup 26.12.2008 02:41
Цитата:
Сообщение от [dei]
Код:
#!/usr/bin/perl -w
$file = 'acs.txt';
$newfile = 'one.txt';
$from_line = 5;
$to_line = 15;

open(F1,"< $file");
@lines = <F1>;
open(F2,"> $newfile");

for($i=$from_line;$i<$to_line;$i++) {
        print F2 $lines[$i-1];
}
Она беспорядочно выбирает номера я потом даже ненайду где кончаться 300 строчка если можно кто нибудь поправте чтобы из списка убирались строчки которые порога выбирает.либо чтоб по порядку чтоб понять где 300 строчка.

diznt 26.12.2008 02:57
http://dump.ru/file/1359256

быстро накалякал на делфи
сколько строчек присуствует пока что не доступно так как мозг в отключке

[dei] 27.12.2008 01:46
Цитата:
Сообщение от andreipup
Она беспорядочно выбирает номера я потом даже ненайду где кончаться 300 строчка если можно кто нибудь поправте чтобы из списка убирались строчки которые порога выбирает.либо чтоб по порядку чтоб понять где 300 строчка.
все по порядку там, не гони

ReanimatoR 27.12.2008 01:57
Цитата:
Сообщение от Ponchik
andreipup, а это что по вашему, залупа конская? (с)
убило:D :D :D :) :) :)

SpangeBoB 27.12.2008 02:02
С таким успехом можно на powershell добавить 1 строчку:

get-content -path c:\inform.txt -totalcount 50 | set-content -path C:\result.txt


Время: 11:53