searching a text into an array

[Silvio.Falconi]

I must control if a text is allready on an array and I use the function a scan
but I have an error

sample :
cText := alltrim(cu->last) the text to found on array

IF AScan( aTags, {|a| (a[1]) == cText } ) <--- where is the error
Msginfo("allready exist into list")
Endif

[cnavarro]

What error?
What format is the array, each element in another array?

[Silvio.Falconi]

text

[cnavarro]

I must control if a text is allready on an array and I use the function a scan
but I have an error

sample :
cText := alltrim(cu->last) the text to found on array

IF AScan( aTags, {|a| (a[1]) == cText } ) <--- where is the error
Msginfo("allready exist into list")
Endif

Silvio
If each element not is an array

Code: Select all  Expand view

 //AScan( aTags, {|a| a == cText } } )  // not

if !Empty( Ascan( aTags, cText ) )
   MsgInfo("Exist")
else
   Add( aTags, cText )
endif
 

[Silvio.Falconi]

on control (ttags) I have an array

aTagstemp:= oControl;getItems() // this give me an array with all elements of array of the control
ctext:="silvio" // new element text to insert on this array

If AScan( aTagsTemp, {|a| a == cText } ) =1 <--- not run ok
Msginfo("it is allready exist on list")
else
oControl:AddItem( ctext )
Endif

[Willi Quintana]

Prueba esto:

Code: Select all  Expand view

nPos := 0
nPos := AScan( aTagsTemp, {|a| a == cText } )
If nPos > 0
 Msginfo("it is allready exist on list in  " + STR(nPos,2,0) +  " position")
 else
 oControl:AddItem( ctext )
Endif
 

[Silvio.Falconi]

sORRY i RESOLVED BECAUSE THERE WAS AN ERROR ON CLASS