Обработка файлов (Pascal)

[Дима82]

Удаление начала каждой строки до второго появления заданного символа

Program Lb9;
Uses crt;
Var file1,file2,str:string;
    f1,f2:text;
    ch:char;
Begin
clrscr;
write('Input file= ');
readln(file1);
write('Output file= ');
readln(file2);
assign(f1,file1);
reset(f1);
if ioresult<>0 then begin
 write('File not found');
 readln;
end;
assign(f2, file2);
rewrite(f2);
While not eof(f1) do begin
 if eoln (f1)then
  Begin
   Readln(f1,str);
   Writeln;
  End;
While not eof(f1) do begin
 Read(f1,ch);
 Write(ch);
End;
End;
 close(f1);
 close(f2);
End.

Помогите доделать лабу... (не получается)...

[north]

Вот программа, которая удаляет начало строки до второго появления символа в строке:

program Project2;
var
  s1,{заданная строка}
  s,{заданный символ}
  s2:string;

procedure vvod;
begin
  assign(input,'input.txt');
  reset(input);
  readln(s1);
  read(s);
  s2:=s1;
  close(input);
end;

procedure resh;
var
  k:byte;
begin
   k:=0;
   while (k < 2) and (length(s2)>=1) do
   begin
       if s2[1] <> s then   delete(s2,1,1)
       else if (s2[1] = s) and (k=0) then
       begin
           delete(s2,1,1);
           inc(k);
       end
       else inc(k);

   end;
end;

procedure vivod;
begin
  assign(output,'output.txt');
  rewrite(output);
  writeln(s1);
  write(s2);
  close(output);
end;

begin
  vvod;
  resh;
  vivod;
end.

[Дима82]

А, если без процедуры, а то мы это не проходили... Да и надо задать этот символ, т.е. написать на экране дисплея...

[north]

Вот(но это только для одной строки):

program Project2;
var
  s1,{заданная строка}
  s,{заданный символ}
  s2:string;
  k:byte;

begin
  read(s,s1);
  s2:=s1;
  k:=0;
   while (k < 2) and (length(s2)>=1) do
   begin
       if s2[1] <> s then   delete(s2,1,1)
       else if (s2[1] = s) and (k=0) then
       begin
           delete(s2,1,1);
           inc(k);
       end
       else inc(k);
   end;
  writeln(s1);
  write(s2);
end.

[Дима82]

Program Lb9;
Uses crt;
Var file1,file2,s,s1,s2:string;
    f1,f2:text;
    K:byte;
Begin
clrscr;
write('Input file= ');
readln(file1);
write('Output file= ');
readln(file2);
assign(f1,file1);
reset(f1);
if ioresult<>0 then begin
 write('File not found');
 readln;
end;
assign(f2, file2);
rewrite(f2);
{While not eof(f1) do begin
 if eoln (f1)then
  Begin
   Readln(f1,s);
   Writeln;
  End;
While not eof(f1) do begin
 Read(f1,ch);
 Write(ch);
End;        }
Read(s,s1);
s2:=s1;
K:=0;
 While (K<2) and (length(s2)>=1) do
 Begin
  If s2[1] <> s then delete(s2,1,1)
  else if (s2[1]=s) and (k=0) then
  begin
   delete(s2,1,1);
   inc(k);
  end;
End;
 close(f1);
 close(f2);
End.

Не получается даже с одной строкой...

[puporev]

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

Program Lb9;
Uses crt;
Var file1,file2,str:string;
    f1,f2:text;
    ch:char;
Begin
clrscr;
write('Input file= ');
readln(file1);
write('Output file= ');
readln(file2);
assign(f1,file1);
reset(f1);
if ioresult<>0 then begin
 write('File not found');
 readln;
end;
assign(f2, file2);
rewrite(f2);
write('Vvedite simvol ch=');
readln(ch);
While not eof(f1) do
   begin
     Readln(f1,str);
     delete(str,1,pos(ch,str));
     delete(str,1,pos(ch,str)-1);
     Writeln(f2,str);
  End;
 close(f1);
 close(f2);
End.

[Дима82]

Можно вопрос. Что означает "pos"?

While not eof(f1) do  
   begin  
     Readln(f1,str);   
     delete(str,1,pos(ch,str));   
     delete(str,1,pos(ch,str)-1);   
     Writeln(f2,str);   
  End;

[puporev]

Открой учебник или Help Паскаля и прочитай, стыдно такое спрашивать.

[Дима82]

Спасибо...

[Дима82]

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