Всем доброго времени суток!
в общем, я использую следующий код:

SELECT tmp1
COPY TO ARRAY aTMP1
nRec=RECCOUNT()

DIMENSION aTMP2(nRec,21)

FOR y = 1 TO nRec
FOR x = 2 TO 20
FOR z = 1 TO 22
IF VAL(aTMP1(y,x))<>SizeNum(z) * ;
AND VAL(aTMP1(y,x))<>0
code=aTMP1(y,1)
size=aTMP1(z)
aTMP2(y,1)=VAL(code) **
aTMP2(y,x)=size
ENDIF
ENDFOR
ENDFOR
ENDFOR


** тут вылезает ошибка FUNcion argument... is invalid.
её происхождение мне кажется понятно-формат
ячейки неизвестен.

Или может кто-то предложит другой код
с использованием * - этого условия
Если невнятно выразился ), поясню суть алгор. словами:

есть:
aTMP1(21,nRec) - копия файла tmp1

сам файл tmp1 (code n(13), size1 c(2), size2 c(2),..,size20 c(2))

size1,..,size20 - содержат записи в числовом и в смешанном форматах, типа
36 и XL и т.п
для этого и созданы:
NumSize(22) - содержит разм в числовом формате.
CharSize(7) - /- в символьном.


надо, что б в массив aTMP2(по формату-аналог aTMP1)
копировались ячейки из aTMP1-только коды, а из NumSize или CharSize -размеры по условию,
если aTMP1(y,x)= типа 'XL'
и ещё условие: aTMP1(y,x)<>CharSize(c)
если же aTMP1(y,x)= типа '45'
тогда aTMP1(y,x)<>NumSize(n)

а потом готовый массив aTMP2 зиливаю в очищенный tmp1.dbf


за ранее благодарю!

П.С. ногами не пинать - я ведь молодой "специалист" =)

to leaf

ок! постараюсь )

вот файл tmp1.dbf
его формат:
code n (13) , size1 c(2),...size20 ;

в полях size1,..size20 записи могут быть такими:
24,25,27...
могут и такие L,Xl,XS,2X,4X..

на выходе должен быть сформирован файл dbf или массив, в котором
будут код и размеры, несовпадающие
с размерами в массивах.

to leaf

забыл про массивы..

тут создаю их
dimension SizeN(22) , SizeC(7)
забиваю в них размеры, что бы можно было сравнивать в цикле
sizeN(1)='24
sizeN(1)
sizeN(1)

продолжение..

sizeN(2)=25
sizeN(3)=27
...
sizeN(22)=56

и для SizeC
SizeC(1)='XS'
SizeC(2)='S'
..
sizeC(7)='4X'

и ещё.
когда я делаю вот это:
STORE aTMP1(y,1) TO code
или просто
code=aTMP1(y,1)
проверяя в дебугере, переменной code заливается 0 ????
анамалия!

и ещё.
когда я делаю вот это:
STORE aTMP1(y,1) TO code
или просто
code=aTMP1(y,1)
проверяя в дебугере, переменной code заливается 0 ????
анамалия!

продолжение..
хотя aTMP1(y,1) сожержит то, что надо...

to leaf

спасибо огромное за вариант.

Завтра попробуем. )