eoln w FP

Article View: pl.comp.lang.pascal

Article #92439

Back to pl.comp.lang.pascal Previous Next

#92439

From: Andrzej
Date: Sun, 03 Feb 2008 22:34

31 lines
1515 bytes

Witam grupowiczów

Mam zonka :(
  Program przed każdą linijką tekstu (ze zwykłego pliku txt) ma wstawić !

Var
       plika,plikb:text; zn:char;
Begin
  Assign (plika,'do_wczytania'); Reset (plika);
  Assing (plikb,'wynikowy'); ReWrite (plikb)
  While not eof (plika) Do
    Begin
      Write (plikb,"!");
      While not eoln (plika) Do Begin Read (plika,zn); Write (plikb,zn) End;
    End;
  Close (plika); Close (plikb);
End.

Plik wynikowy powinien wyglądać:
!teksty
!teksty
!teksty

A wygląda:
!teksty!
teksty!!
teksty!! i tak do konca... :(
-- 
Co źle robię albo myślę ?
Pozdrawiam
Kura

Technical Details

Message-ID: <fo5fts$7qb$1@nemesis.news.tpi.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.atman.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.atman.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "Andrzej" <series@na-box43.pl>
Newsgroups: pl.comp.lang.pascal
Subject: eoln w FP
Date: Sun, 3 Feb 2008 23:34:46 +0100
Organization: tp.internet - http://www.tpi.pl/
Lines: 33
Message-ID: <fo5fts$7qb$1@nemesis.news.tpi.pl>
NNTP-Posting-Host: host-ip86-56.crowley.pl
X-Trace: nemesis.news.tpi.pl 1202078460 8011 85.128.56.86 (3 Feb 2008 22:41:00 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Sun, 3 Feb 2008 22:41:00 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.3138
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3198
X-RFC2646: Format=Flowed; Original
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit