🚀 go-pugleaf

Andrzej wrote:
> Witam grupowiczów
>
> Mam zonka :(
>  Program przed każdą linijką tekstu (ze zwykłego pliku txt) ma
> wstawić !
> <ciach>

Wyjątkowo bezsensowne podejście, czytaj całymi liniami tekst.

> Plik wynikowy powinien wyglądać:
> !teksty
> !teksty
> !teksty
>
> A wygląda:
> !teksty!
> teksty!!
> teksty!! i tak do konca... :(

Zobacz to:

var
       plika,plikb:text;
       line:string;
begin
  Assign(plika,'do_wczytania');
  Reset(plika);
  Assign(plikb,'wynikowy');
  ReWrite (plikb);
  while not eof(plika) Do
    begin
      ReadLn(plika,line);
      WriteLn(plikb,'!',line);
    end;
  Close(plika);
  Close(plikb);
end.

do_wczytania:

dlknfsadlkn fsdf' asdfk nasdf
asdf lasdjf laskd fas
df asmdf nkasdlfk asd
fasdlfj basdkj fasd

wynikowy:

!dlknfsadlkn fsdf' asdfk nasdf
!asdf lasdjf laskd fas
!df asmdf nkasdlfk asd
!fasdlfj basdkj fasd



-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.
http://maly.nemo.pl/