New function ADiff( aArray1, aArray2 )

[Antonio Linares]

Included in next FWH build:

Code: Select all  Expand view  RUN

function ADiff( a, b )

   local c := {}
   
   AEval( a, { | u, n | If( n > Len( b ), AAdd( c, u ),;
                        If( ValType( u ) != ValType( b[ n ] ), AAdd( c, u ),;
                        If( ! u == b[ n ], AAdd( c, u ),;
                        If( ValType( u ) == "A" .and. ValType( b[ n ] ) == "A", AAdd( c, ADiff( u, b[ n ] ) ), ) ) ) ) } )
   AEval( b, { | u, n | If( n > Len( a ), AAdd( c, u ),) } )
   
return c

[Silvio.Falconi]

Included in next FWH build:

Code: Select all  Expand view  RUN

function ADiff( a, b )

   local c := {}
   
   AEval( a, { | u, n | If( n > Len( b ), AAdd( c, u ),;
                        If( ValType( u ) != ValType( b[ n ] ), AAdd( c, u ),;
                        If( ! u == b[ n ], AAdd( c, u ),;
                        If( ValType( u ) == "A" .and. ValType( b[ n ] ) == "A", AAdd( c, ADiff( u, b[ n ] ) ), ) ) ) ) } )
   AEval( b, { | u, n | If( n > Len( a ), AAdd( c, u ),) } )
   
return c

Can we have an example of use?

[Antonio Linares]

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local a := { "uno", { "hola", "adios" }, "dos", "tres" }
   local b := { "uno", "cuatro", { "hola", "adios" }, "cinco", 123 }

   XBrowser( ADiff( a, b ) )

return nil

[paquitohm]

Fw_ValToExp_Mia(a) --> (C) Len: 37 "{'uno',{'hola','adios'},'dos','tres'}"
Fw_ValToExp_Mia(b) --> (C) Len: 45 "{'uno','cuatro',{'hola','adios'},'cinco',123}"
Fw_ValToExp_Mia(c) --> (C) Len: 35 "{{'hola','adios'},'dos','tres',123}"

Según se ve en el resultado, devuelve los valores de a que no existen en la misma posición de b, pudiendo ser los valores de cualquier tipo. Una posible variante sería que los valores pudieran estar en cualquier posición de b

[nageswaragunupudi]

FWH provides the function FW_ValToExp( uVal )
Where is the function Fw_ValToExp_Mia() from?
In what way it is different from the original FW_ValtoExp() function?

[paquitohm]

Here you are:

Code: Select all  Expand view  RUN

//------------------------------------------------------------------//
function FW_ValToExp_Mia( uVar )

   local cExp, cType := ValType( uVar )

   #Define TOLITERAL_(c) ("'"+ c+ "'" )

   do case
   case uVar == nil
      cExp  := ''
   case cType == 'A'
      cExp  := '{'
      if ! Empty( uVar )
         cExp     += FW_ValToExp_Mia( uVar[ 1 ] )
         AEval( uVar, { |x| cExp += ',' + FW_ValToExp_Mia( x ) }, 2 )
      endif
      cExp  += '}'
   case cType == 'C'
      cExp  := TOLITERAL_( uVar )
   case cType == 'D'
      cExp  := 'SToD("' + DToS( uVar ) + '")'
   case cType == 'T'
      // Al menos en Harbour nn.nn no existe el TToS() (Now year 2014)
      cExp  := TOLITERAL_("Datos Time no pueden ser grabados")
   case cType == 'O'
      cExp  := TOLITERAL_("Objetos no pueden ser grabados")
   otherwise
      cExp  := cValToChar( uVar )
   endcase

return cExp
*