abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
včera 02:20 | Zajímavý článek

David Revoy, autor open source webového komiksu Pepper&Carrot nebo portrétu GNU/Linuxu, upozorňuje na svém blogu, že nový Inkscape 0.92 rozbíjí dokumenty vytvořené v předchozích verzích Inkscape. Problém by měl být vyřešen v Inkscape 0.92.2 [reddit].

Ladislav Hagara | Komentářů: 0
včera 02:02 | Komunita

Øyvind Kolås, hlavní vývojář grafických knihoven GEGL a babl, které využívá grafický program GIMP, žádá o podporu na Patreonu. Díky ní bude moci pracovat na vývoji na plný úvazek. Milník 1000 $, který by stačil na holé přežití, se již téměř podařilo vybrat, dalším cílem je dosažení 2500 $, které mu umožní běžně fungovat ve společnosti.

xkomczax | Komentářů: 12
21.1. 23:54 | Pozvánky

DevConf.cz 2017, již devátý ročník jedné z největších akcí zaměřených na Linux a open source ve střední Evropě, proběhne od pátku 27. ledna do neděle 29. ledna v prostorách Fakulty informačních technologií Vysokého učení technického v Brně. Na programu je celá řada zajímavých přednášek a workshopů. Letos je povinná registrace.

Ladislav Hagara | Komentářů: 0
21.1. 22:11 | Nová verze

Byla vydána verze 1.0.0 emulátoru terminálu Terminology postaveného nad EFL (Enlightenment Foundation Libraries). Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
20.1. 17:00 | Nová verze

Byl vydán Docker 1.13. Přehled novinek na YouTube a v poznámkách k vydání na GitHubu. Docker umožňuje běh aplikací v softwarových kontejnerech (Wikipedia).

Ladislav Hagara | Komentářů: 4
20.1. 15:51 | Komunita

Mozilla.cz informuje, že nástroje pro webové vývojáře se možná oddělí od Firefoxu a stanou doplňkem. Nástroje pro webové vývojáře prošly velkým přepisem a tým, který se stará o jejich vývoj, by uvítal možnost jejich častějších aktualizacích nezávisle na vydávání nových verzí Firefoxu.

Ladislav Hagara | Komentářů: 10
20.1. 07:00 | Humor

Čtenářům AbcLinuxu vše nejlepší k dnešnímu Dni zvýšení povědomí o tučňácích (Penguin Awareness Day).

Ladislav Hagara | Komentářů: 0
20.1. 06:00 | Komunita

Bylo spuštěno hlasování o přednáškách a workshopech pro letošní InstallFest, jenž proběhne o víkendu 4. a 5. března v Praze. Současně byla oznámena změna místa. InstallFest se letos vrací zpět na Karlovo náměstí do budovy E.

Ladislav Hagara | Komentářů: 0
20.1. 02:48 | Komunita

Greg Kroah-Hartman potvrdil, že Linux 4.9 je jádrem s prodlouženou upstream podporou (LTS, Long Term Support). Podpora je plánována do ledna 2019. Aktuální jádra s prodlouženou podporou jsou tedy 3.2, 3.4, 3.10, 3.12, 3.16, 3.18, 4.1, 4.4 a 4.9.

Ladislav Hagara | Komentářů: 0
20.1. 00:11 | Zajímavý článek

Výrobce síťových prvků, společnost Netgear, spustila nový program, který slibuje vývojářům, expertům, ale i běžným uživatelům vyplacení finanční odměny za nalezení bezpečnostních chyby v jejich produktech. Za nalezení zranitelnosti v hardware, API nebo mobilní aplikaci nabízí odměnu od 150 do 15 tisíc dolarů (dle závažnosti).

Michal Makovec | Komentářů: 0
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (10%)
 (2%)
 (74%)
 (4%)
 (10%)
Celkem 367 hlasů
 Komentářů: 25, poslední 21.1. 13:34
Rozcestník
Reklama

Dotaz: Nefunkcni uprava retezcu

19.2.2009 22:25 aGr
Nefunkcni uprava retezcu
Přečteno: 91×
Mam program:
...
assign(obce,'obce.txt');
reset(obce);
assign(nazvy,'result.txt');
rewrite(nazvy);
readln(obce,obsah);

while not EOLN(obce) do
begin
mez1:=pos('(',obsah);
mez2:=pos(')',obsah);
delete(obsah,mez1,mez2-mez1+2);
end;

writeln(obsah);
close(obce);
close(nazvy);

nevypise vsak nic. Zato pokud vynecham while cyklus a napisu pouze:

readln(obce,obsah);
mez1:=pos('(',obsah);
mez2:=pos(')',obsah);
delete(obsah,mez1,mez2-mez1+2);

pro prvni retezec vse probehne naprosto v poradku, tak jak ma.
Zkousel jsem i "while not EOLN(obce) do" nahradit za "for i:=1 to length(obsah) do" jenze naprosto beze zmeny. Nevim si rady, naky napady?

Odpovědi

19.2.2009 22:31 Andrej Herceg | skóre: 43
Rozbalit Rozbalit vše Re: Nefunkcni uprava retezcu
Vôbec netuším, čo by ten program mal robiť (nikde to tam nie je napísané) :)

Podľa mňa by to mohlo vyzerať nejako takto (ale ako som už napísal, netuším, čo to má robiť, takže možno to nebude to, čo potrebuješ):
assign(obce,'obce.txt');
reset(obce);
assign(nazvy,'result.txt');
rewrite(nazvy);

while not Eof(obce) do 
begin
	readln(obce,obsah);
	mez1:=pos('(',obsah);
	mez2:=pos(')',obsah);
	delete(obsah,mez1,mez2-mez1+2);
	writeln(obsah);
end;

close(obce);
close(nazvy);
20.2.2009 14:10 aGr
Rozbalit Rozbalit vše Re: Nefunkcni uprava retezcu
Promin, doplneni :): Mam soubor obce.txt, ktery obsahuje nazvy mest a okresy - napr.: benešov( benešov ) , bernartice( benešov - vlašim )... Mam za ukol odstranit zavorky a vypsat pouze mesta. Cili vysledek by mel vypadat benešov , bernartice... Je jasny, ze to cely, co jsem napsal, pak jeste bude cele ve "while not EOF(obce) do". Ja to zatim zkousim pouze pro jeden retezec. Hlavni je, ze kdyz obsah ve while cyklu vyndam, prikaz se provede spravne (akorat jednou samozrejme). Take jsem ted zjistil, ze kdyz to zkompiluju ve starym Borland Pascalu 7, tak to funguje... Ja pouzivam Dev-Pascal, ale zkousel jsem to i v jinem, ale bez vysledku.

Založit nové vláknoNahoru

Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

ISSN 1214-1267   www.czech-server.cz
© 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.