ASP RSS Parser, Feed Reader

Depositphotos 4651719 s

Hujung minggu ini saya terpaku pada komputer riba saya mencari di internet untuk pembaca RSS feed berasaskan web. Sebabnya ialah saya ingin menulis pembaca RSS feed asp yang akan memaparkan feed supaya kandungannya dapat dikikis secara automatik ke dalam email HTML. Oleh itu, bagi orang-orang yang ingin menempah sebahagian daripada buletin e-mel mereka untuk artikel Blog atau Penerbitan mereka, ia boleh dimasukkan dengan mudah. Oleh kerana JavaScript tidak benar-benar menampilkan kandungan sehingga klien memuat dan melaksanakan skrip, banyak penyemak imbas RSS JavaScript tidak berguna. Saya memerlukan pembaca RSS feed pelayan.

Saya mulakan dengan menulis pengurai saya sendiri di ASP menggunakan objek MSXML. Saya dapat menguraikan sekitar 75% suapan RSS yang melakukan ini, tetapi beberapa spesifikasi XML yang longgar pada suapan RSS terbukti sangat sukar untuk diprogramkan. Anda dapat melihatnya dalam tindakan di sini. Anda boleh menyampaikan jumlah item maksimum (ni), bilangan watak yang dipotong pada kata (nc), dan juga URL. Anda juga dapat melihat suapan sebenar dengan pemboleh ubah debug di sini.

Banyak suapan RSS benar-benar cukup 'kotor' dan memerlukan penguraian teks dalam fail XML dengan kod manipulasi rentetan (ugh!). Sudah tentu, kita masih dalam 'pemuda' RSS kita di jaring jadi saya tidak terkejut. Baca lebih lanjut mengenai spesifikasi RSS di sini.

Akhirnya, saya menjumpai permata kecil. Saya dapati kelas ASP percuma untuk dimuat turun. Agak perlahan, tetapi saya tidak menemui suapan yang tidak dapat dibaca. Saya mendapat versi statik di sini dan versi dinamik di sini.

Sepasang catatan mengenai skrip. Saya perlu membersihkan beberapa tag HTML dalam keterangan yang dikembalikan. Saya melakukannya dengan sedikit fungsi pembersihan yang saya dapati:

Fungsi HapusHTML (strText) Dim nPos1 Dim nPos2 nPos1 = InStr (strText, ">") Lakukan Semasa nPos1> 0 nPos2 = InStr (nPos1 + 1, strText, ">") Jika nPos2> 0 Kemudian strText = Kiri (strText, nPos1 - 1) & Mid (strText, nPos2 + 1) Else Exit Do End If nPos1 = InStr (strText, ">") Loop RemoveHTML = strText End Function

Saya juga menambah sedikit kod yang kemas: Kadang kala, saya mungkin mahu memaparkan lebih kurang perihal. Walau bagaimanapun, jika saya hanya mengehadkan bilangan watak, maka saya mungkin memotong keterangan di tengah-tengah perkataan. Saya tidak mahu berbuat demikian!

Fungsi Cutoff (strText, intChars) dim intLength dim j intLength = len (strText) jika intChars> intLength kemudian untuk j = intChars ke 0 langkah -1 jika pertengahan (strText, j, 1) = "" kemudian keluar untuk seterusnya jika j> 0 kemudian strText = kiri (strText, j-1) & "..." else strText = strText berakhir jika tamat jika Cutoff = strText End Function

(Saya mempunyai masalah dengan memaparkan kod saya dengan betul dalam entri ini ... beritahu saya jika anda mempunyai masalah dengan salah satu fungsi ini!)

Saya juga melihat beberapa alat di internet juga. Ada
. NET versi, banyak versi PHP, banyak versi JavaScript.

Sebagai kesimpulan, saya berharap spesifikasi RSS terus diperhalusi dan suapan sebenar mematuhi piawaian XML dalam semua keadaan. Aplikasi percuma seperti TypePad, WordPress, dll perlu menyempurnakan fungsi RSS mereka. Blog tambahan seperti MySpace, Xanga, LiveJournal, dan lain-lain perlu meningkatkan fungsi RSS mereka. RSS ADALAH hebat ...Chris Baggott menulis karya yang bagus di E-mel vs RSS. Saya fikir menggabungkan fungsi mereka dapat meningkatkan kesan kedua-duanya!

Apa yang anda fikir?

Laman web ini menggunakan Akismet untuk mengurangkan spam. Ketahui bagaimana data komen anda diproses.