🚀 go-pugleaf

In article <DJ6I6...@cyf-kr.edu.pl> wo...@infoserv.ii.uj.edu.pl (Mariusz Wolek) writes:
>From: wo...@infoserv.ii.uj.edu.pl (Mariusz Wolek)
>Subject: Re: Clarion i wyszukiwanie...
>Date: Wed, 6 Dec 1995 19:01:19 GMT

>Stud.Kolo.Naukowe (kolo8@sparc10) wrote:
>: Czy moze ktos wie jak za pomoca funkcji get znalez rekord w Clarionie i 
>: jak szukac kolejnych rekordo o tej samej wartosi w pliku?
>: Michal Szymanski
>: http://www.ely.pg.gda.pl/~kolo8/index.html

>Wyszukiwac w/g klucza. O ile dobrze pamietam powinno to wygladac tak:
>CLEAR(E:RECORD,-1)
>E:POLE=szukana_wartosc
>SET(E:KLUCZ,E:KLUCZ)
>NEXT(DATA)

>gdzie KLUCZ - klucz wyszukiwania w pliku
>E - prefix
>DATA - nazwa pliku z danymi

W taki sposob jezeli E:POLE jest najbardziej znaczacym (ale nie
jedynym) elementem E:KLUCZ. Jezeli jest jedynym, to po prostu
E:POLE=szukana_wartosc; GET(DATA,E:POLE);
a jezeli nie najbardziej znaczacym, to wszystko oprocz poczatkowego
CLEAR trzeba powtarzac za kazdym razem, kiedy E:POLE sie zmieni po
NEXT. I oczywiscie uzywajac NEXT trzeba sprawdzac, czy E:POLE po
wykonaniu NEXT ma taka wartosc, jakiej szukamy...