Pascal. Задача с файлами.

[Novi4ok_11]

Добрый вечер всем. Пожалуйста помогите доделать задачку:
Нужно перезаписать файл с изменением данных. Нада найти в старом файле строку и поменять ее на другую
Вот что я сделал

program my_22;
Var F1, F2: File;
    CountRead, CountWritten : Word;
    Buf : Array [1..20048] Of Char;
Begin
    Assign(F1, 'C:\1.txt');
    Reset(F1, 1); 
    Assign(F2, 'C:\2.txt');
    ReWrite(F2, 1); 
    Repeat
        BlockRead(F1, Buf, SizeOf(Buf), CountRead);
        BlockWrite(F2, Buf, CountRead, CountWritten);
    Until (NumRead = 0) Or (CountWritten <> CountRead);
    Close(F1);
    Close(F2);
End.

Копирует нормально без потерь, нужно доделать что б находило отету строку которую нужно как только она начнется то поменять ее на другую такой же длины.

ПОлучается нужно добавить в этот код

Var stroka1, stroka2:string;

И ввод, и тогда код получится такой:

program my_22;
Var F1, F2: File;
    CountRead, CountWritten : Word;
    Buf : Array [1..20048] Of Char;
    stroka1, stroka2:string;
Begin
Write('Введите строку'); Readln(stroka1);
stroka2='abcdef'
    Assign(F1, 'C:\1.txt');
    Reset(F1, 1); 
    Assign(F2, 'C:\2.txt');
    ReWrite(F2, 1); 
    Repeat
        BlockRead(F1, Buf, SizeOf(Buf), CountRead);
        BlockWrite(F2, Buf, CountRead, CountWritten);
    Until (NumRead = 0) Or (CountWritten <> CountRead);
    Close(F1);
    Close(F2);
End.

А как сделать поиск я не могу придумать, помогите мне пожалуйста

[alex_fcsm]

Файл текстовый можно обойтись readln. На какую, что менять? Критерий поиска?

[Novi4ok_11]

Я вот тут написал

Write('Введите строку'); Readln(stroka1);
stroka2='abcdef'

Первая - что менять, вторая - на что

А как обойтись с помощью readln?

[alex_fcsm]

 Assign(F1, 'C:\1.txt');
 Reset(F1); 
 while not(eof(f)) do
  begin
   readln(f1,str);
   if pos(stroka,str)=0 then writeln(f2,str)
     else begin
            //заменяете вашу подстроку на другую
            writeln(f2,str);
           end;

  end;

[Novi4ok_11]

а можете обьяснить пожалуйста Ваш код

program my_22;
Var F1, F2: text;
    CountRead, CountWritten : Word;
    Buf : Array [1..20048] Of Char;
    str1, str2:string;
str:string;
Begin
str1:='abcd';
str2:='dcef';
    Assign(F1, 'C:\1.txt');
    Reset(F1);
    Assign(F2, 'C:\2.txt');
    ReWrite(F2);
 while not(eof(f1)) do
  begin
   readln(f1,str);
   if pos(str1,str)=0 then writeln(f2,str)
     else begin

            writeln(f2,str);
           end;

  end;
End.

Вот код который я сделал с Вашим исправлением но не работает(((

Копмилируется но файл не переписует

Помогите пожалуйста

[Mad_Cat]

 if pos(str1,str)=0 then writeln(f2,str)
     else begin

            writeln(f2,str2);
           end;

[Novi4ok_11]

Сделал но серавно не чего в файле не меняется, причем pos это если строка будит не больше 255 символов а файл у меня на 10000 символов, строка тоже специфическая она не повторяется ее нужно поменять просто на другие символы к примеру было "абс" стало "ссс"((((

[alex_fcsm]

Вместо комментариев вы должны были написать код, где бы у вас строка менялась на другую. Mad_Cat сегодня уже такую задачу выкладывал. Лучше сами подумайте как это сделать

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

Сделал но серавно не чего в файле не меняется, причем pos это если строка будит не больше 255 символов а файл у меня на 10000 символов, строка тоже специфическая она не повторяется ее нужно поменять просто на другие символы к примеру было "абс" стало "ссс"((((

Просто процедура поиска подстроки усложнится

[Novi4ok_11]

Мне нужно найти в файле на 10000 символов найти нужную строку и поменять ее на другую и записать это в другой файл: тоесть файл будет как первый только он будит отличатся на 1 строку

program my_22;
Var F1, F2: text;
    CountRead, CountWritten : Word;
    Buf : Array [1..20048] Of Char;
    str1, str2:string;
str:string;
Begin
str1:='abcd';
str2:='dcef';
    Assign(F1, 'C:\1.txt');
    Reset(F1);
    Assign(F2, 'C:\2.txt');
    ReWrite(F2);
 while not(eof(f1)) do
  begin
   readln(f1,str);
   if pos(str1,str)=0 then writeln(f2,str)
     else begin

            writeln(f2,str2);
           end;

  end;
End.

Я отак сделал но не чего не работает файл 2.тхт пустой

[alex_fcsm]

1. Посмотрите команду pos -что там на первом месте идет и что на втором
2.

if pos(str1,str)=0 then writeln(f2,str)
     else begin

            writeln(f2,str);

Сравните что у вас
3. Если у вас в строке больше 255 символов, то считывать через readln не пойдет