អេអេសអេសអេសភីសស៊្រីរីសកម្មវិធីអានព័ត៌មាន

Depositphotos 4651719 s

ចុងសប្តាហ៍នេះខ្ញុំរីករាយនឹងកុំព្យូទ័រយួរដៃរបស់ខ្ញុំដែលកំពុងស្វែងរកសំណាញ់សម្រាប់អ្នកអាន RSS តាមអ៊ិនធរណេត។ មូលហេតុគឺខ្ញុំចង់សរសេរកម្មវិធីអានអេសអេសអេសអេសដែលនឹងបង្ហាញព័ត៌មានដូច្នេះមាតិកាអាចត្រូវបានគេបំលែងដោយស្វ័យប្រវត្តិទៅក្នុងអ៊ីម៉ែល HTML ។ ដូច្នេះសម្រាប់មនុស្សដែលចង់រក្សាទុកផ្នែកមួយនៃព្រឹត្តិប័ត្រអ៊ីមែលសម្រាប់អត្ថបទប្លុកឬការបោះពុម្ពផ្សាយរបស់ពួកគេវាអាចត្រូវបានបញ្ចូលយ៉ាងងាយស្រួល។ ដោយសារ JavaScript ពិតជាមិនបង្ហាញមាតិការហូតដល់អតិថិជនផ្ទុកនិងប្រតិបត្តិស្គ្រីបនោះកម្មវិធីរុករក JavaScript RSS មិនមានប្រយោជន៍ទេ។ ខ្ញុំត្រូវការអ្នកអានព័ត៌មាន RSS ភ្ជាប់ខាងម៉ាស៊ីនមេ។

ខ្ញុំចាប់ផ្តើមដោយសរសេរសេកផ្ទាល់ខ្លួនរបស់ខ្ញុំនៅក្នុងអេអេសដោយប្រើវត្ថុ MSXML ។ ខ្ញុំអាចញែកបានប្រហែលជា ៧៥% នៃ RSS feeds ដែលធ្វើដូចនេះប៉ុន្តែចំនុចខ្លះនៃ XML ដែលមាននៅលើ RSS feeds បានបង្ហាញថាវាពិបាកក្នុងការសរសេរកម្មវិធី។ អ្នកអាចមើលឃើញវានៅក្នុងសកម្មភាព នៅ​ទីនេះ។ អ្នកអាចហុចចំនួនអតិបរិមានៃធាតុ (ni) ចំនួនតួអក្សរដែលកាត់ចេញនៅពាក្យ (nc) ក៏ដូចជា URL ។ អ្នកក៏អាចឃើញចំណីពិតប្រាកដដែលមានអថេរបំបាត់កំហុស នៅ​ទីនេះ.

មតិព័ត៌មាន RSS ជាច្រើនពិតជា "កខ្វក់" ហើយទាមទារឱ្យមានការញែកអត្ថបទនៅក្នុងឯកសារ XML ដែលមានលេខកូដខ្សែអក្សរ (ugh!) ។ ជាការពិតយើងនៅតែស្ថិតក្នុង“ យុវជន” របស់អេសអេសអេសអ៊ីនធឺណេតដូច្នេះខ្ញុំមិនភ្ញាក់ផ្អើលទេ សូមអានបន្ថែមអំពីលក្ខណៈពិសេសរបស់អេសអេស នៅ​ទីនេះ.

ទីបំផុតខ្ញុំបានឃើញត្បូងតូចមួយ។ ខ្ញុំបានរកឃើញថ្នាក់ ASP ឥតគិតថ្លៃដើម្បីទាញយក។ វាយឺតបន្តិចប៉ុន្តែខ្ញុំមិនបានរកឃើញចំណីដែលវាមិនអាចអានបានទេ។ ខ្ញុំមានកំណែឋិតិវន្តនៅទីនេះនិងកំណែសកម្មនៅទីនេះ។

ប្តីប្រពន្ធកត់សម្គាល់លើស្គ្រីប។ ខ្ញុំពិតជាត្រូវការលុបស្លាក HTML មួយចំនួននៅក្នុងការពិពណ៌នាដែលបានត្រឡប់មកវិញ។ ខ្ញុំបានធ្វើវាជាមួយនឹងមុខងារសម្អាតបន្តិចខ្ញុំបានរកឃើញ៖

