ICT-Hotlist Thema

Terug naar de ICT-Hotlist...

Toon creatiedatum van twitter tweets

Door Johan van Soest.

Gepubliceerd : 2014-01-29.

Laatst gewijzigd : 2017-05-02.

Tim Acheson stelt gratis ASPtwitter routines ter beschikking om authenticated tweets te tonen. Hier kunt U het downloaden : http://WWW.timacheson.com/Blog/2013/jun/asptwitter. Deze routines maken de creatiedatum van de tweet beschikbaar, maar tonen deze niet. Om de creatiedatum van een tweet correct vorm te geven heb ik de volgende functie geschreven, die ik publiceer na een vraag:

  Function funcConvertDate(strDate)
  	' function to retrieve only wanted bits of the strDate
	' (C)Copyright 2013 - 2024 by J.P.G. van Soest [www.vanSoest.it]
	' input string containing a date format e.g. "Tue Jul 16 08:13:59 +0000 2013"
	' Output "16 Jul 2013"
	funcConvertDate = Mid(strDate,9,3) & Mid(strDate,4,5) & Right(strDate,4)
  End Function

Deze functie kunt U als volgt aanroepen in Uw ASP pagina:

Tweet date: <%= funcConvertDate(oTweet.created_at) %>

Wijzig de ASPtwitter bibliotheek om https links te tonen.

Wijzig de Pattern code in de functie URLsBecomeLinks zodat deze lijkt op de onderstaande code.

  Function URLsBecomeLinks(sText)
	'  Wrap URLs in text with HTML link anchor tags.
	Dim objRegExp
	Set objRegExp = New RegExp
' 	objRegExp.Pattern = "(http://[^\s<]*)"                  ' *** Original did not do https://
	objRegExp.Pattern = "(https?://[^\s<]*)"		' *** changed 11-05-2015 Johan van Soest
	objRegExp.Global = True
	objRegExp.ignorecase = True
	UrlsBecomeLinks = "" & objRegExp.Replace(sText, "<a href=""$1"" target=""_blank"">$1</a>")
	Set objRegExp = Nothing
  End Function

U mag stemmen over dit artikel:

Scripts en programmeervoorbeelden disclaimer

Tenzij anders vermeld, zijn de scriptcode en programmeervoorbeelden auteursrechtelijk beschermde (copyright) freeware. U mag deze wijzigen, zolang een verwijzing naar de oorspronkelijke code en een hyperlink naar de bronpagina is opgenomen in de gewijzigde code en documentatie. Het is echter niet toegestaan om (kopieën van) de scripts en programmeervoorbeelden te publiceren op uw eigen site, blog, vlog, of te distribueren op papier of een andere drager, zonder voorafgaande schriftelijke toestemming.
Bij veel van de technieken gebruikt in deze scripts, met inbegrip van maar niet beperkt tot register-wijzigen of wijzigingen aan systeembestanden of instellingen, bestaat een risico dat een werkend besturingssysteem onbruikbaar wordt en gegevens verloren kunnen raken. Zorg ervoor dat U gecontroleerd heeft dat U beschikt over volledige back-ups en de bijbehorende herstelsoftware voordat U deze scripts of programmavoorbeelden gebruikt. Het gebruik van deze scripts en programmeervoorbeelden is volledig Uw eigen risico. Alle aansprakelijkheidsclaims tegen de auteur met betrekking tot materiële of niet-materiële verliezen als gevolg van het gebruik, misbruik of niet-gebruik van de verstrekte informatie of het gebruik van onjuiste of onvolledige informatie, zijn uitgesloten. Alle inhoud is onderhevig aan verandering en geleverd zonder verplichting.