строковый файл

[7even]

Дан строковый файл. Создать новый строковый файл, в котором строки из исходного файла располагались бы в лексикографическом порядке, то есть по возрастанию кодов их символов, начиная с первого символа.

[TinMan]

Есть ли какие-то ограничения на размер файла и на длину строки в нем?
Решения для маленьких файлов (до мегабайта), средних (до сотен мегабайт) и больших (гигабайты) будут сильно отличаться друг от друга.
И еще вопрос: какой компилятор? надеюсь, не TP?

[7even]

Сообщение от TinMan

Есть ли какие-то ограничения на размер файла и на длину строки в нем?
Решения для маленьких файлов (до мегабайта), средних (до сотен мегабайт) и больших (гигабайты) будут сильно отличаться друг от друга.
И еще вопрос: какой компилятор? надеюсь, не TP?

Это все условие от себя ничего не добавлял

[Paster Fob]

Как-то так:

type tset=set of byte;

procedure readfile(var afile:text;var aset:tset);
var ch:char;
begin
  while not eoln(afile) do begin
    read(afile,ch);
    aset:=aset+[ord(ch)];
  end;
  readln(afile);
end;

procedure writeset(var afile:text;var aset:tset);
var n:byte;
begin
  for n:=0 to 255 do
    if n in aset then begin
      write(afile,char(n));
    end;
  writeln(afile);
end;

var f,f1:text;sn:tset;

begin
  assign(f,'C:\ABC.txt');reset(f);
  assign(f1,'C:\ABC2.txt');rewrite(f1);
  sn:=[];
  while not eof(f) do begin
    readfile(f,sn);
    writeset(f1,sn);
  end;
  close(f);close(f1);
end.

[Serge_Bliznykov]

Paster Fob, ОМГ! я не знаю, какую задачу решает Ваш код, но он ЯВНО не имеет ничего общего с исходной задачей TC!!

Сообщение от 7even

Это все условие от себя ничего не добавлял

Вас спрашивают, Вы на чём программировать собрались? (какой компилятор).
это раз.
второе. Файлы, которые Вы собираетесь подсовывать программе можно ограничить размером. Например, если файл больше 32 кб - программа скажет: "отвяньте от меня, я такими огромными файлами не работаю!". Это допустимо?


если позволите аналогию, это равносильно тому, что вам сказали, пробить отверстие в стене. Вы просите: "ребята, помогите в стене отверстие пробить!"
А вас спрашивают - чем (каким инструментом) вы собираетесь дырку пробивать? И стена из чего - саман, гипсокартнон, кирпич, бетон, железобетон ?
А вы в ответ: "Это все условие от себя ничего не добавлял "!!

[TinMan]

Сообщение от Paster Fob

Как-то так:

Что-то ты странное написал, Paster Fob.. На выходе должен быть файл строк, а не символов... Задача просто в сортировке содержимого построчно, вот и все.

Слушай, 7even. Я прекрасно понимаю, что ты ничего _не_добавлял_. Речь идет о том, _НЕ_УПУСТИЛ_ ли ты чего-то.

Повторяю, решение сильно зависит от размера файла. Нужно применять специфические файловые сортировки, или можно просто считать в массив, его отсортироавть и записать?
Ты хоть задание-то понимаешь? я молчу про решение..

ой, Серж, извини - долго тайпил, не видел твоего ответа.. )

[Paster Fob]

Ну как понял так и решил.До массивов я ещё не добрался и как делается сортировка не знаю.