السلام عليكم اخواني سوالي ان اشاء الله واضح هو كيف اقول بعمل برنامج يقوم بسحب معلومات معينة من صفحة في ويكيبيديا اعطيكم اكثر توضيح مثلا انا ابي اسحب معلومات عن كامري تايويتا وهذا صفحة السيارة بموقع ويكيبيديا
https://en.wikipedia.org/wiki/Toyota_Camry كل اللي اريده من البرنامج هو سحب الشركة وسنة التصنيع من الصفحة فقط اتمنى اني ماثقلت عليكم
السلام عليكم، معك مثال بالمرفقات
كلام كبير
ارجوا منك اخي علي الحداد شرح الاكواد
لاسيما وهي اكواد قيمة جدا
وتقبل شكري
(02-11-13, 07:13 PM)محمد كتب : [ -> ]كلام كبير
ارجوا منك اخي علي الحداد شرح الاكواد
لاسيما وهي اكواد قيمة جدا
وتقبل شكري
بخصوص أول جزء
كود :
Dim req As HttpWebRequest = HttpWebRequest.Create(wikiLink)
Dim res As HttpWebResponse = req.GetResponse()
Dim SR As New StreamReader(res.GetResponseStream())
Dim page As String = SR.ReadToEnd()
فهو لجلب تنسيق الصفحة في صورة نص Html و وضعه في المتغير page
ثم بحثت في هذا النص عن المعلومات التي أريدها (الشركة و تاريخ الإنتاج) كيف تأتي في التنسيق
لأستخلصها عن طريق هذا الكود
كود :
Dim manufacturer As String = page.Substring(page.IndexOf("Manufacturer</th>") + 17)
manufacturer = manufacturer.Substring(manufacturer.IndexOf("title=""") + 7)
manufacturer = manufacturer.Substring(0, manufacturer.IndexOf(""""))
Dim production As String = page.Substring(page.IndexOf("Production</th>") + 15)
production = production.Substring(production.IndexOf(">") + 1)
production = production.Substring(0, production.IndexOf("</"))
ثم يتم عرضها في الـLabels بهذا الكود
كود :
lblManufacturer.Text = "Manufacturer: " & manufacturer
lblProduction.Text = "Production: " & production
شكرا لك
اخي علي
على تواضعك وشرح الكود
رغم اني مفهمتش حاجة
وذالك انني لا اعرف شئ في مجال التعامل على النت
ولكن شكراً لك
وجزاك الله الف خير
رغم ذلك لااعلم كيف ستستفيد من هذا الموضوع
هذه الطريقة لاتصلح سوا لهذا الرابط
فالا اعلم ليش انت متعب نفسك عشان تسحب معلومات ثابتة انت تقدر تضيفها في مشروعك !!!!!
شكر لقد سهلت علي اخوي بس وجهتني مشكلة حاولت اسوي نفس الاكواد بمقالة ثانية غير سيارات مثلا سلاح ولكن يجي لي نص غير اللي اريده مع تغير manufacturer و production هل يمكن شرح لي كيف اخلي البرنامج يجد النص اللي اريده
علما ان النماوذج اللي وضعته لي صحيح وهو الذي اريده ثانيا اريد الرابط اللي اضعه في صندوق النص هو اللي يقوم البرنامج ببحث المعلومات فيه وليس رابط ثابت
* ملاحظة البرنامج اللي اعمل عليه رح يفيد الامة العربية لانه سوف يقوم البرنامج بانشاء مقالات للويكيبيديا بشكل تلقائي
زبط معي الحين والحمدالله بس فيه مشكلة وهي تغير الرابط من البرنامج نفسه
مابي يكون الرابط ثابت ابيه يتغير مثلا احط اي رابط في مربع النص وبعدين اضغط زر جلب المعلومات ويتنفذ