Re: Odczyt pliku

Article View: pl.comp.lang.pascal

Article #92383

Back to pl.comp.lang.pascal Previous Next

#92383

From: Tygrys
Date: Sun, 06 Jan 2008 11:13

32 lines
2068 bytes

fatrix pisze:
> Użytkownik "Tygrys" <news15@wywalto.tygrys.com.pl> napisał
> 
>> W sumie to nie piszesz, co z tym trzeba zrobić i trudno coś zasugerować.
> 
> Później na tych porcjach będę przeprowadzał transponowanie i jeszzce 
> parę operacji - to ma być taka metoda szyfrowania. Ale z resztą dam 
> sobie już radę. Nie mam tylko pomysłu na wczytanie pliku w odpowiednie 
> struktury, a i sam spoób tego wykonania powinien być "ładny" a nie "na 
> chama".
> 
> Musi być pod TP 7.0 więc odgórnie założenie jest, że linijka ma nie 
> więcej jak 255 znaków, Tstringlist też odpada.

s: string;
f: Text;
i: Integer;
Element: array[0..63] of string[4];


Readln(f, s);

for i := 0 to 63 do
   Element[i] := Copy(s, i*4 + 1, i*4 + 4);

i w tablicy element masz linijkę podzieloną na to co chcesz.

jak potrzebujesz tego więcej to robisz sobie array of Element i 
wczytujesz kilka(naście/dziesiąt) na raz, z przykładu wynika że używasz 
3 lub 4, ale nie piszesz dokładnie.

Tygrys

Technical Details

Message-ID: <flqd6v$1kj$1@atlantis.news.tpi.pl>

Path:

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

References:

<flq380$2kl$1@atlantis.news.tpi.pl> <flq4pc$5a0$2@atlantis.news.tpi.pl> <flq58q$7op$1@atlantis.news.tpi.pl> <flq654$a5q$1@atlantis.news.tpi.pl> <flq87k$fqh$1@atlantis.news.tpi.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.internetia.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: Tygrys <news15@wywalto.tygrys.com.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: Odczyt pliku
Date: Sun, 06 Jan 2008 12:13:17 +0100
Organization: tp.internet - http://www.tpi.pl/
Lines: 32
Message-ID: <flqd6v$1kj$1@atlantis.news.tpi.pl>
References: <flq380$2kl$1@atlantis.news.tpi.pl> <flq4pc$5a0$2@atlantis.news.tpi.pl> <flq58q$7op$1@atlantis.news.tpi.pl> <flq654$a5q$1@atlantis.news.tpi.pl> <flq87k$fqh$1@atlantis.news.tpi.pl>
NNTP-Posting-Host: aca110.internetdsl.tpnet.pl
Mime-Version: 1.0
X-Trace: atlantis.news.tpi.pl 1199618079 1683 83.16.52.110 (6 Jan 2008 11:14:39 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Sun, 6 Jan 2008 11:14:39 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.9 (Windows/20071031)
In-Reply-To: <flq87k$fqh$1@atlantis.news.tpi.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message