ASP RSS Parser, Feed Reader

Depositphotos 4651719 s

Dëse Weekend sinn ech op mäi Laptop gekollt an hunn am Netz no webbaséierten RSS Feed Lieser gesicht. De Grond ass datt ech en asp RSS Feed Lieser wollt schreiwen deen de Feed affichéiert sou datt den Inhalt automatesch an eng HTML E-Mail geschrauft gëtt. Also fir Leit déi en Deel vun hirem E-Mail Newsletter fir hire Blog oder Publikatiouns Artikele reservéiere wëllen, kéint et einfach agebonne ginn. Well JavaScript den Inhalt net tatsächlech affichéiert bis de Client d'Skript lued an ausféiert, waren déi Onmass vu JavaScript RSS Browser net nëtzlech. Ech hunn e Server-Säit RSS Feed Lieser gebraucht.

Ech hunn ugefaang mat mengem eegenen Parser am ASP mam MSXML Objet ze schreiwen. Ech konnt ongeféier 75% vun RSS Feeds analyséieren, dëst ze maachen, awer e puer vun de lockeren XML Spezifikatiounen op RSS Feeds ware ganz schwéier ze programméieren. Dir kënnt et an Aktioun gesinn hei. Dir kënnt d'max Unzuel vun Artikelen (ni) weiderginn, d'Zuel vun de Personnagen ofgeschnidden um Wuert (nc), souwéi d'URL. Dir kënnt och den aktuellen Feed mat enger Debug Variabel gesinn hei.

Vill RSS Feeds si wierklech zimmlech 'dreckeg' a erfuerderen den Text an der XML Datei mat Strengmanipulatiounscode (ugh!). Natierlech si mir nach ëmmer an eiser RSS 'Jugend' um Netz, sou datt ech net iwwerrascht sinn. Liest méi iwwer RSS Spezifikatiounen hei.

Endlech sinn ech op e klenge Bijou gestouss. Ech hunn eng gratis ASP Klass fonnt fir erofzelueden. Et ass e bësse lues, awer ech hunn kee Feed fonnt deen et net konnt liesen. Ech hunn eng statesch Versioun hei an eng dynamesch Versioun hei.

E puer Notizen zum Skript. Ech hu missen e puer HTML Tags an de zréckgeschriwwenen Beschreiwungen läschen. Ech hunn dat gemaach mat enger klenger Botzfunktioun déi ech fonnt hunn:

Funktioun Ewechhuelen HTML (strText) Dim nPos1 Dim nPos2 nPos1 = InStr (strText, ">") Maacht wärend nPos1> 0 nPos2 = InStr (nPos1 + 1, strText, ">") Wann nPos2> 0 Da strText = Lénks (strText, nPos1 - 1) & Mid (strText, nPos2 + 1) Soss Ausgang Do End Wann nPos1 = InStr (strText, ">") Loop Ewechhuelen HTML = strText End Funktioun

Ech hunn och nach en anere klenge Code bäigefüügt: Heiansdo wëll ech méi oder manner eng Beschreiwung affichéieren. Wéi och ëmmer, wann ech d'Zuel vun de Personnagen einfach limitéieren, da kéint ech d'Beschreiwung an der Mëtt vum Wuert ofschneiden. Ech wëll dat net maachen!

Funktioun Cutoff (strText, intChars) dim intLength dim j intLength = len (strText) if intChars> intLength then for j = intChars to 0 step -1 if mid (strText, j, 1) = "" then exit for next if j> 0 dann strText = lénks (strText, j-1) & "..." soss strText = strText Enn wann Enn wann Cutoff = strText End Funktioun

(Ech hat e puer Probleemer mat mengem Code korrekt an dësem Entrée ze weisen ... loosst mech wëssen ob Dir Problemer mat enger vun dësen Funktiounen hutt!)

Ech hunn och e puer méi Tools am Netz bemierkt. Et gëtt e
.NET Versioun, vill PHP Versiounen, eng Tonn u JavaScript Versiounen.

Fir ofzeschléissen hoffen ech datt RSS Spezifikatioune weider verfeinert ginn an déi aktuell Feeds an alle Fäll mat XML Standards entspriechen. Gratis Uwendungen wéi TypePad, WordPress, asw mussen hir RSS Funktionalitéit verfeineren. Zousätzlech Blogs wéi MySpace, Xanga, LiveJournal, asw mussen hir RSS Funktionalitéit verbesseren. RSS ass mächteg ...Chris Baggott huet e flott Stéck op Email vs. RSS geschriwwen. Ech mengen d'Kombinatioun vun hirer Funktionalitéit kéint den Impakt vun deenen zwee erhéijen!

Wat denks du?

Dëse Site benotzt Akismet fir Spam ze reduzéieren. Léiert wéi Är Kommentarfaten veraarbecht ginn.