ValorTags ( Texto ; TagInicio ; TagFinal ; TipoResultado )

Returns value between specific TAGs from XML text

Be the first to rate this function Log in to vote

Jesus Sanchez - Show more from this author
dbFile Desarrollos
http://www.dbfile.es

Sample input:

Sample output:

009996

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/**
* =====================================
* #ValorTags ( Texto ; TagInicio ; TagFinal ; TipoResultado )
*
* DEVUELVE:
*		El valor dentro de la cadena de texto que hay entre el Tag inicial y
*		el Tag final, formateado dependiendo del tipo de resultado que
*		solicitamos.
*
* PARAMETROS:
*		Texto: Cadena de texto plano y/o XML.
*		TagInicio: Etiqueta inicial que indica el valor dentro del XML.
*		TagFinal: Etiqueta que indica el final del valor que buscamos.
*		TipoResultado: Tipo de dato que queremos:
*			T = Text
*			N = Number
*			D = Date ( en esta funcion devuelve formato DD/MM/YYYY )
*
* EJEMPLO:
*		#ValorTags ( "V_COD_AGE_CARGO::009996|V_COD_AGE_ORI::009996|V_ALBARAN::0999606742|D_FECHA::04/01/2020 00:00:00|V_COD_AGE_DES::000351" ; "V_COD_AGE_CARGO::" ; "|V_COD_AGE_ORI" ; "N" )
*		Resultado: 009996 como número.
*
*		#ValorTags ( "V_COD_AGE_CARGO::009996|V_COD_AGE_ORI::009996|V_ALBARAN::0999606742|D_FECHA::04/01/2020 00:00:00|V_COD_AGE_DES::000351" ; "|D_FECHA::" ; "|V_COD_AGE_DES::" ; "D" )
*		Resultado: 01/04/2020 
*			Nota: Devuelve el valor en formato DD/MM/AAAA
*
*
*
* DEPENDENCIA: Ninguna
*
* HISTORIA:
*		CREADO el 02/12/2019 por Jesus Sanchez [ dbFile Desarrollos].
* =====================================
*/



Let ( [

// Localizamos el TagInicial y TagFinal

~TagInicial = Position ( Texto ; TagInicio ; 1 ; 1 ) ;
~TagFinal = Position ( Texto ; TagFinal ; 1 ; 1 ) ;

//Calculamos la longitud de dichos TAGs

~LongitudTagInicial = Length ( TagInicio ) ;
~LongitudTagFinal = Length ( TagFinal ) ;


// Ahora quitamos todo excepto lo que está en el medio


~TextoSinTag = Replace ( Texto ; ~TagFinal ; 50000 ; "" ) ;
~TextoSinTag = Replace ( ~TextoSinTag ; 1 ; ( ~TagInicial + ~LongitudTagInicial - 1 ) ; "" ) ;
~TextoSinTag = Substitute ( ~TextoSinTag ; "|" ; "" ) ;


//  Tratamos la Fecha y la pasamos a formato FileMaker


~FechaOriginal = If ( TipoResultado = "Fecha" ; ~TextoSinTag ; "" ) ;
~FechaAislada = GetValue ( Substitute ( ~FechaOriginal ; " " ; "¶" ) ; 1 ) ;
~HoraAislada =  GetValue ( Substitute ( ~FechaOriginal ; " " ; "¶" ) ; 2 ) ;

~FechaParseada = Substitute ( ~FechaAislada ; "/" ; "¶" ) ;
~Dia = GetValue ( ~FechaParseada ; 2 ) ;
~Mes = GetValue ( ~FechaParseada ; 1 ) ;
~Anyo = GetValue ( ~FechaParseada ; 3 ) ;
// Si la fecha viene en formato Europeo o la queremos en formato SQL hay que cambiar los valores de GetValue

~ResultadoFecha = Timestamp ( Date ( ~Mes ; ~Dia ; ~Anyo ) ; ~HoraAislada )  ;


//  Si es un número sustituimos la coma de los decimales
~ResultadoNumero = If ( TipoResultado = "Numero" ; Substitute ( ~TextoSinTag ; "." ; "," ) ; ~TextoSinTag ) ;
~ResultadoNumero = Filter ( ~ResultadoNumero ; "1234567890," ) ;


// Resultado Texto
~ResultadoTexto = Substitute ( ~TextoSinTag ; ["¶" ; "_"] ; ["::" ; ""] ; ["=" ; ""] ) ;
~ResultadoTexto = If ( Left ( ~ResultadoTexto ; 1 ) = "_" ; Replace ( ~ResultadoTexto ; 1 ; 1 ; ""  ) ; ~ResultadoTexto ) ;
~ResultadoTexto = If ( Right ( ~ResultadoTexto ; 1 ) = "_" ; Replace ( ~ResultadoTexto ; Length ( ~ResultadoTexto ) ; 1 ; "" ) ; ~ResultadoTexto )

] ; 


Case (

TipoResultado = "T" ; ~ResultadoTexto ;
TipoResultado = "N" ; ~ResultadoNumero ;
TipoResultado = "D" ; ~ResultadoFecha ;
~TextoSinTag  )


 )

Return value in Text / Number or Data format between specific TAGs in a XML text.

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

ValorTags ( Texto ; TagInicio ; TagFinal ; TipoResultado )

Comments

Support this website.

Support this website.