PDA

View Full Version : سوال: پیدا کردن آخرین پست وبلاگ(شماره پست)



hackershz
چهارشنبه 29 مهر 1388, 20:25 عصر
با سلام خدمت شما دوست عزیز خسته نباشید

سوال ما »

ما یه وبلاگ داریم توی بلاگفا
مثلا
www.google.blogfa.com
حالا میخوام یه برنامه بنویسم که آدرس وبو که دادی آخرین پست رو بهت بگه 1-2-3 و....

مثلا اخرین پست این وبلاگ اینه 264

لطفا اگه میتونید و راهی بلدید با مثال ویبی به من توضیح بدید

مرسی از همتون خسته نباشید منتظر جواب هستم :قلب:

r0ot$harp
پنج شنبه 30 مهر 1388, 02:46 صبح
دوست عزیز در سورس صفحه اصلی این سایت مقداری هست به نام BlogComments .

شما باید بزرگترین مقدار این آرایه رو پیدا کنید :


BlogComments=[264,5,263,2,262,0,261,0,260,3,259,0,257,0,256,0,25 5,0,254,0,253,0,252,1,251,0,250,1,249,0,248,0,247, 0,246,1,245,1,244,0,243,0,242,0,241,0,240,0,239,0, 238,0,237,0,236,0,235,0,234,0];

باتشکر احسان

hackershz
پنج شنبه 30 مهر 1388, 09:52 صبح
دوست عزیز در سورس صفحه اصلی این سایت مقداری هست به نام BlogComments .

شما باید بزرگترین مقدار این آرایه رو پیدا کنید :


BlogComments=[264,5,263,2,262,0,261,0,260,3,259,0,257,0,256,0,25 5,0,254,0,253,0,252,1,251,0,250,1,249,0,248,0,247, 0,246,1,245,1,244,0,243,0,242,0,241,0,240,0,239,0, 238,0,237,0,236,0,235,0,234,0];

باتشکر احسان


سلام و خسته نباشید به شما دوست عزیز و گرامی


تشکر از اینکه جواب دادی

حالا به فرض مثال من سورس صفحه رو توی یه تکس باکس گرفتم

حالا چه جوری پست اخر رو شمارشو درج کنم توی تکست باکس

ماشالله شماره حرفه ای هستید و ما مبتدی لطفا با مثال به ما توضیح بدید مرسی

mohammadsamadi1377
یک شنبه 11 فروردین 1392, 16:00 عصر
کسی نیست جواب بده ؟

saber67
یک شنبه 11 فروردین 1392, 18:44 عصر
همون آدرس وبلاگی که گذاشتی رو یه Posts به آخرش اضافه کن تا این شکلی بشه
http://www.google.blogfa.com/posts
اگه این آدرس رو تو مرورگرت وارد کنی می بینی که لیست آخرین پست های وبلاگ توش درج شده (RSS وبلاگه)
برای بدست آوردن لینک آخرین پست (که شماره پست هم توش هست) این کارو می کنی:

یه Webbrowser به فرم اضافه کن و کد زیر رو توی برنامه استفاده کن:
Dim StrPostNumber As String
WebBrowser1.Navigate ("http://www.google.blogfa.com" & "/posts")
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
StrPostNumber = WebBrowser1.Document.links.Item(1)
خب تا اینجا لینک رو بدست آوردیم که مثلا این شکلیه:
http://www.google.blogfa.com/post-260.aspx
حالا باید متن های اضافه رو حذف کنی تا فقط شماره پست باقی بمونه
برای این کار هم از این روش استفاده کن:
StrPostNumber = Replace(StrPostNumber, "http://", "")
StrPostNumber = Replace(StrPostNumber, "www.", "")
StrPostNumber = Replace(StrPostNumber, ".blogfa.com", "")
که البته کامل ننوشتم، بقیش رو خودت بنویس که تمام متن های اضافه رو حذف کنه
موفق باشی