Ayuda AScan en Array

[remtec]

Amigos Buenas tardes.

Tengo un problema, no logro dar con la forma de la búsqueda en Arreglo.

Variable: cVar:="MENTON"

Array aAdmZonas:={ {""}, {"BARRAS", "MANDIBULA", "MARIONETAS", "POMULO", "CARA"}, {"CEJAS", "POMULO", "SOBRE CEJAS","LABIO SUPERIOOR"}}

Como puedo saber la posición de la cVar, dentro de aAdmZonas?

Muchos Saludos.

Antonio

[cmsoft]

Esta sería una manera, creo que con aeval sería más óptima

Code: Select all  Expand view

#include "FiveWin.ch"


FUNCTION Main()

   local cVar, aAdmZonas, i, nPos, lEncontro := .f.
   cVar:="MENTON"

   aAdmZonas:={ {""}, {"BARRAS", "MANDIBULA", "MARIONETAS", "POMULO", "CARA","MENTON"}, {"CEJAS", "POMULO", "SOBRE CEJAS","LABIO SUPERIOOR"}}
   
   FOR i := 1 to len(aAdmZonas)
       nPos := ascan(aAdmZonas[i],cVar)
       IF nPos > 0
          MsgInfo("La posicion es " + str(i)+ ","+ str(nPos))
          lEncontro := .T.
       ENDIF  
   NEXT i
   IF !lEncontro
      MsgInfo("No lo encontro")
   ENDIF
   
   
RETURN NIL