ASP RSS Parser, Хонандаи канал

Depositphotos 4651719 с

Дар ин рӯзҳои истироҳат ман ба ноутбукам часпида шуда, дар ҷустуҷӯи шабака барои хонандагони RSS дар вебсайти интернетӣ ҷустуҷӯ кардам. Сабаб дар он аст, ки ман мехостам як хонандаи asp RSS нависам, ки он наворро нишон диҳад, то мундариҷа ба таври худкор ба почтаи электронии HTML дохил карда шавад. Ҳамин тавр, барои одамоне, ки мехоҳанд як қисми ахбори почтаи электронии худро барои мақолаҳои блог ё нашрияашон банд кунанд, онро ба осонӣ дохил кардан мумкин аст. Азбаски JavaScript воқеан мундариҷаро намоиш намедиҳад, то вақте ки муштарӣ скриптро бор карда иҷро накунад, фаровонии браузерҳои JavaScript RSS муфид набуданд. Ба ман як хониши RSS хониши сервер лозим буд.

Ман бо навиштани таҳлилгари худ дар ASP бо истифода аз объекти MSXML оғоз кардам. Ман тавонистам тақрибан 75% каналҳои RSS-ро таҳлил кунам, аммо баъзе аз мушаххасоти фуҷури XML дар наворҳои RSS барномарезӣ хеле душвор буд. Шумо инро дар амал дида метавонед Ин ҷо. Шумо метавонед миқдори максималии ашёро (ni), миқдори аломатҳои дар калима (nc) буридашуда ва инчунин URL -ро гузоред. Шумо инчунин метавонед хўроки воқеиро бо тағирёбанда ислоҳ кунед Ин ҷо.

Бисёре аз лентаҳои RSS воқеан "ифлос" ҳастанд ва таҳлили матнро дар файли XML бо рамзи идоракунии сатр (ugh!) Талаб мекунанд. Албатта, мо ҳоло ҳам дар 'ҷавонии' RSS дар шабака ҳастем, то ҳайрон нашавам. Муфассал дар бораи мушаххасоти RSS Ин ҷо.

Ниҳоят, ман бо як гавҳари хурд рӯ ба рӯ шудам. Ман як синфи ройгони ASP барои зеркашӣ ёфтам. Ин каме оҳиста аст, аммо ман хӯроке наёфтам, ки онро хонда натавонист. Ман нусхаи статикӣ дар ин ҷо ва версияи динамикӣ дар ин ҷо дорам.

Як ҷуфт дар сенария қайд мекунад. Ба ман лозим омад, ки дар тавсифи баргашта баъзе барчаспҳои HTML-ро тоза кунам. Ман инро бо як функсияи каме тоза кардам, ки ёфтам:

Функсияи 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) Баромади дигар Оё хотима меёбад, агар nPos1 = InStr (strText, ">") Доиравӣ RemoveHTML = strText Функсияи End

Ман инчунин каме каме рамзи тозаи дигар илова кардам: Баъзан, ман мехоҳам тавсифро кам ё камтар нишон диҳам. Аммо, агар ман шумораи аломатҳоро маҳдуд кунам, пас ман тавсифро дар мобайни калима бурида метавонам. Ман инро намехоҳам!

Функсияи Cutoff (strText, intChars) dim intLength dim j intLength = len (strText) if intChars> intLength пас барои j = intChars то 0 step -1 if mid (strText, j, 1) = "" then for next to if j> 0 пас strText = left (strText, j-1) & "..." else strText = strText end if end if if Cutoff = strText End function

(Ман дар нишон додани рамзи худ дар ин вуруд баъзе мушкилот доштам ... ба ман хабар диҳед, ки оё бо яке аз ин функсияҳо мушкилот доред!)

Ман инчунин якчанд асбоби дигарро дар шабака мушоҳида кардам. Аст а
.NET версия, бисёр версияҳои PHP, як тонна версияҳои JavaScript.

Хулоса, ман умедворам, ки мушаххасоти RSS идома дода мешаванд ва хўроки воқеӣ дар ҳама ҳолатҳо ба стандартҳои XML мувофиқат мекунад. Барномаҳои ройгон ба монанди TypePad, WordPress ва ғайра бояд фаъолияти RSS-и худро такмил диҳанд. Блогҳои иловагӣ ба монанди MySpace, Xanga, LiveJournal ва ғайра бояд фаъолияти RSS-и худро такмил диҳанд. RSS тавоно ...Крис Багготт як пораи хубе дар почтаи электронӣ ва RSS навиштааст. Ман фикр мекунам, ки омезиши фаъолияти онҳо метавонад таъсири ҳардуи онҳоро зиёдтар кунад!

Ту чӣ фикр мекунӣ?

Ин сомона ба воситаи Akismet барои кам кардани спам истифода мешавад. Омӯзед, ки чӣ тавр маълумотҳои худро тафтиш кунед.