ASP RSS-parser, feedlêzer

4651719 s

Dit wykein bin ik lime op myn laptop yn it net sykjen nei webbasearre RSS-feedlêzers. De reden is dat ik in asp RSS-feedlêzer woe skriuwe dy't de feed werjaan soe sadat de ynhâld automatysk koe wurde skrast yn in HTML-e-post. Dus foar minsken dy't in diel fan har e-postnijsbrief reservearje wolle foar har artikels oer blog as publikaasje, koe it maklik wurde opnommen. Om't JavaScript de ynhâld eins net werjout oant de client it skript laden en útfiert, wiene de oerfloed fan JavaScript RSS-browsers net nuttich. Ik hie in RSS-feedlêzer op server nedich.

Ik begon mei it skriuwen fan myn eigen parser yn ASP mei it MSXML-objekt. Ik koe sawat 75% fan RSS-feeds dit analysearje, dit dwaan, mar guon fan 'e losse XML-spesifikaasjes op RSS-feeds wiene heul lestich te programmearjen. Jo kinne it yn aksje sjen hjir, Jo kinne it maksimale oantal items (ni) trochjaan, it oantal tekens dat by it wurd (nc) is, lykas de URL. Jo kinne ek de eigentlike feed sjen mei in debugfariabele hjir.

In soad RSS-feeds binne echt frij 'smoarch' en moatte de tekst yn it XML-bestân analysearje mei stringmanipulaasjekoade (ugh!). Fansels sitte wy noch yn ús RSS 'jeugd' op it net, dat ik bin net ferrast. Lês mear oer RSS-spesifikaasjes hjir.

Uteinlik kaam ik in lyts juwieltsje tsjin. Ik fûn in fergese ASP-klasse om te downloaden. It is in bytsje stadich, mar ik haw gjin feed fûn dat it net koe lêze. Ik haw hjir in statyske ferzje en hjir in dynamyske ferzje.

In pear oantekeningen oer it skript. Ik moast wat HTML-tags wiskje yn 'e werom beskreaune beskriuwingen. Ik die dat mei in lytse opromfunksje dy't ik fûn:

Funksje Ferwiderje HTML (strText) Dim nPos1 Dim nPos2 nPos1 = InStr (strText, ">") Doch Wylst nPos1> 0 nPos2 = InStr (nPos1 + 1, strText, ">") As nPos2> 0 Dan strText = Links (strText, nPos1 - 1) & Mid (strText, nPos2 + 1) Oare ôfslach Do ein as nPos1 = InStr (strText, ">") Lus Ferwiderje HTML = strText Einfunksje

Ik haw ek noch in kreas lyts bytsje koade tafoege: Somtiden wol ik min of mear in beskriuwing werjaan. As ik lykwols gewoan it oantal karakters beheine, dan kin ik de beskriuwing yn 'e midden fan it wurd ôfsnije. Ik wol dat net dwaan!

Funksje Cutoff (strText, intChars) dim intLength dim j intLength = len (strText) as intChars> intLength dan foar j = intChars nei 0 stap -1 as mid (strText, j, 1) = "" dan útgean foar folgjende as j> 0 dan strText = lofts (strText, j-1) & "..." oars strText = strText einigje as ein as Cutoff = strText Einfunksje

(Ik hie wat problemen mei it werjaan fan myn koade yn dizze yngong ... lit my witte as jo problemen hawwe mei ien fan dizze funksjes!)

Ik haw ek in soad mear ark op it net opmurken. Dêr is in
.NET ferzje, in protte PHP-ferzjes, in ton JavaScript-ferzjes.

Ta beslút hoopje ik dat RSS-spesifikaasjes wurde ferfine en de feitlike feeds yn alle gefallen oan XML-standerts foldogge. Fergese applikaasjes lykas TypePad, WordPress, ensfh. Moatte har RSS-funksjonaliteit ferbetterje. Ekstra blogs lykas MySpace, Xanga, LiveJournal, ensfh. Moatte har RSS-funksjonaliteit ferbetterje. RSS IS krêftich ...Chris Baggott skreau in moai stik oer E-post tsjin RSS. Ik tink dat it kombinearjen fan har funksjonaliteit de ynfloed fan beide koe ferheegje!

Wat tinksto?

Dizze side brûkt Akismet om spam te ferleegjen. Learje hoe't jo kommentaargegevens ferwurke wurde.