Делить большой TXT по файлам

Всем привет.

Задача -
Есть большой TXT файл. Допустим на 1 000 000 строк.
Каким софтом\скриптом можно разделить этот TXT на множество других? Например что бы создались отдельные TXT, в каждом из которых будит максимум 25 000 строк.

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

 

Легко

 

http://ru.wikipedia.org/wiki/Split
Категория: Утилиты UNIX

мне бы под windows что-нибудь

 

В командной строке же!

Молодец, вики уже читаешь. До истины совсем чуть-чуть
split for windows

 

отредактировал сообщение выше

 

Можно по подробнее?

Code:

C:\Documents and Settings\****>"C:\Documents and Settings\****\Рабочий стол\
split.exe" -l 25000 C:\Documents and Settings\Eugene\Рабочий стол\file.txt new

File Splitter for Win32 - Copyright (C) 1998, Jem E. Berkes
http://www.pc-tools.net/        [email protected]

Syntax is:
SPLIT filename size
 where size is a value in bytes
or
SPLIT filename d:
 where d: is a drive specification. The file will be split over multiple disks.

Не выходит

 

ипать, куда подробней-то? хорошо же начал, гугл юзал даже и на тебе...

подели ты размер в байтах своего файла на 4 и скорми в качестве аргумента к программе.


ЗЫ http://www.hjsplit.org/ вот с гуями прога

 

чтож бл#ть все злые то такие на форумах..

спасибо.

 

что же все глупые вопросы задают и думать не хотят)

пожалуйста

 

PHP:

#!/usr/bin/python2
import sys

TFILE = sys.argv[1]
SAVEDIR = sys.argv[2]

with open(TFILE, 'r') as f:
    counter= 1
    while 1:
        with open(SAVEDIR+str(counter)+".txt", 'a') as fw:
            for i in xrange(25000):
                data= f.readline().strip()
                fw.write(data+'\n')

            if data == '':
                break
            counter += 1


python script.py rockyou.txt ./

 

Текстовый редактор EmEditor.

Оффсайт

На рутрекере есть "леченый".

 

PHP:

    open (FL,@ARGV[0]);
    $path=@ARGV[1]."\\" if @ARGV[1];
    $i=0;
    while (<FL>){
        open(FL1,">".$path."sp_".$i.".txt");
        for (1..25000){
            $str=<FL>;
            print FL1 $str;
            }
        close (FL1);
        $i++;
        }


perl script.pl file.txt path