Разбить txt файл на части

Luca · 05-06-11 23:12:48

Господа, есть заморочка. Есть txt файл. Пусть будет в 50 строк
1 дерево
2 дорога
...
50 корова

нужно разбить его на 5 равных частей при этом не пользуясь мышкой и клавиатурой.
на выходе должно быть 5 файлов:
text1 text2 .. text5
в каждом по 10 строк.

Решение в гугле нашел, но может кто не гугля предложит интересный вариант.

SemyonKozakov · 05-06-11 23:23:34

Сказать честно? Янихуянепонял.пнг
1) Какое это имеет отношение к программированию?
2) Что, если количество строк не делится нацело на 5?

Lecarde · 05-06-11 23:31:42

при этом не пользуясь мышкой и клавиатурой.

Силой мысли штоле? Или геймпадом? По таймеру? Как компьютер поймёт, какие файлы нужно делить и когда? smile
Считывай строки, дели количество строк на 5, записывай нужные строки в нужные файлы. Или чего?

Babusha · 06-06-11 00:07:04

https://pastebin.com/JiWGQMy8

Руби всегда придет на помощь.

Дестер · 06-06-11 00:53:41

<?php
    $file = file("./file1.txt");    
    $count1 = ceil(count($file)/5);
    $file = array_chunk($file,$count1);    
    foreach($file as $array){
        $array[$count1-1] = str_replace("\r\n","",$array[$count1-1]);
        $string = implode("",$array);
        $file2 = fopen("text".++$numfiles, "w");fwrite($file2,$string);fclose($file2);
    }
?>

А я придумал, как. Нужно просто воспользоваться планшетником с рукописным вводом. Стилус - это не мышка.

Lecarde · 06-06-11 01:01:50

Я требую реализации управления голосом! Чего в микрофон крикнуть, чтобы файлы поделились?

Дестер · 06-06-11 01:03:25

Lecarde, а как ты кавычки введёшь? Азбукой Морзе (кстати, где он?) насвистывать предлагаешь?

Babusha · 06-06-11 02:15:01

Дестер пишет:

str_replace("\r\n","",$array[$count1-1]);

Дестер пишет:

fopen("text".++$numfiles, "w");fwrite($file2,$string);fclose($file2);

Какое убожище, не дай сОтОна на таком программировать.

Linups_Troolvalds пишет:

Я думаю, код на похапэруби через астрал тоже не вводится. Почему вы пристали именно ко мне? Какие-то проблемы? roll

Нет, просто Паша знает что руби -- божественен, на руби следует молиться, логотип руби следует распечатать и он должен висеть в рамочке, по 8 штук в каждой комнате, руби излечивает рак php головного мозга.

Lord_Evil · 06-06-11 07:46:09

Разгоняежсо и ебошишь головой монитор. Текст будет разбит вместе с ним big_smile

Дестер · 06-06-11 10:10:46

Babusha пишет:

Какое убожище, не дай сОтОна на таком программировать.

Зато это работает. wink

Luca · 06-06-11 11:15:11

Lecarde пишет:

Силой мысли штоле?

нет, имелось ввиду не топорное решение. Выделил 10 строк, скопировал, создал файл вставил.

Добавлено спустя 50 мин 17 с:
Если никто не возражает я удалю все сообщения не по теме. Тут разговор исключительно о написании алгоритмов и других красивых решениях. Буду дома попробую запаковать раром без сжатия, но с разбитием на тома, потом это дело попробую распаковать. Иересно что получится

Дестер · 06-06-11 14:17:49

Linups_Troolvalds, в вашем решении нужно вручную вычислить количество строк в файле и поделить его на пять, да?

Дестер · 06-06-11 14:46:24

А как это будет выглядеть одной командой?

Lecarde · 06-06-11 14:47:09

Luca пишет:

Буду дома попробую запаковать раром без сжатия, но с разбитием на тома, потом это дело попробую распаковать. Иересно что получится

Не взлетит.
Во-первых, у тебя получится, всё-таки, не совсем текстовики - в начале и в конце файлов добавится всякая лабуда.
Во-вторых, что важнее, разбиение на части будет по объёму, а не по строкам, т.е. может сработать только если у тебя в строках одинаковое количество букв (учитывая добавленные символы - не совсем одинаковое, но всё-таки строго определённое).

Lord_Evil · 06-06-11 15:47:31

perl:

$i=0;
$n=0;
while(<STDIN>){
   if($n>4){
      $n=0;
      $i++;
   }
   $_=~s/\n//;
   `echo '$_' >>file$i.txt`;
   $n++;
}

Lord_Evil · 06-06-11 16:55:07

Linups_Troolvalds, а. Ну да это тоже фигня. А вот что делать с остатоком? Давай предположим, что если у нас остается лишних <5и строк, то мы их записываем в последний файл. Тогда решить можно вот так:

@data=<STDIN>;
$block=int((scalar @data)/5);
for($i=0;$i<5;$i++){
open F,">file$i.txt";
print F "@data[($i*$block)..($i*$block+$block-1)]";
close F;
}
$diff=(((scalar @data)/5)*10-$block*10)/2;
if($diff){
open F,">>file".($i-1).".txt";
   print F "@data[-$diff..-1]";
close F;
}

Добавлено спустя 03 мин 17 с:
З.Ы.
заморочки с умноженим на 10 из-за того, что иначе перл рисует какой-то странный хвост значениям..

Linups_Troolvalds, проверь мой скрипт на скорость.

Форум StopLinux

Объявление

#1 05-06-11 23:12:48

Разбить txt файл на части

#2 05-06-11 23:23:34

Re: Разбить txt файл на части

#3 05-06-11 23:31:42

Re: Разбить txt файл на части

#4 06-06-11 00:07:04

Re: Разбить txt файл на части

#5 06-06-11 00:53:41

Re: Разбить txt файл на части

#6 06-06-11 01:01:50

Re: Разбить txt файл на части

#7 06-06-11 01:03:25

Re: Разбить txt файл на части

#8 06-06-11 02:15:01

Re: Разбить txt файл на части

#9 06-06-11 07:46:09

Re: Разбить txt файл на части

#10 06-06-11 10:10:46

Re: Разбить txt файл на части

#11 06-06-11 11:15:11

Re: Разбить txt файл на части

#12 06-06-11 14:17:49

Re: Разбить txt файл на части

#13 06-06-11 14:46:24

Re: Разбить txt файл на части

#14 06-06-11 14:47:09

Re: Разбить txt файл на части

#15 06-06-11 15:47:31

Re: Разбить txt файл на части

#16 06-06-11 16:55:07

Re: Разбить txt файл на части

Подвал форума