Twitter-Feed

Nikx · 7. Mai 2013, 00:11

Hey

Änderungen:

Da ich es in meinem aktuellen Projekt brauche hab ich hier mal eine Klasse geschrieben um alle oder eine vorgegebene Anzahl an Tweets
eines Users auszulesen. Zurückgegeben wird ein Dictionary(Of Date, String). String enthält dabei den Inhalt des Tweets, Date eben das
Datum.

Hier die entsprechende Klasse:

Spoiler anzeigen

VB.NET-Quellcode

Option Strict On
Imports System.Net
Public Class TwitterFeed
Private User As String = ""
Private API As String = "http://api.twitter.com/1/statuses/user_timeline.rss?screen_name="
Sub New(ByVal Name As String)
User = Name
API = API & User
End Sub
Public Function GetFeed(Optional ByVal TweetQuantity As Integer = 0) As Dictionary(Of Date, String)
Dim TweetDir As New Dictionary(Of Date, String)
Dim Web As New WebClient
Dim XMLRead As New Xml.XmlDocument
XMLRead.LoadXml(Web.DownloadString(New Uri(API)))
Dim TweetList As New List(Of String)
Dim DateList As New List(Of Date)
Dim CountItemNodes As Integer = 0
For Each Node As Xml.XmlNode In XMLRead.SelectNodes("rss/channel/item")
CountItemNodes = CountItemNodes + 1
Next
If TweetQuantity > CountItemNodes Then
Throw New Exception("More Tweets requested then available.")
End If
If Not TweetQuantity > 0 Then
For Each Node As Xml.XmlNode In XMLRead.SelectNodes("rss/channel/item/description")
TweetList.Add(Node.InnerText)
Next
For Each Node As Xml.XmlNode In XMLRead.SelectNodes("rss/channel/item/pubDate")
DateList.Add(Date.Parse(Node.InnerText))
Next
ElseIf TweetQuantity > 0 AndAlso TweetQuantity <= 20 Then
Dim CountTweets As Integer = 0
Dim COuntDates As Integer = 0
For Each Node As Xml.XmlNode In XMLRead.SelectNodes("rss/channel/item/description")
If CountTweets = TweetQuantity Then Exit For
TweetList.Add(Node.InnerText)
CountTweets = CountTweets + 1
Next
For Each Node As Xml.XmlNode In XMLRead.SelectNodes("rss/channel/item/pubDate")
If COuntDates = TweetQuantity Then Exit For
DateList.Add(Date.Parse(Node.InnerText))
COuntDates = COuntDates + 1
Next
End If
If Not TweetList.Count = DateList.Count Then Throw New Exception("Error while getting requested tweets.") 'Kein besserer Fehler eingefallen :D
For Counter As Integer = 0 To TweetList.Count - 1
TweetDir.Add(DateList(Counter), TweetList(Counter))
Next
Return TweetDir
End Function
End Class

Bei der Nutzung kann man das Dictionary einfach per For-Schleife
durchlaufen und dabei Keys und Values auslesen

Das ganze natürlich Option Strict On und hoffentlich etwas verständlich

Grüße,
Nikx

hal2000 · 7. Mai 2013, 00:54

Sollte nicht besser das Datum der Key sein? Jemand könnte zweimal denselben Text posten, was deinen Code zum Absturz bringt.

Außerdem wäre der Code mit LINQ to XML (wahrscheinlich) sehr viel kürzer.

Nikx · 7. Mai 2013, 14:05

@hal2000:

Danke für den Tipp

Ich habe das ganze nun mal dementsprechend geändert.

Grüße

Samus Aran · 7. Mai 2013, 15:33

Das ist für die alte API v1, die am 11. Juni abgeschaltet wird. Nette Idee, bringt aber nicht mehr wirklich was.
Und der 11. Juni ist bereits das aufgeschobene Datum, eigentlich wäre sie heute schon abgeschaltet worden.

Money Quote: "Authenticated & unauthenticated requests to api.twitter.com/1/* will receive HTTP 410 Gone."

Nikx · 7. Mai 2013, 15:39

@Samus Aran: Oh. Klingt ja nicht so gut.

Gibts dafür ne neue API?
Bzw: Gibts überhaupt noch nen RSS-Feed? Dann baue ich das gern um

https://api.twitter.com/1.1/search/tweets.json bekomme ich im Moment nicht hin, ich versuch mich weiter dran

Grüße

Samus Aran · 7. Mai 2013, 15:43

Soweit ich weiß, ist der einzige Weg der umständliche Weg über OAuth. Aber da hast du wieder Libraries wie TweetSharp, die dir das abnehmen.

Nikx · 7. Mai 2013, 15:50

Dann lasse ich das mal so hier stehen. Bis Juni werd ich schon ne Lösung gefunden haben

hal2000 · 8. Mai 2013, 22:13

Ich denke mal dass dein Problem nicht beim https liegt sondern beim JSON. Ab .NET 4(.5?) gibts nen (De-)Serialisierer dafür: msdn.microsoft.com/en-us/library/bb410770.aspx

Lukas · 8. Mai 2013, 22:20

@hal2000: Der ist schon seit 3.5 verfügbar ;)

Jan5999 · 10. Mai 2013, 09:59

Hab ne Frage kann man sowas auch mit Facebook machen ???

Gather · 10. Mai 2013, 10:02

Wenn du dir die Facebook API runterladest, und dich mit dieser vertraut machst, bzw. dich einließt dann ja.

Netlogger · 10. Mai 2013, 10:05

@Jan5999

Hab da was gefunden evtl. hilft es Dir

frank-it-beratung.com/blog/201…sual-basic-oder-c-teil-1/

MFG Netlogger

Jan5999 · 10. Mai 2013, 10:07

@Netlogger

Danke werde mir das mal angucken

Mfg Jan

Gather · 10. Mai 2013, 10:07

Das kannst du dir auch gleich anschaun...
microsoft.com/germany/msdn/akt…005dasentwicklerbuch.aspx

Netlogger · 10. Mai 2013, 10:11

@Gather

Habs mir auch mal runtergeladen -- man lernt nie aus :thumbsup:

Jan5999 · 10. Mai 2013, 10:12

@Gather

Mich interessiert das weil manche anwendungen z.B. Jetzt auf Facebook teilen-button haben und ich einfach nur wissen möchte wie es funktioniert

TheFlash · 10. Mai 2013, 13:14

Könntest du mir sagen welchen Code ich brauche um
einen Twitter Account zu verifizieren? und wie ich die Tweets dann anzeige?

Nikx · 12. Mai 2013, 15:52

Vorsicht, Unwissen folgt:

Twitter verifiziert soweit ich weißt Anwendungen, die du dort registrieren musst.
Der User meldet sich also an und erhält einen Code, den er der Anwendung mitteilt.
Diese kann den Code nun nutzen um Zugriff zu erhalten. Vermutlich stimmt hiervon
nur die Hälfte, aber ich denke das beschreibt den Vorgang ganz gut.

Google: "Twitter oAuth .Net"

Grüße

Nikx · 12. Mai 2013, 23:26

Wäre es eine akzeptable Alternative den Feed aus dem Source-Code in eine XML
zu schreiben, die dem selben Schema entspricht, und die dann mit der Funktion hier zu
parsen? @Samus Aran:

Grüße

Twitter-Feed

Twitter-Feed

VB.NET-Quellcode

Ähnliche Themen

6 Benutzer haben hier geschrieben