PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV Mobile 2024 → Search First Tag Value - Busca Primeiro Valor da Tag
Search First Tag Value - Busca Primeiro Valor da Tag
Débuté par Boller, 24 nov. 2014 12:20 - 2 réponses
#1
Membre enregistré
3 742 messages
Posté le 24 novembre 2014 - 12:20
Procedure WS_BuscaPrimeiroValorTag(LOCAL XML, LOCAL TAGini, LOCAL TAGfim)

posini, posfim, tamanho is int = 0
resultado is string = ""

//IF PositionOccurrence(TAGfim,"/",firstRank,FromEnd) = 0 THEN
//Info("Tag Final não possui barra /, verifique...",TAGfim)
//END

IF XML <> "" AND TAGini <> "" AND TAGfim <> "" THEN
tamanho = Length(TAGini)
posini = PositionOccurrence(XML,TAGini,firstRank,FromEnd) + tamanho
posfim = PositionOccurrence(XML,TAGfim,firstRank,FromEnd)
resultado = Clip(Upper(Middle(XML,posini,posfim-posini)))
END

RESULT(resultado)
#2
Membre enregistré
3 742 messages
Posté le 24 novembre 2014 - 12:21
Procedure WS_BuscaProximoValorTag(LOCAL XML, LOCAL TAGini, LOCAL TAGfim)

posini, posfim, tamanho is int = 0
resultado is string = ""

//IF PositionOccurrence(TAGfim,"/",firstRank,FromEnd) = 0 THEN
//Info("Tag Final não possui barra /, verifique...",TAGfim)
//END

IF XML <> "" AND TAGini <> "" AND TAGfim <> "" THEN
tamanho = Length(TAGini)
posini = PositionOccurrence(XML,TAGini,nextRank,FromEnd) + tamanho
posfim = PositionOccurrence(XML,TAGfim,nextRank,FromEnd)
resultado = Clip(Upper(Middle(XML,posini,posfim-posini)))
END

RESULT(resultado)
#3
Membre enregistré
3 742 messages
Posté le 24 novembre 2014 - 12:21
Procedure WS_BuscaUltimoValorTag(LOCAL XML, LOCAL TAGini, LOCAL TAGfim)

posini, posfim, tamanho is int = 0
resultado is string = ""

//IF PositionOccurrence(TAGfim,"/",firstRank,FromEnd) = 0 THEN
//Info("Tag Final não possui barra /, verifique...",TAGfim)
//END

IF XML <> "" AND TAGini <> "" AND TAGfim <> "" THEN
tamanho = Length(TAGini)
posini = PositionOccurrence(XML,TAGini,lastRank,FromEnd) + tamanho
posfim = PositionOccurrence(XML,TAGfim,lastRank,FromEnd)
resultado = Clip(Upper(Middle(XML,posini,posfim-posini)))
END

RESULT(resultado)
→ Revenir à WINDEV Mobile 2024