PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV Mobile 2024 → WX - Usando o Position Ocurrence com o Middle para localizar uma informação em uma string
WX - Usando o Position Ocurrence com o Middle para localizar uma informação em uma string
Iniciado por BOLLER, 24,sep. 2017 04:39 - No hay respuesta
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 24,septiembre 2017 - 04:39
Procedure Busca_Tag_Xml(docXml is string,Tag is string )

PosicaoFinal01 is int = 0

PosicaoInicial01 is int = 0

Valor is string = ""

PosicaoInicial01 = PositionOccurrence(docXml, "<"+Tag+">",firstRank,IgnoreCase) + Length(Tag) + 2

PosicaoFinal01 = PositionOccurrence(docXml, "</"+Tag+">",firstRank,IgnoreCase)

IF PosicaoInicial01 < PosicaoFinal01 THEN

Valor = Middle(docXml,PosicaoInicial01,PosicaoFinal01 - PosicaoInicial01)

END

RESULT(Valor)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/