تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف اقوم بسحب معلومات من صفحة ويكيبديا
#1
السلام عليكم اخواني سوالي ان اشاء الله واضح هو كيف اقول بعمل برنامج يقوم بسحب معلومات معينة من صفحة في ويكيبيديا اعطيكم اكثر توضيح مثلا انا ابي اسحب معلومات عن كامري تايويتا وهذا صفحة السيارة بموقع ويكيبيديا https://en.wikipedia.org/wiki/Toyota_Camry كل اللي اريده من البرنامج هو سحب الشركة وسنة التصنيع من الصفحة فقط اتمنى اني ماثقلت عليكم
الرد }}}
تم الشكر بواسطة: محمد
#2
السلام عليكم، معك مثال بالمرفقات


الملفات المرفقة
.rar   Toyota Camry.rar (الحجم : 53.26 ك ب / التحميلات : 218)
الرد }}}
تم الشكر بواسطة: سعود , محمد , sooriaty03 , zxz5432
#3
كلام كبير

Rolleyes

ارجوا منك اخي علي الحداد شرح الاكواد
لاسيما وهي اكواد قيمة جدا
وتقبل شكري
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}
تم الشكر بواسطة:
#4
(02-11-13, 07:13 PM)محمد كتب : كلام كبير

Rolleyes

ارجوا منك اخي علي الحداد شرح الاكواد
لاسيما وهي اكواد قيمة جدا
وتقبل شكري

بخصوص أول جزء
كود :
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
الرد }}}
تم الشكر بواسطة: الشاكي لله , ابو روضة
#5
شكرا لك
اخي علي
على تواضعك وشرح الكود
رغم اني مفهمتش حاجة Big Grin

وذالك انني لا اعرف شئ في مجال التعامل على النت

ولكن شكراً لك
وجزاك الله الف خير
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}
تم الشكر بواسطة:
#6
رغم ذلك لااعلم كيف ستستفيد من هذا الموضوع


هذه الطريقة لاتصلح سوا لهذا الرابط

فالا اعلم ليش انت متعب نفسك عشان تسحب معلومات ثابتة انت تقدر تضيفها في مشروعك !!!!!
الرد }}}
تم الشكر بواسطة:
#7
(02-11-13, 11:34 PM)الشاكي لله كتب : رغم ذلك لااعلم كيف ستستفيد من هذا الموضوع


هذه الطريقة لاتصلح سوا لهذا الرابط

فالا اعلم ليش انت متعب نفسك عشان تسحب معلومات ثابتة انت تقدر تضيفها في مشروعك !!!!!

معظم السيارات على موقع ويكيبيديا (إن لم تكن كلها) مكتوبة بنفس ذات التنسيق و تم التجربة على كل من الروابط التالية بنجاح

http://en.wikipedia.org/wiki/Ford_F-650
http://en.wikipedia.org/wiki/Lamborghini_Aventador
http://en.wikipedia.org/wiki/Ferrari_F430
http://en.wikipedia.org/wiki/Kia_Spectra
http://en.wikipedia.org/wiki/Mercedes-Benz_A-Class
الرد }}}
تم الشكر بواسطة: الشاكي لله , محمد , zxz5432
#8
(03-11-13, 12:10 AM)Aly El-Haddad كتب :
(02-11-13, 11:34 PM)الشاكي لله كتب : رغم ذلك لااعلم كيف ستستفيد من هذا الموضوع


هذه الطريقة لاتصلح سوا لهذا الرابط

فالا اعلم ليش انت متعب نفسك عشان تسحب معلومات ثابتة انت تقدر تضيفها في مشروعك !!!!!

معظم السيارات على موقع ويكيبيديا (إن لم تكن كلها) مكتوبة بنفس ذات التنسيق و تم التجربة على كل من الروابط التالية بنجاح

http://en.wikipedia.org/wiki/Ford_F-650
http://en.wikipedia.org/wiki/Lamborghini_Aventador
http://en.wikipedia.org/wiki/Ferrari_F430
http://en.wikipedia.org/wiki/Kia_Spectra
http://en.wikipedia.org/wiki/Mercedes-Benz_A-Class


اذن اسحب كلامي Angel
الرد }}}
تم الشكر بواسطة: Aly El-Haddad , zxz5432
#9
شكر لقد سهلت علي اخوي بس وجهتني مشكلة حاولت اسوي نفس الاكواد بمقالة ثانية غير سيارات مثلا سلاح ولكن يجي لي نص غير اللي اريده مع تغير manufacturer و production هل يمكن شرح لي كيف اخلي البرنامج يجد النص اللي اريده
علما ان النماوذج اللي وضعته لي صحيح وهو الذي اريده ثانيا اريد الرابط اللي اضعه في صندوق النص هو اللي يقوم البرنامج ببحث المعلومات فيه وليس رابط ثابت

* ملاحظة البرنامج اللي اعمل عليه رح يفيد الامة العربية لانه سوف يقوم البرنامج بانشاء مقالات للويكيبيديا بشكل تلقائي
الرد }}}
تم الشكر بواسطة: محمد
#10
زبط معي الحين والحمدالله بس فيه مشكلة وهي تغير الرابط من البرنامج نفسه Smile

مابي يكون الرابط ثابت ابيه يتغير مثلا احط اي رابط في مربع النص وبعدين اضغط زر جلب المعلومات ويتنفذ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة غربية عندما اقوم بالطباعة تطلع معي فاتورة الكاشير صغيرة جدا moh61 3 350 28-10-23, 06:57 PM
آخر رد: moh61
  [VB.NET] كيف اقوم بمنع المستخدم من استخدام الكيبورد وخصوصا مفتاح Print screen Ameenh 0 234 07-10-23, 10:45 PM
آخر رد: Ameenh
  مشكلة عجيبة و غريبة ! عندما اقوم بطباعة فاتورة من Reportveiwer ينطبع التاريخ هجري moh61 2 325 09-09-23, 11:15 AM
آخر رد: alfaiz678
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 396 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  كيف اقوم بالضغط على ذر الويندوز بالكيبورد هل من حل moh61 0 212 01-08-23, 09:45 PM
آخر رد: moh61
  كيف اقوم بقفل الملف الذي يستخدمه احد المستخدمين ابو محمد محمد محمد 8 633 21-04-23, 05:58 PM
آخر رد: ابو محمد محمد محمد
  [سؤال] محتاج بعد انهاء المشروع اقوم بتحويله لملف تنفيذي يصعب الوصول للكود والفورم mony.tornado 6 641 08-12-22, 09:22 AM
آخر رد: مصمم هاوي
  عندما اقوم بتعبئة كومبو بوكس ياخذ الكثير من الوقت .. فمالحل mohamedgadain61 4 577 08-10-22, 08:27 PM
آخر رد: Taha Okla
Exclamation [VB.NET] التعامل مع عناصر صفحة html من خلال WebView2 paypalet 2 843 26-09-22, 05:00 PM
آخر رد: Basil Abdallah
  كيف اقوم بتحميل اسم معين في الكومبوبوكس Emam emam 9 1,480 12-03-22, 02:54 AM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 2 ) ضيف كريم