О сортировке. Функция next



Posted by Васеленко Сергей, Фирма КАРДИНАЛ on December 14, 1998 at 22:36:46:

Предлагаю ввести новую функцию next, которая дает следующий индекс в структуре индексов.

Пример использования - форма вывода списка сотрудников по фамилиям:

#70
NO=[set %,'SORT|70|'+[n2 #]+'|'+[n1 #],[n1]]
#
Код Наименование
I1='SORT|70|'
:LOOP
I1=[next %,I1]
! [ps 'SORT|70|',I1]=0
stop
!
N1=[get %,I1]
N2=[n2 *N1]
^^^^^^^N1 ^^^^^^^^^^^^^^^^^N2
goto LOOP

Всего 14 строк.

Новая функция работает в строке I1=[next %,I1]

По аналогии с sed,ged, вероятно, должна появиться функция [nexd I1].

И уж очень хочется иметь оператор <> (не равно) и возможность сравнения строк на <,>,<>.



Пpишедшие ответы: