RSS reader modul

følger lige med

er det ikke bare en xml parser?

spaceus, hvis det virker, så bare fortæl mig hvad jeg skal gøre :)

damn så I lige aben skifte skulder ;) nå men jeg kan da lige kigge på det

Imports System.Xml
Module Module1
    Sub Main()

        ' Create an isntance of XmlTextReader and call Read method to read  the(file)
        Dim reader As XmlTextReader = New XmlTextReader("C:\\rss.xml")

        While reader.EOF = False
            reader.Read()
            If reader.Name.ToString() = "title" Then
                Console.WriteLine("Title: " + reader.ReadString())
            End If
            If reader.Name.ToString() = "description" Then
                Console.WriteLine("description: " + reader.ReadString())
            End If
            If reader.Name.ToString() = "link" Then
                Console.WriteLine("link: " + reader.ReadString())
            End If

        End While

    End Sub
End Module

xml til test
<?xml version="1.0" encoding="ISO-8859-1" ?>
<list>
    <item>
        <title>ble</title>
        <link>www.her.dk</link>
        <description>det jo her</description>
    </item>
    <item>
        <title>ble</title>
        <link>www.her.dk</link>
        <description>det jo her</description>
    </item>
</list>

nå ja forresten hvis du vil ha dem i et objekt så lav et
Public Class FeedItem
    Public title As String
    Public description As String
    Public link As String

End Class

ala det der hvis du vil ha flere attributter med så find deres navn og fyld på
ex:
If reader.Name.ToString() = "title" Then
                feedObjekt.title=reader.ReadString()
End If

Hvilken abe skifter skulder :S

Enten er der noget galt med dit eksempel, eller også er jeg bare en klovn der ikke kan finde ud af at copy/paste, jeg har prøvet at sætte det ind i en Class, module, form1 men fejl ved alle, jeg har også prøvet at inkludere MS XML2.3

det skal ind i et module og xml'en skal ligge i c: og hedde rss.xml

som det er sat op der

Jeg har prøvet både modul og class modul, begge steder får jeg rødt i:

Dim reader As XmlTextReader = New XmlTextReader("C:\\rss.xml")
reader.Read()
End While (Hedder Wend?)
End Module


Og så brokker den sig over

Imports System.Xml : Invalid outsource procedure

lol, har jo nok brugt vb.net syntax

Kan du lave det om til VB6 :(

jeg har ikke lige så jeg kan teste vb6 pt. men kan du ikke bruge

Dim reader as New ActiveXObject("microsoft.XMLdom")
reader.load("c:\\rss.xml")
eller måske
Dim reader As New DOMDocument
og så en lykke af en slags til at løbe alle noder igennem..

Nej det virkede ikke rigtig, men jeg har fundet dette - vender tilbage når jeg har lavet en "RSS oversættelse":

Create an XML file similar to the following and save it as c:\customerdata.xml.
CustomerData.xml

<customerdata>
  <customer>
    <firstname>Frank</firstname>
    <lastname>Cuttengham</lastname>
    <address>123 Developer Lane</address>
    <city>Denver</city>
    <state>Colorado</state>
    <zip>90210</zip>
    <phone>433-3453</phone>
    <email>frankc@home.com</email>
  </customer>
  <customer>
    <firstname>Bob</firstname>
    <lastname>Michels</lastname>
    <address>544 Center St.</address>
    <city>Calgary</city>
    <state>Alberta</state>
    <zip>T2Z6S4</zip>
    <phone>345-7765</phone>
    <email>bob@hotmail.com</email>
  </customer>
</customerdata>

In Visual Basic create a new project and add a reference to MSXML3. On Form1 copy and paste this code and then run the project.
Form1

Private Sub Form_Load()
  Dim objDoc As MSXML2.DOMDocument40
  Dim objNodeList As MSXML2.IXMLDOMNodeList
  Dim objNode As MSXML2.IXMLDOMNode
       
  Set objDoc = New MSXML2.DOMDocument30
 
  If objDoc.Load("c:\customerdata.xml") Then
    If Not objDoc Is Nothing Then
      Set objNodeList = objDoc.selectNodes("customerdata/customer/firstname")
           
      If Not objNodeList Is Nothing Then
           
        'Loop though each node in the node list
        For Each objNode In objNodeList
          Debug.Print objNode.Text
        Next
      End If
    End If
  End If
End Sub

The two customer's names from the XML file will be listed in your debug window.

.

vi skal lige se løsningen