Conocer las veces que una cadena es parte de una matriz

[nanoespinoza]

Estimados:

Tengo el siguiente problema y no le encuentro una solución adecuada con una función propia de FW o xHarbour (quizá una combinación entre AEval y AScan sea lo adecuado, pero no he podido dar con la sintaxis adecuada). Lo resumo: si tengo una matriz con varios elementos y quiero conocer la cantidad de veces que un valor especifico se encuentra contenido en la matriz.

Ejemplo_
aMatriz:={"XYZ", "ABC", "ABC", "DEF", "D12345", "ABC", "UVW"", "DEF"}

¿Como hago para conocer la cantidad de veces que la cadena "ABC" está repetida en aMatriz?

Saludos

Fernando Espinoza A.

[Antonio Linares]

Code: Select all  Expand view

function Main()

   local aMatriz := { "XYZ", "ABC", "ABC", "DEF", "D12345", "ABC", "UVW", "DEF" }
   local n := 0    
   
   AEval( aMatriz, { | c | If( c == "ABC", n++,) } )
   
   ? n
   
return nil

[nanoespinoza]

Estimado Antonio

Perfecto, muchas gracias.

Saludos

[cnavarro]

Otra posibilidad

Code: Select all  Expand view

#include "Fivewin.ch"

function Main()

   local aMatriz := { "XYZ", "ABC", "ABC", "DEF", "D12345", "ABC", "UVW", "DEF" }
   local n := 0    
   ? n := NumAt( "ABC", FW_ArrayAsList( aMatriz, ";" ) )
   
return nil