XML - URGENTE!!!!Dividir xml en xmls más pequeños

   
Vista:

URGENTE!!!!Dividir xml en xmls más pequeños

Publicado por Javier (1 intervención) el 23/11/2009 12:46:39
Buenas,

¿Alguien sabe como dividir un xml en varios xmls más pequeños por una etiqueta de este? De forma automática claro XD

Saludos y gracias :-)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGENTE!!!!Dividir xml en xmls más pequeños

Publicado por El Lobo (1 intervención) el 06/09/2010 19:35:52
Dim xmlDoc As New Msxml2.DOMDocument40
xmlDoc.async = False
xmlDoc.resolveExternals = False
xmlDoc.loadXML ("<customer><first_name>Joe</first_name><last_name>Smith</last_name></customer>")
If (xmlDoc.parseError.errorCode <> 0) Then
Dim myErr
Set myErr = xmlDoc.parseError
MsgBox("You have error " & myErr.reason)
Else
MsgBox xmlDoc.xml
End If

'Seudocodigo
'=============================0
Set oNodos = xmlDoc.documentElement.childNodes

for Each oNodo in oNodos

Set oFichero = New Fichero( <newname>)

Call oFichero.write( oNodo.xml )
Call oFicero.Close

next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar