Текстовые файлы в паскале. Как всегда нужна помощь=)))

[Leona180991]

Привет всем! Нужна естесственно помощь. Вот такое RGR: Сформировать текстовый файл, содержащий строки исходного файла, встречающиеся в нем один раз. Вывести содержимое файлов на экран. В программе используются подпрограммы.

Смогла сделать прогу, которая копирует строки из 1 файла во 2. но нужен счетчик, который бы отсортировывал одинаковые строки и оставлял по одному образцу. Помогите составить такую процедуру или функцию.

program primer;                                                              
Var f1,f2:text;                                                               
  i,n:integer;                                                                
  s:string;                                                                   
begin {формируем 1 файл}                                                      
  Assign(f1,'G:\ln.txt'); {устанавливаем связь файловой переменной с физически
  Rewrite(f1); {открываем файл для записи}                                    
  Readln(n); {определеяем количество вводимых строк}                          
  for i:=1 to n do                                                            
  begin                                                                       
    readln(s); {вводим с клавиатуры строки}                                   
    writeln(f1,s); {записываем последовательно строки в файл}                 
  end;                                                                        
  close(f1); {заканч раб с 1 файлом, теперь на диске сущ файл с именем file1.t
                                                                              
 {чтение из первого файла и формирование второго}                             
  Reset(f1); {открываем первый файл для чтения}                               
  Assign(f2,'G:\kp.txt'); {устанав связь 2 файловой переменной с физич файлом}
 Rewrite(f2); {открываем 2 файл для записи}                                  
                                                                            
 {последовательно считываем строки из 1 файла}                               
  While not eof(f1) do                                                        
  begin                                                                       
    Readln(f1,s); {считываем очередную строку из 1 файла}                     
    Writeln(f2,s); {записываем во 2 файл строки}                              
  End;                                                                        
  Close(f1);                                                                  
  Close(f2); {заканчиваем работу с файлами}                                   
                                                                              
  {выводим на экран 2 файл}                                                   
  Writeln;                                                                    
  Writeln('второй файл содержит строки:');                                    
  Reset(f2); {открываем 2 файл для чтения}                                    
  While not eof(f2) do {пока не конец 2 файла}                                
  begin                                                                       
    Readln(f2,s); {считываем очередную строку из файла}                       
    Writeln(s); {выводим строку на экран}                                     
  End;                                                                        
End.

[W.i.d.g.e.t.1]

Так проверяйте равенство, если две переменных совпадают, то удаляйте строку. оО
Только тогда каждую строку надо какой нить переменной стринговой присваивать. Их и сравнивать. А строки разделять, пробелом тем же.

[Serge_Bliznykov]

добавлю.
Задача может быть решена двумя способами.
1) быстрый и эффективный, но имеющий ограничение по количеству допустимых строк в исходном файле.
2) медленный и неэффективный, но зато имеющий возможность обрабатывать файлы с ЛЮБЫМ количеством строк.

итак. Первый способ.
Заводим массив строк.
Например,

var  SArray : array[1..250] of string;

потом считываем полностью исходный файл в этот массив и дальше поиск каждой строки в данном массиве. Если строка встречается один раз, тогда пишем её в выходной файл.
Недостатки: если файл содержит больше строк, чем размерность массива, то такой алгоритм не сможет обработать файл (надо проверять и выдавать соответствующей сообщение).

2-й способ.
Открываем файл. Читаем из него одну строчку. Запоминаем номер строки.
Устанавливаем файл на начало.
Дальше в цикле читаем все строки, сравнивая с текущей.
Если достигли конца исходного файла и строка встретилась один раз, то пишем эту строчку в выходной файл.
Дальше переходим на номер запомненной строки, читаем следующую строчку и т.д.

Маленький хинт - если в цикле подсчёта строк, строка встретилась второй раз, то цикл можно прерывать и переходить на проверку следующей строчки.

Работать это будет крайне медленно и печально! Зато для любых файлов.
При реализации второго способа лучше использовать не текстовые файлы, а бинарные, в них легко позиционироваться на любую позицию в файле. Но тогда надо написать свои процедурки по выделению строк из читаемого буфера.

p.s. если Вам не горит (и, конечно, если не разберётесь самостоятельно), то можно и примерчик решения набросать....

p.p.s. при оформлении кода ОБЯЗАТЕЛЬНО используйте тег [СODE].. [/CODE] - это кнопочка с решёточкой (#)...

[Leona180991]

Да, если не сложно, то лучше примерчик=) Так все-таки понятнее будет. А в мою прогу не получится процедуру вставить, что бы отсортировывала строки? Ее нужно полностью переделать?

[Hacker19_90]

{чтение из первого файла и формирование второго}
procedure swap;
var
    MasOfString: array[1..200] of string;
    i, j, Flag: integer;
    s: string;
begin
  Assign(f1,'file.txt');                             
  Reset(f1);                               
  Assign(f2,'G:\kp.txt'); 
  Rewrite(f2);
  i:= 1;
  j:= 1;                                                                 
  While not eof(f1) do                                                        
  begin                                                                       
    Readln(f1,s);
    if i = 1 then MasOfString[1] := s;
    if i = 200 then break;
    Flag := 0;
    for j := 1 to i do
        if s = MasOfString[j] then Flag := 1;
    if  Flag <> 1 then
    begin
        MasOfString[i+1] := s;
        Writeln(f2,s); 
    end;
    Inc(i);                              
  end;                                                                        
  Close(f1);                                                                  
  Close(f2);                                    
end;

Тока сразу говорю не тестил!

[Leona180991]

Спасибо=) Ничего, сейчас буду тестить!