Perdido en Microsoft.XMLDOM

Julcar · #1 (**permalink**) 17/05/2010, 19:24

Hola gente, tengo un xml cuyo contenido expongo aqui:

Código XML:

Ver original<?xml version="1.0" encoding="utf-8" ?>
<layout doctype="strict" version="XHTML 1.0" encoding="utf-8" url="http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
  <head>
  &lt;head&gt;
    &lt;title&gt;...&lt;/title&gt;
    &lt;link rel="stylesheet" type="text/css" href="Skins/Main.css"/&gt;
    &lt;meta http-equiv="Content-Type" content="text/xml;charset=utf-8"/&gt;
    &lt;meta name="description" content=""/&gt;
    &lt;meta name="keywords" content=""/&gt;
  &lt;/head&gt;
  </head>
  <header>
  &lt;body&gt;
    &lt;div id="wrapper"&gt;
      &lt;div id="header"&gt;
        &lt;div id="logo"&gt;
        cabecera
        &lt;/div&gt;
        &lt;div id="menu"&gt;
        &lt;/div&gt;
      &lt;/div&gt;
  </header>
  <middle>
    &lt;div id="middle"&gt;
      &lt;div id="content"&gt;
      medio
      &lt;/div&gt;
      &lt;div id="sidebar"&gt;
      &lt;/div&gt;
      &lt;/div&gt;
  </middle>
  <footer>
    &lt;div id="footer"&gt;
    &lt;/div&gt;
  &lt;/body&gt;
  </footer>
</layout>

y dados mi pocos conocimientos del xml dom, no tengo mucha idea de como obtener el contenido de cada nodo e imprimirlo en el navegador, el objetivo es a base de ese xml imprimir html al cliente. Es decir un motor de plantillas. Gracias de antemano.

¿me podrian indicar qué pasos y objetos debo usar para hacer lo que quiero?

Adler · #2 (**permalink**) 18/05/2010, 15:35

Hola

Podría ser algo como esto

Código ASP:

Ver original<&#37;
   Dim xml, raiz
   Set xml = Server.CreateObject("Microsoft.XMLDOM")
   xml.async = False
   xml.load(Server.MapPath("doc.xml"))
   Set raiz = xml.documentElement
 
For i = 0 to (raiz.childNodes.length - 1)
Set hijo = raiz.childNodes(i)
if i = 0 Then
Response.Write hijo.childNodes(0).Text
else
Response.Write hijo.childNodes(0).Text
Response.Write hijo.childNodes(1).Text
Response.Write hijo.childNodes(2).Text
end if
Next 'i
%>

Suerte

Julcar · #3 (**permalink**) 18/05/2010, 16:15

Grande pibe

pero me da un error en la linea 13

Script error detected at line 13.
Source line: Response.Write hijo.childNodes(1).Text
Description: Se requiere un objeto: 'hijo.childNodes(...)'

Julcar · #4 (**permalink**) 18/05/2010, 16:18

En cambio en el servidor me da esto:

Microsoft VBScript runtime error '800a01a8'

Object required: '[object]'

/_____17_/julcar/Default.asp, line 14

Julcar · #5 (**permalink**) 18/05/2010, 21:40

Pues ahora surge otro problema, tengo el siguiente codigo ASP:

Código ASP:

Ver original<%
Class XMLParser
  Private sFile
  Private oXML
  
  Public Property Get LoadXML(file)
    sFile = file
  End Property
  
  Private Sub Class_Initialize
    Set oXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
  End Sub
 
  Public Sub OpenXML()
    oXML.Load(sFile)
    oXML.Async = False
  End Sub
 
  Public Function ReadNode(node)
    Dim sNode, vNode, n
 
    Set sNode = oXML.SelectSingleNode(node)
    for each n in sNode.childnodes
      vNode = sNode.text
    next
    ReadNode = vNode
  End Function
  
End Class
 
Class Layout
  Private oParser
  
  Private Sub Class_Initialize()
   Set oParser = New XMLParser
   oParser.LoadXML (Server.MapPath("Layout/Main.xml"))
   oParser.OpenXML
  End Sub
 
  Public Sub SetHead()
    Dim head
    
    head = oParser.ReadNode("layout/head")
    Response.Write head
  End Sub
  
  Public Sub SetHeader()
    Dim header
 
    header = oParser.ReadNode("layout/header")
    Response.Write header
  End Sub
 
  Public Sub SetMiddle()
    Dim middle
 
    header = oParser.ReadNode("layout/middle")
    Response.Write middle
  End Sub
  
  Public Sub SetFooter()
    Dim footer
 
    header = oParser.ReadNode("layout/footer")
    Response.Write footer
  End Sub
 
End Class
%>
 
<%
Dim oLYT
 
Set oLYT = New Layout
oLYT.SetDoctype
oLYT.SetHead
oLYT.SetHeader
oLYT.SetMiddle
oLYT.SetFooter
%>

Pero cuando ejecuto el codigo solo me trae los nodos head y header, y necesito que tambien traiga a middle y footer, y por mas que intento no lo hace.

¿Que puede estar pasando?

Adler · #6 (**permalink**) 19/05/2010, 05:31

Hola

El problema está en que has editado tu primer post

Suerte

Julcar · #7 (**permalink**) 19/05/2010, 08:23

Cita:

Iniciado por Adler

Hola

El problema está en que has editado tu primer post

Suerte

edité sí... pero mi problema está en el asp que publiqué en mi ultmimo post, usando el xml que esta en mi primer post solo me regresa los dos primeros nodos, esa es mi duda, deberia regresar todos 4, solo regresa los primeros dos.

SI puedes ayudarme en eso te estaré muy agradecido.

Adler · #8 (**permalink**) 19/05/2010, 10:45

Hola

¿Has jugado alguna vez a buscar a Wally?

Cita:

Public Sub SetMiddle()
Dim middle

header = oParser.ReadNode("layout/middle")
Response.Write middle
End Sub

Public Sub SetFooter()
Dim footer

header = oParser.ReadNode("layout/footer")
Response.Write footer
End Sub

Suerte

Julcar · #9 (**permalink**) 19/05/2010, 12:51

Esas cosas pasan cuando haces copy/paste deliberadamente y sin una taza de expreso

Igual ya lo resovi unificando una funcion y pasandole el valor individualmente, gracias, eternamente

Adler · #10 (**permalink**) 20/05/2010, 04:12

Cita:

Iniciado por Julcar

Esas cosas pasan cuando haces copy/paste deliberadamente y sin una taza de expreso

Igual ya lo resovi unificando una funcion y pasandole el valor individualmente, gracias, eternamente

No somos nadie sin un café bien cargado