akvvohinc

lulgu
На скорость проверять чьи-то миллионные записи у меня нет времени

Не записи миллионные, я имел в виду, что в строке могут встретиться любые числа, например, 1458761.

А так - свою задачу ТС решил и сам.
Он просил помочь как раз с точки зрения скорости работы алгоритма.

akvvohinc
Но может быть, среднее количество чисел в строке огромно - тогда алгоритм может и устроить

Igor Korolyov

akvvohinc
Но может быть, среднее количество чисел в строке огромно - тогда алгоритм может и устроить

Если в строке очень много чисел, то строка будет очень большой, а поиск чего либо в очень большой строке (при том ещё и обработанной - дополненной разделителями в начале и конце) в цикле - всегда плохое решение. Даже если будет сделано всего 100 таких "поисков" (т.е. данные действительно ограничены 2-значными целыми неотрицательными числами, и безо всяких пробелов/ведущих нулей и т.п. мусора).

Т.е. что для "коротких" строк в 3-10 чисел, что для "очень длинных" в десятки и сотни тысяч чисел, что для неизвестных ограничений на мин/макс число, что для известных но больших (уже 4-знаки это 10к прогонов цикла), что для "не совсем аккуратно указанных" чисел (лишние пробелы, ведущие нули), что для десятичных дробей - указанное решение не подходит. Диапазон его применимости на самом деле смехотворно мал - и даже в этом диапазоне другие решения по скорости запросто его обойдут.
Ну и как это можно в таком случае назвать?

dfr
Это на 81 тыще записей, в DBF, с сохранением обратно. Максимально - 20 цифр в строке.
Числа максимум могут 3х-значные, количество в строке примерно как сейчас. Пробелов, ведущих нулей - не имеется.

of63
Окончательный, супербыстрый, и одновременно универсальный код когда кто напишет - разбудите )

dfr

Taran
Через массив делай.
Alines... Asort.
И между этими командами пробежаться по массиву и строки преобразовать в int.

А уникальные как там искать? (дубли убирать)

LPARAMETERS tcIn

LOCAL lnLen,lcOut,lcStr,i
lnLen = ALINES(laStr,tcIn,1,',')
DIMENSION laStr[lnLen,1]
=ASORT(laStr)

lcOut = ','
FOR i = 1 TO lnLen        
    lcStr = laStr[i]
    IF !','+lcStr+','$lcOut
        lcOut = lcOut + lcStr + ','
    ENDIF
ENDFOR
RETURN SUBSTR(lcOut,2,LEN(lcOut)-2)

Igor Korolyov
lcIn = '21,22,22,723,23,40,27,40,5'

dfr
Числа максимум могут 3х-значные

lulgu
Может так:

lulgu
У ИК такие криминальные способности зазря пропадают.

CREATE CURSOR curs1 (s C(100))
= RAND(-1)
m.k_max = 10

FOR m.i=1 TO 100000
   s = ''
   FOR m.j=1 TO m.k_max
      num = MAX(MIN(999,INT(RAND()*1000)),1)
      m.s = m.s+TRAN(num)+IIF(j=m.k_max,'',',')
   ENDFOR
   INSERT INTO curs1 VALUES(m.s)
ENDFOR