🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92379

Re: Odczyt pliku

#92379
From: Tygrys
Date: Sun, 06 Jan 2008 08:49
36 lines
1971 bytes
fatrix pisze:
> Witam,
> 
> Mam sobie plik .txt i chcę z niego czytać dość nietypowo - muszę 
> podzielić dane na porcje 4x4 znaki.
> 
> Jak to zrobić?
> 
> Moge zczytać pierwsze 4 znaki pierwszej lini, 4 znaki drugiej, 4 znaki 
> trzeciej i już mam jedną porcję, ale jak później czytać dalej w prawo - 
> tzn:
> 
> x - pojedyńczy char (kompilator TP 7.0)
> 
> ||xxxx||xxxx|xxx
> ||xxxx||xxxx|xxxxxxxxxxx
> ||xxxx||xxxx|xxxx
> ||xxxx||xxx
> |xxxx|xxxxxxxxxx
> 
> Pomiędzy || to porcja zczytana jakoś jak już wyżej napisałem, ale jak 
> później zczytać porcję na prawo od już zczytanej itp.

Możesz po najmniejszej lini oporu:
przeczytać jeszcze raz ignorując pierwsze cztery znaki i czytając następne.

Albo załaduj plik do array of string i przetwarzaj stringi po kawałku

Bardziej elegancko jest czytać pierwsze cztery do jakiejś zmiennej 
(tablicy) a potem drugie cztery do drugiej itd.

Trochę zależy, jak masz zorganizowane te dane, czy ilość znaków w 
linijce jest stała, czy długość pliku (ilość linijek)  jest 
stała/ograniczona itp

Tygrys
Technical Details
Message-ID: <flq4pc$5a0$2@atlantis.news.tpi.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
References: <flq380$2kl$1@atlantis.news.tpi.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.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 09:49:31 +0100
Organization: tp.internet - http://www.tpi.pl/
Lines: 36
Message-ID: <flq4pc$5a0$2@atlantis.news.tpi.pl>
References: <flq380$2kl$1@atlantis.news.tpi.pl>
NNTP-Posting-Host: aca110.internetdsl.tpnet.pl
Mime-Version: 1.0
X-Trace: atlantis.news.tpi.pl 1199609452 5440 83.16.52.110 (6 Jan 2008 08:50:52 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Sun, 6 Jan 2008 08:50:52 +0000 (UTC)
User-Agent: Thunderbird 2.0.0.9 (Windows/20071031)
In-Reply-To: <flq380$2kl$1@atlantis.news.tpi.pl>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit