ASP RSS-анализатор, читач на информации

Depositphotos 4651719 с

Овој викенд бев залепен за мојот лаптоп што ја пребарував мрежата за читачи на RSS-мрежи кои се базираат на Интернет. Причината е што сакав да напишем читач на RSS RSS, кој ќе го прикажува доводот, така што содржината може автоматски да се избрише во HTML-пошта. Значи, за луѓето што сакаат да резервираат дел од својот билтен за е-пошта за своите написи за Блог или публикации, тој може лесно да се вметне. Бидејќи JavaScript всушност не ја прикажува содржината сè додека клиентот не ја вчита и не ја изврши скриптата, мноштвото прелистувачи на JavaScript RSS не беа корисни. Ми требаше читач на RSS-адреси од сервер.

Почнав со пишување на сопствен анализатор во ASP со користење на објектот MSXML. Бев во можност да анализирам околу 75% од RSS-мрежите со тоа, но некои од лабавите спецификации на XML на RSS-каналите се покажаа многу тешки за програмирање. Можете да го видите на дело овде. Може да го предадете максималниот број на ставки (ni), бројот на отсечени знаци со зборот (nc), како и URL-то. Можете исто така да ја видите вистинската информација со променлива за дебагирање овде.

Многу RSS-доводи се навистина „нечисти“ и бараат парсирање на текстот во XML-датотеката со код за манипулација со низа (уф!). Се разбира, ние сè уште сме во нашата младина на RSS на мрежата, така што не сум изненаден. Прочитајте повеќе за спецификациите на RSS овде.

Конечно, наидов на еден мал скапоцен камен. Најдов бесплатен час ASP за преземање. Малку е бавно, но не најдов информација што не беше во можност да ја прочита. Имам статичка верзија тука и динамична верзија тука.

Неколку белешки за сценариото. Требаше да расчистам некои HTML-ознаки во вратените описи. Јас го сторив тоа со мала функција за чистење што најдов:

Функција ОтстраниHTML (strText) Затемнето nPos1 Затемнето nPos2 nPos1 = InStr (strText, ">") Дали додека nPos1> 0 nPos2 = InStr (nPos1 + 1, strText, ">") Ако nPos2> 0 Потоа strText = Лево (strText, nPos) - 1) и средина (strText, nPos1 + 2) Друг излез Дали завршете ако nPos1 = InStr (strText, ">") Отстрани јамкаHTML = strText функција на крај

Јас исто така додадов уште еден уреден мал број на код: Понекогаш, можеби би сакал да прикажам повеќе или помалку опис. Меѓутоа, ако едноставно го ограничам бројот на знаци, тогаш би можел да го пресечам описот во средината на зборот. Не сакам да го сторам тоа!

Пресек на функции (strText, intChars) пригушен intLength пригушен j intLength = len (strText) ако intChars> intLength тогаш за j = intChars до 0 чекор -1 ако е среден (strText, j, 1) = "" потоа излезете за следното ако j> 0 тогаш strText = лево (strText, j-1) & "..." друго strText = strText крај ако е крај ако Cutoff = strText Крајна функција

(Имав некои проблеми со правилно прикажување на мојот код во овој запис… известете ме дали имате проблеми со која било од овие функции!)

Забележав уште неколку алатки и на мрежата. Има
. NET верзија, многу верзии на PHP, тон верзии на JavaScript.

Да заклучам, се надевам дека спецификациите на RSS продолжуваат да се рафинираат и вистинските извори се во согласност со XML стандардите во сите случаи. Бесплатните апликации како TypePad, WordPress, итн. Треба да ја усовршат нивната RSS функционалност. Дополнителни блогови како MySpace, Xanga, LiveJournal, итн. Треба да ја подобрат нивната RSS функционалност. RSS е моќенКрис Багот напиша убаво дело на е-пошта наспроти RSS. Мислам дека комбинирањето на нивната функционалност може да го зголеми влијанието на обете!

Што мислите?

Оваа страница користи Akismet за намалување на спам. Научете како се обработува вашиот коментар.