PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e 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, set., 24 2017 4:39 AM - Sem resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em setembro, 24 2017 - 4:39 AM
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/