Conocer las veces que una cadena es parte de una matriz

Board index FiveWin para Harbour/xHarbour Conocer las veces que una cadena es parte de una matriz

Posts: 163

Joined: Thu Mar 16, 2017 04:08 PM

Conocer las veces que una cadena es parte de una matriz
Posted: Tue Jul 21, 2020 02:47 AM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Conocer las veces que una cadena es parte de una matriz
Posted: Tue Jul 21, 2020 04:03 AM

Code (fw): Select all Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

nanoespinoza

Posts: 163

Joined: Thu Mar 16, 2017 04:08 PM

Re: Conocer las veces que una cadena es parte de una matriz
Posted: Tue Jul 21, 2020 04:38 AM

Estimado Antonio

Perfecto, muchas gracias.

Saludos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Conocer las veces que una cadena es parte de una matriz
Posted: Tue Jul 21, 2020 11:26 AM

Otra posibilidad

Code (fw): Select all Collapse

#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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion