Re: Jak to zrobic w 4dos-ie

Autor: Jacek Fiok (j.fiok_at_zodiac.mimuw.edu.pl)
Data: Mon 03 May 1999 - 17:28:46 MET DST


Dnia Mon, 03 May 1999 12:56:57 GMT, jacekwoj_at_writeme.com (kocurek) napisał:

>Jest sobie plik z danymi (taglines.txt) który wygląda następująco:
>
>Jakiś tam sobie tekst nr 1
>Jakiś tam sobie tekst nr 2
>Jakiś tam sobie tekst nr 3
>Jakiś tam sobie tekst nr 4
>Jakiś tam sobie tekst nr 5
>
>Jak przerobić automatycznie (np. w pliku .bat lub .btm) taki plik, aby
>miał on następującą strukturę:
>
>\
>Jakiś tam sobie tekst nr 1
>\
>Jakiś tam sobie tekst nr 2
[...]

var f1,f2:text;
    c :char;

...

{rozumiem, ze ma byc '\' na poczatku, przed pierwszym tekstem}
writeln(f2,'\');

while not eof(f1) do begin
  if not eoln(f1) then begin
    read(f1,c);
    write(f2,c)
  end else begin
    readln(f1);
    writeln(f2);
    writeln(f2,'\');
  end;
end;

jesli nie znasz w ogole pascala to zapraszam na priv, od biedy moge
napisac, skompilowac i Ci przeslac gotowy *.EXE

pozdrowienia

--
Jacek Fiok
j.fiok_at_zodiac.mimuw.edu.pl                      http://www.jfiok.capital.pl
"w zasadzie mniej więcej prawie chyba nie"


To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 18:29:28 MET DST