Analyzátor RSS RSS, čtečka informačních kanálů

Depositphotos 4651719 s

Tento víkend jsem byl přilepený na svém notebooku a hledal na internetu webové čtečky RSS. Důvod je ten, že jsem chtěl napsat asp RSS feed reader, který by zobrazoval feed tak, aby mohl být obsah automaticky stažen do e-mailu HTML. Pro lidi, kteří si chtějí vyhradit část svého e-mailového zpravodaje pro své články v blogu nebo publikaci, by to mohlo být snadno začleněno. Vzhledem k tomu, že JavaScript ve skutečnosti nezobrazuje obsah, dokud se klient nenačte a neprovede skript, nepřeberné množství prohlížečů RSS RSS v jazyce JavaScript nebylo užitečné. Potřeboval jsem čtečku RSS kanálů na straně serveru.

Začal jsem psaním vlastního analyzátoru v ASP pomocí objektu MSXML. Dokázal jsem to analyzovat asi 75% RSS kanálů, ale některé volné specifikace XML na RSS kanálech se ukázaly jako velmi obtížně programovatelné. Můžete to vidět v akci zde. Můžete předat maximální počet položek (ni), počet znaků oříznutých u slova (nc) a také adresu URL. Můžete také zobrazit skutečný zdroj s proměnnou ladění zde.

Mnoho kanálů RSS je opravdu dost „špinavých“ a vyžaduje analýzu textu v souboru XML pomocí kódu pro manipulaci s řetězci (fuj!). Samozřejmě jsme stále v naší „mládí“ RSS na internetu, takže se nedivím. Přečtěte si více o specifikacích RSS zde.

Nakonec jsem narazil na malý klenot. Našel jsem bezplatnou třídu ASP ke stažení. Je to trochu pomalé, ale nenašel jsem zdroj, který by nebyl schopen přečíst. Mám zde statickou verzi a dynamickou verzi zde.

Pár poznámek ke scénáři. Potřeboval jsem v vrácených popisech vymazat některé značky HTML. Udělal jsem to s malou funkcí vyčištění, kterou jsem našel:

Funkce RemoveHTML (strText) Dim nPos1 Dim nPos2 nPos1 = InStr (strText, ">") Do While nPos1> 0 nPos2 = InStr (nPos1 + 1, strText, ">") If nPos2> 0 Then strText = Left (strText, nPos1 - 1) & Mid (strText, nPos2 + 1) Else Exit Do End If nPos1 = InStr (strText, ">") Loop RemoveHTML = strText End Function

Také jsem přidal další úhledný kousek kódu: Někdy možná budu chtít zobrazit víceméně popis. Pokud však jednoduše omezím počet znaků, mohl bych oříznout popis uprostřed slova. Nechci to dělat!

Funkce Cutoff (strText, intChars) dim intLength dim j intLength = len (strText) pokud intChars> intLength pak pro j = intChars na 0 krok -1, je-li mid (strText, j, 1) = "", pak ukončete další, pokud j> 0 then strText = left (strText, j-1) & "..." else strText = strText end if end if Cutoff = strText End Function

(Měl jsem problémy se správným zobrazením kódu v této položce ... dejte mi vědět, pokud máte problémy s některou z těchto funkcí!)

Také jsem si na internetu všiml několika dalších nástrojů. Tady je
. NET verze, mnoho verzí PHP, spousta verzí JavaScriptu.

Na závěr doufám, že specifikace RSS budou nadále zdokonalovány a skutečné kanály budou ve všech případech odpovídat standardům XML. Bezplatné aplikace jako TypePad, WordPress atd. Musí vylepšit své funkce RSS. Další blogy jako MySpace, Xanga, LiveJournal atd. Musí vylepšit své funkce RSS. RSS JE silný…Chris Baggott napsal pěkný článek na Email vs. RSS. Myslím, že kombinace jejich funkčnosti by mohla zvýšit dopad obou!

Co si myslíte?

Tyto stránky používají Akismet k omezení spamu. Zjistěte, jak jsou vaše údaje komentářů zpracovávány.