<%@ Page Language="VB" %> <script runat="server"> Private Enum HTML title link description language pubDate NewLine End Enum Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim strInfoSite As String = "" Dim strInfoArticulo As String = "" Dim XmlReader As New System.Xml.XmlTextReader("http://localhost/MiRSS.xml") XmlReader.WhitespaceHandling = System.Xml.WhitespaceHandling.None XmlReader.MoveToContent() While XmlReader.Read If XmlReader.LocalName = "channel" And XmlReader.NodeType = System.Xml.XmlNodeType.Element Then Do Until XmlReader.LocalName = "item" XmlReader.Read() If XmlReader.LocalName = "title" And XmlReader.NodeType = System.Xml.XmlNodeType.Element Then XmlReader.Read() Preparar_Cadena(strInfoSite, XmlReader.Value, HTML.title) End If If XmlReader.LocalName = "link" And XmlReader.NodeType = System.Xml.XmlNodeType.Element Then XmlReader.Read() Preparar_Cadena(strInfoSite, XmlReader.Value, HTML.link) End If If XmlReader.LocalName = "description" And XmlReader.NodeType = System.Xml.XmlNodeType.Element Then XmlReader.Read() Preparar_Cadena(strInfoSite, XmlReader.Value, HTML.description) End If If XmlReader.LocalName = "language" And XmlReader.NodeType = System.Xml.XmlNodeType.Element Then XmlReader.Read() Preparar_Cadena(strInfoSite, XmlReader.Value, HTML.language) End If If XmlReader.NodeType = System.Xml.XmlNodeType.None Then Preparar_Cadena(strInfoSite, XmlReader.Value, HTML.NewLine) End If Loop End If If XmlReader.LocalName = "item" And XmlReader.NodeType = System.Xml.XmlNodeType.Element Then Do While XmlReader.Read If XmlReader.LocalName = "title" And XmlReader.NodeType = System.Xml.XmlNodeType.Element Then XmlReader.Read() Preparar_Cadena(strInfoArticulo, XmlReader.Value, HTML.title) End If If XmlReader.LocalName = "link" And XmlReader.NodeType = System.Xml.XmlNodeType.Element Then XmlReader.Read() Preparar_Cadena(strInfoArticulo, XmlReader.Value, HTML.link) End If If XmlReader.LocalName = "description" And XmlReader.NodeType = System.Xml.XmlNodeType.Element Then XmlReader.Read() Preparar_Cadena(strInfoArticulo, XmlReader.Value, HTML.description) End If If XmlReader.LocalName = "pubDate" And XmlReader.NodeType = System.Xml.XmlNodeType.Element Then XmlReader.Read() Preparar_Cadena(strInfoArticulo, XmlReader.Value, HTML.pubDate) End If If XmlReader.NodeType = System.Xml.XmlNodeType.None Then Preparar_Cadena(strInfoArticulo, XmlReader.Value, HTML.NewLine) End If Loop End If End While Label1.Text = strInfoSite & strInfoArticulo XmlReader.Close() End Sub Private Sub Preparar_Cadena(ByRef strCadena As String, ByVal strVariable As String, ByVal AccionHTML As HTML) Select Case AccionHTML Case HTML.title strCadena = strCadena & "<h1>" & strVariable & "</h1>" Case HTML.link strCadena = strCadena & "<a href='" & strVariable & "'>" & strVariable & "</a>" Case HTML.description strCadena = strCadena & "<h4>" & strVariable & "</h4>" Case HTML.language strCadena = strCadena & "<h5>" & strVariable & "</h5>" Case HTML.pubDate strCadena = strCadena & "<h5>" & strVariable & "</h5>" Case HTML.NewLine strCadena = strCadena & "<br>" End Select End Sub </script> <html> <head> <title>Lectura de Documentos RSS 2.0</title> </head> <body> <form runat="server" ID="Form1"> <asp:Button id="Button1" runat="server" Text="Visualizar el documento RSS" OnClick="Button1_Click" /> <br> <asp:Label id="Label1" runat="server" /> </form> </body> </html> RSS.ASPX |