Hola amigos.
Tengo una opción pero no la se usar bien a la mejor hasta me ayudan a lo que necesito. con ASP leo un xml así:
class XmlCatalog
private m_xmldoc
private sub Class_Initialize()
set m_xmldoc = createobject("Microsoft.XmlDom")
end sub
private sub Class_Terminate()
set m_xmldoc = nothing
end sub
'gets or sets the path to the xml movie catalog database
public XmlDatabasePath
'renders the movie catalog
public sub RenderCatalog()
m_xmldoc.load XmlDatabasePath
Cont = 0
dim xnodelist, xnode
xpath = "/NewsML/NewsItem/NewsComponent/NewsLines"
set xnodelist = m_xmldoc.documentElement.selectnodes(xpath)
for each xnode in xnodelist
Head = xnode.selectsinglenode("HeadLine").text
DateL = xnode.selectsinglenode("DateLine").text
Copy = xnode.selectsinglenode("CopyrightLine").text
Slug = xnode.selectsinglenode("SlugLine").text
next
ipath = "/NewsML/NewsItem/NewsComponent/NewsLines"
bpath = "/NewsML/NewsItem/NewsComponent/NewsComponent/ContentItem/DataContent"
set bnodelist = m_xmldoc.documentElement.selectnodes(bpath)
Response.Write("<tr><td width=""5""><img src=""./imgs/pixel_transparente.gif"" width=""5"" height=""5""/></td>")
Response.Write("<td width=""140"" valign=""top""><img src=""./imgs/foto_fut_1.jpg"" width=""140"" height=""140"" /></td>")
Response.Write("<td width=""5""><img src=""./imgs/pixel_transparente.gif"" width=""5"" height=""5"" /></td>")
Response.Write("<td width=""266""><p class=""nota_ppal_Tit"">" & Head&"<br /><br /></p>")
for each bnode in bnodelist
Parrafo = bnode.selectsinglenode("p").text
Response.Write("<p class=""separacion"">"&Parrafo& "</p>")
Response.Write("<br><br>")
next
Response.Write("</td></tr>")
set bnodelist = nothing
end sub
public sub RenderCatalog2()
m_xmldoc.load XmlDatabasePath
Cont = 0
dim xnodelist, xnode
xpath = "/NewsML/NewsItem/NewsComponent/NewsLines"
set xnodelist = m_xmldoc.documentElement.selectnodes(xpath)
for each xnode in xnodelist
Head = xnode.selectsinglenode("HeadLine").text
DateL = xnode.selectsinglenode("DateLine").text
Copy = xnode.selectsinglenode("CopyrightLine").text
Slug = xnode.selectsinglenode("SlugLine").text
next
Response.Write("<tr>")
Response.Write("<td valign=""top""><img src=""./imgs/bullet_conVerde.jpg"" width=""14"" height=""13"" /></td>")
Response.Write("<td><span class=""nota_ppal_Tit"">")
Response.Write(Head)
Response.Write("</span></td>")
Response.Write("</tr>")
set xnodelist = nothing
end sub
public sub RenderCatalog3()
m_xmldoc.load XmlDatabasePath
Cont = 0
dim xnodelist, xnode
xpath = "/NewsML/NewsItem/NewsComponent/NewsLines"
set xnodelist = m_xmldoc.documentElement.selectnodes(xpath)
for each xnode in xnodelist
Head = xnode.selectsinglenode("HeadLine").text
DateL = xnode.selectsinglenode("DateLine").text
Copy = xnode.selectsinglenode("CopyrightLine").text
Slug = xnode.selectsinglenode("SlugLine").text
next
Response.Write(Head)
Response.Write("</span><br />")
bpath = "/NewsML/NewsItem/NewsComponent/NewsComponent/ContentItem/DataContent"
set bnodelist = m_xmldoc.documentElement.selectnodes(bpath)
for each bnode in bnodelist
Parrafo = bnode.selectsinglenode("p").text
Response.Write(parrafo)
Response.Write("<br><br>")
next
set bnodelist = nothing
end sub
end class
El problema es que no se como leer cuando se me presenta esto: (por ejemplo lo archvos de imagenes). si me pueden ayudar se los agradeceria mucho:
<?xml version="1.0" encoding="iso-8859-1" ?>
- <NewsML>
<Catalog Href="" />
- <NewsEnvelope>
<DateAndTime>20060222T172305Z</DateAndTime>
</NewsEnvelope>
- <NewsItem>
- <Identification>
- <NewsIdentifier>
<ProviderId>afp.com</ProviderId>
<DateId>20060222</DateId>
<NewsItemId>060222172258.0prtc24c</NewsItemId>
<RevisionId PreviousRevision="0" Update="N">1</RevisionId>
<PublicIdentifier>urn:newsml:afp.com:20060222:0602 22172258.0prtc24c:1</PublicIdentifier>
</NewsIdentifier>
<NameLabel>Fbl-Mundial-2006-GER</NameLabel>
</Identification>
- <NewsManagement>
<NewsItemType FormalName="News" />
<FirstCreated>20060222T172258Z</FirstCreated>
<ThisRevisionCreated>20060222T172258Z</ThisRevisionCreated>
<Status FormalName="Usable" />
</NewsManagement>
- <NewsComponent>
+ <NewsLines>
<HeadLine>La FIFA dice que el 15 de mayo es el tope para las listas de 23 del Mundial</HeadLine>
<DateLine>PARIS (AFP)</DateLine>
<CopyrightLine>© 2006 AFP</CopyrightLine>
<SlugLine>Fbl-Mundial-2006-GER</SlugLine>
</NewsLines>
- <AdministrativeMetadata>
- <Provider>
<Party FormalName="AFP" />
</Provider>
</AdministrativeMetadata>
- <DescriptiveMetadata>
<Language FormalName="es" />
<OfInterestTo FormalName="mmd--espanol--periodico--mundial2006" />
</DescriptiveMetadata>
- <NewsComponent>
- <ContentItem>
<MediaType FormalName="Text" />
<Format FormalName="bcNITF2.5" />
- <DataContent>
- <media media-type="image" style="leftSide">
<media-reference mime-type="" data-location="#photo0" />
</media>
<p>La fecha límite para que los 32 países clasificados para el Mundial de Alemania den las listas definitivas de sus 23 seleccionados sigue fijada para el 15 de mayo, a pesar de la petición informal de varios equipos, anunció este miércoles la Federación Internacional de Fútbol (FIFA).</p>
</DataContent>
</ContentItem>
</NewsComponent>
- <NewsComponent Duid="photo0">
- <NewsLines>
<HeadLine>Selección de Alemania, el país anfitrión</HeadLine>
</NewsLines>
- <AdministrativeMetadata>
- <Provider>
<Party FormalName="AFP" />
</Provider>
- <Creator>
<Party FormalName="Patrik Stollarz" />
</Creator>
</AdministrativeMetadata>
- <NewsComponent>
<Role FormalName="Caption" />
- <ContentItem>
<MediaType FormalName="Text" />
<Format FormalName="bcNITF2.5" />
- <DataContent>
<p>(ARCHIVO) Imagen de archivo de la selección de fútbol de Alemania, en un partido contra México por la Copa de Confederaciones, el 29 de junio de 2005 en Leipzig.</p>
</DataContent>
</ContentItem>
</NewsComponent>
- <NewsComponent>
<Role FormalName="Thumbnail" />
- <ContentItem Href="SGE.NZK55.220206172253.photo00.thumbnail.def ault-110x74.jpg">
<MediaType FormalName="Photo" />
- <Characteristics>
<Property FormalName="Width" Value="110" />
<Property FormalName="Height" Value="74" />
</Characteristics>
</ContentItem>
</NewsComponent>
- <NewsComponent>
<Role FormalName="Quicklook" />
- <ContentItem Href="SGE.NZK55.220206172253.photo00.quicklook.def ault-245x165.jpg">
<MediaType FormalName="Photo" />
- <Characteristics>
<Property FormalName="Width" Value="245" />
<Property FormalName="Height" Value="165" />
</Characteristics>
</ContentItem>
</NewsComponent>
- <NewsComponent>
<Role FormalName="Preview" />
- <ContentItem Href="SGE.NZK55.220206172253.photo00.photo.default-384x260.jpg">
<MediaType FormalName="Photo" />
- <Characteristics>
<Property FormalName="Width" Value="384" />
<Property FormalName="Height" Value="260" />
</Characteristics>
</ContentItem>
</NewsComponent>
</NewsComponent>
</NewsComponent>
</NewsItem>
</NewsML>