ищу прогу для перестановки

Есть данные файл, файл большой текстовый 70 метров.
Задача Данные идут так:

1. строка. А, Б, В, Г, Д, Ж
2. строка. А, Б, В, Г, Д, Ж
3. строка. А, Б, В, Г, Д, Ж

и так 700 тыс. строк.

а надо сделать в такой последовательности :

1. строка Б, Г, В, Д
2. строка Б, Г, В, Д
3. строка Б, Г, В, Д

а А и Ж вообще удалить, даные везде разные поэтому просто найти и заменить на мой взгляд нельзя...

понимаю что задача наверно тривиальна, надеюсь что кто-нибудь даст дельный совет что делать...

заранее Спасибо!

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

[Ghost]

Нужно обязательно прогу написать? А то можно просто открыть в любом текстовом редакторе и воспользоваться поиском с заменой.

З.Ы. Можно в принципе и прогу, основная проблема здесь заключается только в том, что файл слишком велик.

[YAS]

PGM:
а А и Ж вообще удалить, даные везде разные

Если данные везде разные, то каков тогда алгоритм замены? Или нужна простая перестановка? В таком случае, проще всего написать прогу по перестановке!

А топ лучше обсуждать в "Программирование", а не "Программы" - перенес.

[c00ler]

PGM
Берешь любой текстовый редактор с функций замены. Пишешь "Найти A и заменить на ""(Пусто). Также поступаешь и с Ж.

c00ler
не катит, А постояно разное (телефонные номера)
найти и заменить по звездочкам находит так же и Б В и др. данные..

[c00ler]

PGM
Ну если А всегда разное - то такое сделать автоматически низя - тока руками.

[SapeR]

действительно легче написать самому

#include <stdio.h>

#define MAX_LEN 100

void main()
{
    FILE *f_inp = fopen("c:\\file1.txt","rt");
    FILE *f_out = fopen("c:\\file2.txt","wt");

    char s1[MAX_LEN+1], s2[MAX_LEN+1];
    int cycle_count = 0;

    if (f_inp!=0 && f_out!=0)
    {
        while( !feof(f_inp) )
        {
            switch (cycle_count)
            {
            case 0: // 'A' - ignore
                fgets(s1,MAX_LEN,f_inp);
                break;
            case 1: // 'B' - copy
                fgets(s1,MAX_LEN,f_inp);
                fputs(s1,f_out);
                break;
            case 2: // 'V' - read to S2
                fgets(s2,MAX_LEN,f_inp);
                break;
            case 3: // 'G' - copy + write S2
                fgets(s1,MAX_LEN,f_inp);
                fputs(s1,f_out);
                fputs(s2,f_out);
                break;
            case 4: // 'D' - copy
                fgets(s1,MAX_LEN,f_inp);
                fputs(s1,f_out);
                break;
            case 5: // 'E' - ignore
                break;
            default:
                // ???
                break;
            }
            cycle_count = (cycle_count+1)%6;
        }
    }
    fcloseall();

Всем Спасибо, сделал с Accessom
По совету AID , все получилось прикрутил к таблице переразбил, удалил и поменял

а вот на перле то же самое на Перле
$path="C:/";
open (file, $path."file.txt");
my @Report1 = <file>;
close (file);
chomp(@Report1);
open (file, ">".$path."otchot.txt");
foreach my $item1 ( @indata1 )
{
my @array1=split(/,/,$item1);
print file, @array1[0]," ",@array1[1]," ",@array1[3]," ",@array1[4]," ",@array1[5]," ",@array1[6],"\n";
}
close (file);

[someone312002]

Эх, если б можно было всё это обработать селектом... replace(source_string, search_what, replace_with) тебе бы помог...