Текстовый файл. Получить новый файл, исключая из i-той строки i первых символов

@gaji4ehok · Регистрация: 05.12.2011

Помогите, пожалуйста. Не знаю как перейти на нужную строку и создать новый фийл.
Дан текстовый файл f, содержащий 20 строк. Получить g исключая из i-той строки f i первых символов.

Pascal

var s:string;
i,a,d:integer;
f,g:text;
 
begin
assign(f,'f.txt');
reset(f);
write('Enter nomer stroki');
readln(a);
i:=a;
while not (eof(f)) do
      begin
      assign (g,'g.txt');
      rewrite(g);
      readln(f,s);
      delete(s,1,i);
      end;
      close(g);
close(f);
readln;
end.

Одиночка · 15.05.2012, 01:11

Delphi

var s:string;
i,a,d:integer;
f,g:text;
 
begin
  assign(f,'f.txt');
  reset(f);
  assign (g,'g.txt');
  rewrite(g);
  write('Enter nomer stroki');
  readln(a);
  i:=1;
  while not (eof(f)) do
  begin
    readln(f,s);
    If i=a Then delete(s,1,i);
    WriteLn(g,s);
    Inc(i);
  end;
  close(g);
  close(f);
  readln;
end.

Опции темы