objXML: Como limitar a exibição. For Each

[Eduardo Fonseca 0]

Pessoal, seguinte:

 

Estou com um script que faz a leitura das TAGs de um XML qualquer mas quando uso o For Each pra exibi-los gostaria de limitar aos três últimos itens do XML mas não sei coomo fazer. Segue código:

 

 

<%
TheFeed = "http://feeds.feedburner.com/CultPopShow?format=xml"



Set objXML = Server.CreateObject("Microsoft.XMLDOM")



objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load(TheFeed)
CellCount = 0

If (objXML.parseError.errorCode = 0) Then
  Set objRoot = objXML.documentElement
  If IsObject(objRoot) = False Then
     Response.Write "There was an error retrieving the news feed"
  Else
    Set objItems = objRoot.getElementsByTagName("item")
        If IsObject(objItems) = True Then
           For Each objItem in objItems
              On Error Resume Next

              TheTitle =  objItem.selectSingleNode("title").Text

              TheLink =  objItem.selectSingleNode("link").Text

              TheDesc =  objItem.selectSingleNode("description").Text

              TheDate =  objItem.selectSingleNode("pubDate").Text
%>

              <%Response.Write%> <a href="<%=TheLink%>"><b><%=TheTitle%></b></a><br />
              <%Response.Write%><%=TheDesc%><br />
<%
           Next

        End If

     Set objItems = Nothing



  End If

Else

   Response.Write "There was an error retrieving the news feed"

End If



Set objXML = Nothing

%>

[xanburzum 169]

dá uma olhada no forum k o Ted k ´

postou um artigo sobre isso , muito bom...

vai te ajudar

 

você tb pode pegar o valor do Nodo_inicial e contar todos os Nodos subtraindo pelo Nodo_Inicial,'Com isso iremos obter o valor do primeiro nó até o ultimo nó.

[jrcardozo 4]

eu faria algo como o script abaixo que adaptei do seu, mas dependendo do caso usaria o original e no for iria adicionando em um recordset desconectado ou em um array

<%
TheFeed = "http://feeds.feedburner.com/CultPopShow?format=xml"
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load(TheFeed)
CellCount = 0
If (objXML.parseError.errorCode = 0) Then
  Set objRoot = objXML.documentElement
  If IsObject(objRoot) = False Then
     Response.Write "There was an error retrieving the news feed"
  Else
    Set objItems = objRoot.getElementsByTagName("item")
            If IsObject(objItems) = True Then
                If objItems.length > 3 Then
                    For i = (objItems.length - 3) To (objItems.length - 1)
                        TheTitle =  objItems.Item(i).selectSingleNode("title").Text                        
                        TheLink =  objItems.Item(i).selectSingleNode("link").Text
                        TheDesc =  objItems.Item(i).selectSingleNode("description").Text
                        TheDate =  objItems.Item(i).selectSingleNode("pubDate").Text
                        Response.Write "<a href=""" & TheLink & """><b>" & TheTitle & "</b></a><br />" & TheDesc & "<br />"
                    Next
                End If
            End If
     Set objItems = Nothing
  End If
Else
    Response.Write "There was an error retrieving the news feed"
End If
Set objXML = Nothing
%>

[xanburzum 169]

tb, você pode jogar num array...

[Eduardo Fonseca 0]

vou testar e falo o que ocorreu! ;) valeu galera!

[xanburzum 169]

dependendo da situacaun até jogá-lo em um txt dá tb