Pascal - nacitani a vypis souboru- nacteni od dalsi radky?

Ahoj, mam takový problém. Načítám data ze souboru, poté co je načtu a zobrazím, tak je potřebuji zobrazit znovu, ovšem bez prvního řádku. Poté bez prvních 2 atd. Nějaká rada jak to provést? Zkoušel jsem eoln, seekeoln, ale nějak to pořád nejde. Rady?

Mam vpodstatě:

while not eof(ts)do
begin
read(ts,znak);
if znak = 'a' then write
end;

Předmět	Autor	Datum
[http://pc.poradna.net/file/view/22160-pokus-jpg] sakraforte 01.04.2015 12:37	sakraforte	01.04.2015 12:37
Ach jo.. Google: testovanie konca riadka pascal .Prvý odkaz 5.Prednaska Riadky sú oddelené "nevidite… nový sakraforte 01.04.2015 13:13	sakraforte	01.04.2015 13:13
"vpodstatě" máš velké nič.... čítaš znak za znakom a testuješ ho na "a"... O súbore ktorý sa snažíš… pme 01.04.2015 12:39	pme	01.04.2015 12:39
mam prostě soubor" abbbbbba abbbbbba abbbbbba No a načítám ho. Pokud je to a, tak vypiš ku příkladu… nový beeskin 01.04.2015 12:46	beeskin	01.04.2015 12:46
Takto se to nedela. Dela se to tak, ze si prectes prvni radek a vypisujes. Nactes dalsi radek a vypi… nový Jan Fiala 01.04.2015 12:54	Jan Fiala	01.04.2015 12:54
A do čeho si mam načíst ten první řádek, abych ho potom mohl po znaku vypisovat a když to teda načtu… nový beeskin 01.04.2015 12:57	beeskin	01.04.2015 12:57
cyklus do konce souboru nactu radek do promenne - Readln(ts, radek); zpracujes - treba v cyklu for o… nový Jan Fiala 01.04.2015 13:24	Jan Fiala	01.04.2015 13:24
Skús si prečítať a pochopiť toto: http://www.delphibasics.co.uk/Article.asp?Name=Fil es poslední pme 01.04.2015 13:27	pme	01.04.2015 13:27

[http://pc.poradna.net/file/view/22160-pokus-jpg]

pokus.jpg 121.78 KiB

Ach jo.. Google: testovanie konca riadka pascal .Prvý odkaz 5.Prednaska Riadky sú oddelené "neviditeľnými" znakmi.

"vpodstatě" máš velké nič....
čítaš znak za znakom a testuješ ho na "a"...

O súbore ktorý sa snažíš čítať ani zmienka (je každý riadok ukončený CRLF, CR alebo LF ?
čítaj to po riadkoch:
readln

mam prostě soubor"
abbbbbba
abbbbbba
abbbbbba

No a načítám ho. Pokud je to a, tak vypiš ku příkladu X pokud b vypiš Q.
Pak to potřebuji bez prvního řádku vypsat. Jde mi oto, jak přeskočím první řádek.

Takto se to nedela. Dela se to tak, ze si prectes prvni radek a vypisujes. Nactes dalsi radek a vypisujes. atd.

A do čeho si mam načíst ten první řádek, abych ho potom mohl po znaku vypisovat a když to teda načtu po řádcích, tak jak potom přeskočít n+jaký ten řádek?

cyklus do konce souboru
  nactu radek do promenne - Readln(ts, radek);
  zpracujes - treba v cyklu for od 1 do delky retezce radek a vypises, co potrebujes
konec cyklu

Slo by to delat i tak, jak si to predstavujes - v nejake promenne si pamatovat, kolik radku jsi nacetl, pak vzdy nacist v cyklu tolikrat radek, kolik jich chces preskocit, ale to je blbost.

Ty prece taky znak nacitas do promenne znak, jen jsi ten kod proste nekde zkopiroval a netusis, co vlastne dela

Skús si prečítať a pochopiť toto:
http://www.delphibasics.co.uk/Article.asp?Name=Fil es

Zpět do poradny Odpovědět na původní otázku Nahoru