Копирование строки файла Опции

[off]

Дан текстовый файл. В нем кроме обычных символов встречается команда \ins NN xx...xxx, где NN-двузначное число, xx...xxx - строка. Команда должна вставлять строку xx...xxx в данное место (нумерация строк с единицы). Запись результат во второй файл.
Не понимаю как копировать строку во второй файл
Вот,что написал я:

uses crt;
var f1,f2:text; i,n:integer; str:string;
begin clrscr;
 Assign(f1,'1.txt'); Reset(f1);
 Assign(f2,'2.txt'); Rewrite(f2);
 n:=0;
 While not EOF(f1) do begin
       readln(f1,str); i:=0;
       While (i<>Length(str)) do begin
             inc(i);
             if (str[i]='\') and (i+6<=Length(str)) then begin
                if (copy(str,i+1,4)='ins ')and(str[i+5] in ['0'..'9'])and
                   (str[i+6] in ['0'..'9']) then begin
                   i:=i+6; inc(n); write(f2,n);
                end;
             end else write(f2,str[i]);
       end;
  writeln(f2);
 end;
 close(f1); close(f2);
 readkey;
end.

Помогите))В общем нужно взять строку после \ins NN и копировать её во второй файл в NN-ную строку

[klem4]

Ты бы поточнее задание привел и текст - пример входного файла...

Вот такое допустимо ?

пертва\insястрока
во вотой нету второго параметра для ins \ins 42
а вот третья нормальная ? \ins 12 qwerty!
\ins 32 string!

просто надо ж знать насколько сложный парсер должен быть ...

Сообщение отредактировано: klem4 - 20.04.2008 21:52