អនុគមន៍ RemoveHTML (strText) Dim nPos1 Dim nPos2 nPos1 = InStr (strText, ">") ធ្វើខណៈពេលដែល nPos1> 0 nPos2 = InStr (nPos1 + 1, strText, ">") ប្រសិនបើ nPos2> 0 បន្ទាប់មក strText = ខាងឆ្វេង (strText, nPos1 - ១) និងពាក់កណ្តាល (strText, nPos1 + ១) ការចាកចេញផ្សេងទៀតបញ្ចប់បើ nPos2 = InStr (strText, ">") រង្វិលជុំ RemoveHTML = strText End Function

ខ្ញុំក៏បានបន្ថែមលេខកូដបន្តិចបន្តួចផ្សេងទៀត៖ ពេលខ្លះខ្ញុំប្រហែលជាចង់បង្ហាញការពិពណ៌នាច្រើនឬតិច។ ទោះយ៉ាងណាក៏ដោយប្រសិនបើខ្ញុំគ្រាន់តែកំណត់ចំនួនតួអក្សរបន្ទាប់មកខ្ញុំអាចនឹងកាត់បន្ថយការពិពណ៌នានៅពាក់កណ្តាលពាក្យ។ ខ្ញុំមិនចង់ធ្វើដូចនោះទេ!

មុខងារកាត់ចេញ (strText, intChars) dim intLength dim j intLength = len (strText) ប្រសិនបើ intChars> intL ប្រវែងបន្ទាប់មកសម្រាប់ j = intChars ដល់ ០ ជំហាន -0 ប្រសិនបើពាក់កណ្តាល (strText, j, 1) = "បន្ទាប់មកចេញសម្រាប់បន្ទាប់ប្រសិនបើ j> 1 បន្ទាប់មក strText = នៅសល់ (strText, j-0) & "... " ផ្សេងទៀត strText = strText បញ្ចប់បើចប់បើ Cutoff = មុខងារបញ្ចប់ str strxt

(ខ្ញុំមានបញ្ហាខ្លះក្នុងការបង្ហាញលេខកូដរបស់ខ្ញុំក្នុងធាតុនេះ ... សូមអោយខ្ញុំដឹងប្រសិនបើអ្នកមានបញ្ហាណាមួយជាមួយមុខងារទាំងនេះ!)

ខ្ញុំបានកត់សម្គាល់ឃើញឧបករណ៍ពីរបីបន្ថែមទៀតនៅលើបណ្តាញផងដែរ។ នៅ​ទីនោះ​គឺ​ជា
ណេត កំណែ PHP ច្រើនកំណែ JavaScript មួយតោន។

សរុបសេចក្ដីមកខ្ញុំសង្ឃឹមថាលក្ខណៈពិសេសរបស់អេសអិមបន្តត្រូវបានកែលម្អហើយមតិព័ត៌មានពិតប្រាកដអនុលោមតាមស្តង់ដារ XML ក្នុងករណីទាំងអស់។ កម្មវិធីឥតគិតថ្លៃដូចជា TypePad, ប្លក, រូបភាព។ ល។ ត្រូវការកែលម្អមុខងារ RSS របស់ពួកគេ។ ប្លក់បន្ថែមដូចជា MySpace, Xanga, LiveJournal ជាដើមត្រូវការកែលម្អមុខងារ RSS របស់ពួកគេ។ RSS មានអនុភាព…Chris Baggott សរសេរមួយដុំដ៏ល្អនៅលើអ៊ីម៉ែលទល់នឹង RSS ។ ខ្ញុំគិតថាការរួមបញ្ចូលគ្នារវាងមុខងាររបស់ពួកគេអាចបង្កើនផលប៉ះពាល់ដល់អ្នកទាំងពីរ!

តើ​អ្នក​គិត​អ្វី?

តំបន់បណ្ដាញនេះប្រើ Akismet ដើម្បីកាត់បន្ថយសារឥតបានការ។ សិក្សាអំពីរបៀបដែលទិន្នន័យរបស់អ្នកត្រូវបានដំណើរការ.