Fabio,
I changed the example a bit. All results are as expected with SET ANSI ON. They are weird if SET ANSI OFF. The REPLACE command always returns the correct result. Agree?
local array laTmp[5]
laTmp[1]='abc'
laTmp[2]='cde'
laTmp[3]='temx'
laTmp[4]='tem'
laTmp[5]=''
acopy( laTmp, laTmpX )
dimension laTmpX[ 6 ]
ains( laTmpX, 1 )
laTmpX[1] = '-'
create cursor c_tmp ( pk I,cString c(4), OFFOFF c(4), OFFON c(4), ONOFF c(4), ONON c(4) )
insert into c_tmp values (1, 'abc ','','','','' )
insert into c_tmp values (2, 'tem ','','','','' )
insert into c_tmp values (3, '' ,'','','','' )
insert into c_tmp values (4, 'xxx ','','','','' )
SET ANSI OFF
SET EXACT OFF
UPDATE c_tmp SET OFFOFF=laTmpX[ 1 + ascan( laTmp, rtrim( cString ), -1, -1, 0, 7 )]
SET ANSI OFF
SET EXACT ON
UPDATE c_tmp SET OFFON=laTmpX[ 1 + ascan( laTmp, rtrim( cString ), -1, -1, 0, 7 )]
SET ANSI ON
SET EXACT OFF
UPDATE c_tmp SET ONOFF=laTmpX[ 1 + ascan( laTmp, rtrim( cString ), -1, -1, 0, 7 )]
SET ANSI ON
SET EXACT ON
UPDATE c_tmp SET ONON=laTmpX[ 1 + ascan( laTmp, rtrim( cString ), -1, -1, 0, 7 )]
LOCATE
browse LAST NOWAIT
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.
