PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → 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
Débuté par BOLLER, 24 sep. 2017 04:39 - Aucune réponse
#1
Membre enregistré
3 657 messages
Popularité : +175 (223 votes)
Posté le 24 septembre 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/
→ Revenir à WINDEV Mobile 2024