GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Wx - Procedure WS_ReadXml
Wx - Procedure WS_ReadXml
Iniciado por adrianoboller, ago., 28 2015 8:34 PM - 1 resposta
Conecte-se…
adrianoboller
#1
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em agosto, 28 2015 - 8:34 PM
Procedure
WS_ReadXml
(
XML_Retorno is
string
)
arr
Xml_TagResult is
array of strings
busca01 is
string
=
"<Row>"
busca02 is
string
=
"</Row>"
xposicaoinicial is
int
=
0
Xposicaofinal is
int
=
0
X is
int
=
0
arr
Xml_Tag is
array of strings
Inicial is
int
=
PositionOccurrence
(
XML_Retorno
,
busca01
,
firstRank
,
FromBeginning
)
Final is
int
=
PositionOccurrence
(
XML_Retorno
,
busca02
,
lastRank
,
FromEnd
)
XML_Retorno
=
Middle
(
XML_Retorno
,
Inicial
,
(
Final
+
Length
(
busca02
)
) -
Inicial
)
XML_Retorno
=
"<Xml><Recorte><NoXml>"
+
XML_Retorno
+
"</NoXml></Recorte></Xml>"
n
Totalxml is
int
=
Length
(
XML_Retorno
)
LOOP
(
n
Totalxml
)
X
+
+
IF
xposicaoinicial
=
0
AND
Xposicaofinal
=
0
AND
XML_Retorno
[
[X]
] =
"<"
THEN
X
+
+
IF
XML_Retorno
[
[X]
] =
"/"
THEN
xposicaoinicial
=
X
+
1
END
END
IF
xposicaoinicial
>
0
AND
XML_Retorno
[
[X]
] =
">"
THEN
Xposicaofinal
=
X
END
IF
Xposicaofinal
>
0
AND
xposicaoinicial
>
0
THEN
stag is
string
=
Middle
(
XML_Retorno
,
xposicaoinicial
,
Xposicaofinal
-
xposicaoinicial
)
IF
stag
=
"NoXml"
THEN
BREAK
END
Add
(
arr
Xml_Tag
,
stag
)
Xposicaofinal
=
0
xposicaoinicial
=
0
END
END
XmlDoc is
XMLDocument
XmlDoc
=
XMLOpen
(
XML_Retorno
,
fromString
)
NoXml is
xmlNode
FOR EACH NoXml OF XmlDoc.Xml.Recorte on NoXml
FOR EACH
s
Tag OF
arr
Xml_Tag
Add
(
arr
Xml_TagResult
,
NoXml
..
ChildNode
[
s
Tag
]
)
END
END
RESULT
arr
Xml_TagResult
Denunciar
0
0
adrianoboller
#2
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em agosto, 28 2015 - 9:41 PM
Prezados,
segue alguns links:
http://help.windev.com/en-US/…
http://help.windev.com/en-US/…
http://help.windev.com/en-US/…
http://help.windev.com/en-US/…
Informações complementares, lembro pra se aterem aos retornos se estao vindo wm UTF-8, Ansi ou Unicode ai tem que converter se não vai aparecer codigo japones.... rsss...
[ ]´s
Adriano Boller
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto