FiveTech Software tech support forums

... todas las combinaciones posibles de una serie de letras formando combinaciones mayores o iguales a 3 caracteres. Ejemplo tomando la palabra "ESTEBAN" Obtener como resultado: EST ESTE ESTEB ESTEBAN SET SETB SETBA SETBAN Etc, etc etc... A alguien se le ocurre como encarar este algoritmo? ...

Estimado Esteban, Un primer intento: function Main()   local cWord := "ESTEBAN", cChar, cResult, n   local aResults := {}      for each cChar in cWord      for n = 3 to Len( cWord )         if ...

... todas las combinaciones posibles de una serie de letras formando combinaciones mayores o iguales a 3 caracteres. Ejemplo tomando la palabra "ESTEBAN" Obtener como resultado: EST ESTE ESTEB ESTEBAN SET SETB SETBA SETBAN Etc, etc etc... A alguien se le ocurre como encarar este algoritmo? ...

Esteban,

ASort( aArray,,, {| x, y | x[ 1 ] < y[ 1 ] .and. x[ 2 ] > y[ 2 ] } )

1. tu primer orden alfa
2. tu segundo orden numerico

no lo probe pero deberia funcionar.

Saludos.

Esteban, Microsoft ofrece el activex webview2 que usa el mismo motor que usa Microsoft Edge basado en el motor de google Chrome. Como usarlo es complejo, existe un proyecto en github que permite usarlo como una DLL y lo tenemos ...

Esteban,

hbmk2 genera automaticamente la libreria de importación y luego la borra

hbmk2 es una gran herramienta

Esteban,

Prueba a construirla con Harbour. Deberias ser capaz de construirla facilmente.

Una vez la tengas funcionando con Harbour, el resto es muy simple

Gracias Esteban, veré que sale de esta inquietud, creo que seria un lindo paso para la validación de email.
Saludos

Gracias Esteban, de diez.

Excelente Esteban, muy amable, gracias.

Saludos.

Gracias Esteban

Claro que recorriendo el Query se puede,
Revisando los PRG de la LIB de TDolphin hay una clase TDolphinToDbf

Si alguien tiene un Ej.

Saludos,

Adhemar

Como indica Esteban es por el FILTER Con índices TEMPORARY/MEMORY o con SCOPE que necesita un índice. INDEX ON CODIGO TO TEMP TEMPORARY FOR VAL((dArc)->Codigo)>=21000000000 .AND. VAL((dArc)->Codigo)<=21200000000óINDEX ...

Gracias Esteban

Y cómo haría la búsqueda?

Saludos,

Adhemar

Esteban, mira si es lo que necesitas. La he recién creado para agregarla a mi carpetas de ejemplos y pruebas: //-----------------------//Obtener x combinaciones de letrasFUNCTION CombinaLetras()local aLetras := {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","Ñ","O","P","Q","R","S","T","U","V","W","X","Y","Z"}local ...

mil Gracias esteban!!, es lo que necesitaba.

un abrazo