FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
Wx - Procedure WS_ReadXml
Wx - Procedure WS_ReadXml
Iniciado por adrianoboller, 28,ago. 2015 20:34 - 1 respuesta
Conéctese…
adrianoboller
#1
Miembro registrado
3.662 mensajes
Popularité : +175 (223 votes)
Publicado el 28,agosto 2015 - 20:34
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
Informar
0
0
adrianoboller
#2
Miembro registrado
3.662 mensajes
Popularité : +175 (223 votes)
Publicado el 28,agosto 2015 - 21:41
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
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto